ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

test-org.el: Fix test 

* test-org.el (test-org/insert-todo-heading-respect-content):
Fix test.
This commit is contained in:
Bastien Guerry 2014-04-22 12:08:15 +02:00
parent fdb4b54e92
commit 099b6f0fb5
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
testing/lisp/test-org.el
View File

@ -414,15 +414,12 @@
(org-test-with-temp-text "* H1\n Body" (org-test-with-temp-text "* H1\n Body"
(org-insert-todo-heading-respect-content) (org-insert-todo-heading-respect-content)
(nth 2 (org-heading-components)))) (nth 2 (org-heading-components))))
;; Add headline after body of current subtree. ;; Add headline at the end of the first subtree
(should (should
(org-test-with-temp-text "* H1\nBody" (org-test-with-temp-text "* H1\nH1Body\n** H2\nH2Body"
(search-forward "H1Body")
(org-insert-todo-heading-respect-content) (org-insert-todo-heading-respect-content)
(eobp))) (and (eobp) (org-at-heading-p))))
(should
(org-test-with-temp-text "* H1\n** H2\nBody"
(org-insert-todo-heading-respect-content)
(eobp)))
;; In a list, do not create a new item. ;; In a list, do not create a new item.
(should (should
(org-test-with-temp-text "* H\n- an item\n- another one" (org-test-with-temp-text "* H\n- an item\n- another one"