mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-27 11:30:57 +00:00
Code Releases Activity

org-element: Fix tests

Browse source 
* testing/lisp/test-org-element.el: Fix tests.  Some were failing with
  emacs 23.
This commit is contained in:
Nicolas Goaziou 2012-07-18 11:25:29 +02:00
parent 3e76a25f7c
commit 8769f9d014
1 changed files with 22 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
testing/lisp/test-org-element.el
View file

@ -123,7 +123,7 @@ Some other text
(should-not (org-element-map tree 'bold 'identity))
;; Check if new object's parent is correctly set.
(should
(equal
(eq
(org-element-property :parent
(org-element-map tree 'italic 'identity nil t))
(org-element-map tree 'paragraph 'identity nil t))))))
@ -1422,15 +1422,27 @@ Outside list"
;; Active timestamp.
(should
(org-test-with-temp-text "<2012-03-29 16:40>"
(org-element-map (org-element-parse-buffer) 'timestamp 'identity)))
(eq (org-element-property :type
(org-element-map
(org-element-parse-buffer)
'timestamp 'identity nil t))
'active)))
;; Inactive timestamp.
(should
(org-test-with-temp-text "[2012-03-29 16:40]"
(org-element-map (org-element-parse-buffer) 'timestamp 'identity)))
(eq (org-element-property :type
(org-element-map
(org-element-parse-buffer)
'timestamp 'identity nil t))
'inactive)))
;; Date range.
(should
(org-test-with-temp-text "[2012-03-29 16:40]--[2012-03-29 16:41]"
(org-element-map (org-element-parse-buffer) 'timestamp 'identity)))
(eq (org-element-property :type
(org-element-map
(org-element-parse-buffer)
'timestamp 'identity nil t))
'inactive-range)))
;; Timestamps are not planning elements.
(should-not
(org-test-with-temp-text "SCHEDULED: <2012-03-29 16:40>"
@ -2117,8 +2129,8 @@ Paragraph \\alpha."
:parent
(org-element-map tree 'paragraph 'identity nil t))))
(should parent)
(should
(equal (org-element-map tree 'center-block 'identity nil t) parent))))
(should (eq (org-element-map tree 'center-block 'identity nil t)
parent))))
;; Objects.
(org-test-with-temp-text "a_{/b/}"
(let* ((tree (org-element-parse-buffer))
@ -2126,16 +2138,16 @@ Paragraph \\alpha."
:parent
(org-element-map tree 'italic 'identity nil t))))
(should parent)
(should
(equal parent (org-element-map tree 'subscript 'identity nil t)))))
(should (eq parent
(org-element-map tree 'subscript 'identity nil t)))))
;; Secondary strings
(org-test-with-temp-text "* /italic/"
(let* ((tree (org-element-parse-buffer))
(parent (org-element-property
:parent (org-element-map tree 'italic 'identity nil t))))
(should parent)
(should
(equal parent (org-element-map tree 'headline 'identity nil t))))))
(should (eq parent
(org-element-map tree 'headline 'identity nil t))))))