emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

lang/org: update unit tests

Browse source
This commit is contained in:
Henrik Lissner 2019-06-29 01:38:14 +02:00
parent 281ea56643
commit 1e286da278
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 12 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

24
modules/lang/org/test/test-org.el
View file

@ -20,26 +20,26 @@
(describe "headlines" (describe "headlines"
(it "appends first-level headlines with an extra newline" (it "appends first-level headlines with an extra newline"
(insert! "* {0}Header") (insert! "* {0}Header")
(+org/insert-item 'below) (+org/insert-item-below 1)
(expect (eobp)) (expect (eobp))
(expect (buffer-substring-no-properties (point-min) (point-max)) (expect (buffer-substring-no-properties (point-min) (point-max))
:to-equal "* Header\n\n* ")) :to-equal "* Header\n\n* "))
(it "prepends first-level headlines with an extra newline" (it "prepends first-level headlines with an extra newline"
(insert! "* {0}Header") (insert! "* {0}Header")
(+org/insert-item 'above) (+org/insert-item-above 1)
(expect (eolp)) (expect (eolp))
(expect (buffer-substring-no-properties (point-min) (point-max)) (expect (buffer-substring-no-properties (point-min) (point-max))
:to-equal "* \n\n* Header")) :to-equal "* \n\n* Header"))
(it "appends second-level headlines with an no extra newline" (it "appends second-level headlines with an no extra newline"
(insert! "** {0}Header") (insert! "** {0}Header")
(+org/insert-item 'below) (+org/insert-item-below 1)
(expect (eobp)) (expect (eobp))
(expect (buffer-substring-no-properties (point-min) (point-max)) (expect (buffer-substring-no-properties (point-min) (point-max))
:to-equal "** Header\n** ")) :to-equal "** Header\n** "))
(it "prepends second-level headlines with an no extra newline" (it "prepends second-level headlines with an no extra newline"
(insert! "** {0}Header") (insert! "** {0}Header")
(+org/insert-item 'above) (+org/insert-item-above 1)
(expect (eolp)) (expect (eolp))
(expect (buffer-substring-no-properties (point-min) (point-max)) (expect (buffer-substring-no-properties (point-min) (point-max))
:to-equal "** \n** Header")) :to-equal "** \n** Header"))
@ -50,7 +50,7 @@
"*** sub 2\n" "*** sub 2\n"
"**** subsub 1\n" "**** subsub 1\n"
"** Header") "** Header")
(+org/insert-item 'below) (+org/insert-item-below 1)
(expect (eolp)) (expect (eolp))
(expect (line-number-at-pos) :to-be 5) (expect (line-number-at-pos) :to-be 5)
(expect (buffer-substring-no-properties (point-min) (point-max)) (expect (buffer-substring-no-properties (point-min) (point-max))
@ -68,7 +68,7 @@
"*** sub 2\n" "*** sub 2\n"
"**** {0}subsub 1\n" "**** {0}subsub 1\n"
"** Header") "** Header")
(+org/insert-item 'above) (+org/insert-item-above 1)
(expect (eolp)) (expect (eolp))
(expect (line-number-at-pos) :to-be 4) (expect (line-number-at-pos) :to-be 4)
(expect (buffer-substring-no-properties (point-min) (point-max)) (expect (buffer-substring-no-properties (point-min) (point-max))
@ -84,12 +84,12 @@
(describe "plain lists" (describe "plain lists"
(it "appends items" (it "appends items"
(insert! "+ {0}List item") (insert! "+ {0}List item")
(+org/insert-item 'below) (+org/insert-item-below 1)
(expect (buffer-substring-no-properties (point-min) (point-max)) (expect (buffer-substring-no-properties (point-min) (point-max))
:to-equal "+ List item\n+ ")) :to-equal "+ List item\n+ "))
(it "prepends items" (it "prepends items"
(insert! "+ {0}List item") (insert! "+ {0}List item")
(+org/insert-item 'above) (+org/insert-item-above 1)
(expect (buffer-substring-no-properties (point-min) (point-max)) (expect (buffer-substring-no-properties (point-min) (point-max))
:to-equal "+ \n+ List item")) :to-equal "+ \n+ List item"))
@ -97,7 +97,7 @@
(insert! "+ {0}List item\n" (insert! "+ {0}List item\n"
" + Sub item\n" " + Sub item\n"
"+ List item") "+ List item")
(+org/insert-item 'below) (+org/insert-item-below 1)
(expect (buffer-substring-no-properties (point-min) (point-max)) (expect (buffer-substring-no-properties (point-min) (point-max))
:to-equal :to-equal
(string-join '("+ List item" (string-join '("+ List item"
@ -109,7 +109,7 @@
(insert! "+ List item\n" (insert! "+ List item\n"
" + Sub item\n" " + Sub item\n"
"+ {0}List item") "+ {0}List item")
(+org/insert-item 'above) (+org/insert-item-above 1)
(expect (buffer-substring-no-properties (point-min) (point-max)) (expect (buffer-substring-no-properties (point-min) (point-max))
:to-equal :to-equal
(string-join '("+ List item" (string-join '("+ List item"
@ -123,7 +123,7 @@
(insert! "1. {0}List item\n" (insert! "1. {0}List item\n"
"2. Sub item\n" "2. Sub item\n"
"3. List item") "3. List item")
(+org/insert-item 'below) (+org/insert-item-below 1)
(expect (buffer-substring-no-properties (point-min) (point-max)) (expect (buffer-substring-no-properties (point-min) (point-max))
:to-equal :to-equal
(string-join '("1. List item" (string-join '("1. List item"
@ -135,7 +135,7 @@
(insert! "1. List item\n" (insert! "1. List item\n"
"2. Sub item\n" "2. Sub item\n"
"3. {0}List item") "3. {0}List item")
(+org/insert-item 'above) (+org/insert-item-above 1)
(expect (buffer-substring-no-properties (point-min) (point-max)) (expect (buffer-substring-no-properties (point-min) (point-max))
:to-equal :to-equal
(string-join '("1. List item" (string-join '("1. List item"