From 62e6e7d81f8aa4ce6e9d3dbbc4726ef2d76a0bc3 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Tue, 12 Nov 2019 16:15:42 -0500 Subject: [PATCH] lang/org: fix tests to reflect f70f788df --- modules/lang/org/test/test-org.el | 22 +++++----------------- 1 file changed, 5 insertions(+), 17 deletions(-) diff --git a/modules/lang/org/test/test-org.el b/modules/lang/org/test/test-org.el index cbe36f62d..ff065b5e4 100644 --- a/modules/lang/org/test/test-org.el +++ b/modules/lang/org/test/test-org.el @@ -18,31 +18,19 @@ (kill-buffer (get-buffer "org"))) (describe "headlines" - (it "appends first-level headlines with an extra newline" + (it "opens new headline below" (insert!! "* {0}Header") (+org/insert-item-below 1) (expect (eobp)) (expect (buffer-substring-no-properties (point-min) (point-max)) - :to-equal "* Header\n\n* ")) - (it "prepends first-level headlines with an extra newline" - (insert!! "* {0}Header") - (+org/insert-item-above 1) - (expect (eolp)) - (expect (buffer-substring-no-properties (point-min) (point-max)) - :to-equal "* \n\n* Header")) + :to-equal "* Header\n* ")) - (it "appends second-level headlines with an no extra newline" - (insert!! "** {0}Header") - (+org/insert-item-below 1) - (expect (eobp)) - (expect (buffer-substring-no-properties (point-min) (point-max)) - :to-equal "** Header\n** ")) - (it "prepends second-level headlines with an no extra newline" - (insert!! "** {0}Header") + (it "opens new headline above" + (insert!! "* {0}Header") (+org/insert-item-above 1) (expect (eolp)) (expect (buffer-substring-no-properties (point-min) (point-max)) - :to-equal "** \n** Header")) + :to-equal "* \n* Header")) (it "appends headlines, skipping subtrees" (insert!! "** {0}First\n"