diff options
author | Bastien Guerry <bzg@altern.org> | 2014-04-22 12:08:15 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2014-04-22 12:08:15 +0200 |
commit | 099b6f0fb5b4db43bc9025a71c136f773c8289cb (patch) | |
tree | ddc5f9504c04f024435bd948153c6accc35814d4 | |
parent | fdb4b54e92aff9bbe7fec6209813af17a14eb876 (diff) |
test-org.el: Fix testrelease_8.2.6
* test-org.el (test-org/insert-todo-heading-respect-content):
Fix test.
-rw-r--r-- | testing/lisp/test-org.el | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el index 1540b8ec2..6954a9391 100644 --- a/testing/lisp/test-org.el +++ b/testing/lisp/test-org.el @@ -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" |