62 lines
2.1 KiB
EmacsLisp
62 lines
2.1 KiB
EmacsLisp
;; -*- no-byte-compile: t; -*-
|
|
;;; lang/org/test/autoload-org.el
|
|
|
|
(require! :lang org)
|
|
|
|
(defmacro should-org-buffer!! (source expected &rest body)
|
|
`(should-buffer! ,source ,expected
|
|
(org-mode)
|
|
,@body))
|
|
|
|
;;
|
|
;; `+org/insert-item'
|
|
(def-test! insert-item-h1
|
|
"Should append/prepend new first-level headers with an extra newline."
|
|
(should-org-buffer!! ("* {0}Header") ("* Header\n\n* {|}")
|
|
(+org/insert-item 'below))
|
|
(should-org-buffer!! ("* {0}Header") ("* {|}\n\n* Header")
|
|
(+org/insert-item 'above)))
|
|
|
|
(def-test! insert-item-h2
|
|
"Should append/prepend new second-level (and higher) headers without an extra
|
|
newline."
|
|
(should-org-buffer!! ("** {0}Header") ("** Header\n** {|}")
|
|
(+org/insert-item 'below))
|
|
(should-org-buffer!! ("** {0}Header") ("** {|}\n** Header")
|
|
(+org/insert-item 'above)))
|
|
|
|
(def-test! insert-item-plain-list
|
|
"Should append/prepend new second-level (and higher) headers without an extra
|
|
newline."
|
|
(should-org-buffer!! ("+ {0}List item") ("+ List item\n+ {|}")
|
|
(+org/insert-item 'below))
|
|
(should-org-buffer!! ("+ {0}List item"
|
|
" + Sub item")
|
|
("+ List item"
|
|
" + Sub item"
|
|
"+ {|}")
|
|
(+org/insert-item 'below))
|
|
(should-org-buffer!! ("+ {0}List item"
|
|
"+ Next item")
|
|
("+ List item"
|
|
"+ {|}"
|
|
"+ Next item")
|
|
(+org/insert-item 'below)))
|
|
|
|
(def-test! insert-item-numbered-list
|
|
"Should append/prepend new second-level (and higher) headers without an extra
|
|
newline."
|
|
(should-org-buffer!! ("1. {0}List item") ("1. List item\n2. {|}")
|
|
(+org/insert-item 'below))
|
|
(should-org-buffer!! ("1. {0}List item"
|
|
"2. Sub item")
|
|
("1. List item"
|
|
"2. {|}"
|
|
"3. Sub item")
|
|
(+org/insert-item 'below))
|
|
(should-org-buffer!! ("1. {0}List item"
|
|
"2. Next item")
|
|
("1. {|}"
|
|
"2. List item"
|
|
"3. Next item")
|
|
(+org/insert-item 'above)))
|