From 099b6f0fb5b4db43bc9025a71c136f773c8289cb Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Tue, 22 Apr 2014 12:08:15 +0200 Subject: [PATCH] test-org.el: Fix test * test-org.el (test-org/insert-todo-heading-respect-content): Fix test. --- testing/lisp/test-org.el | 11 ++++------- 1 file 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" -- 2.11.4.GIT