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

View File

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