tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-list: Add tests for `org-at-radio-list-p' 

* testing/lisp/test-org-list.el (test-org-list/at-radio-list-p): New
test.
This commit is contained in:
Nicolas Goaziou 2020-02-17 00:50:10 +01:00
parent 41c5fe0be8
commit 2d21d2080c
1 changed files with 30 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
testing/lisp/test-org-list.el
View File

@ -917,6 +917,36 @@ b. Item 2<point>"
(org-update-checkbox-count))
(buffer-string)))))
;;; API
(ert-deftest test-org-list/at-radio-list-p ()
"Test `org-at-radio-list-p' specifications."
(should
(org-test-with-temp-text "#+attr_org: :radio t\n<point>- foo"
(org-at-radio-list-p)))
(should
(org-test-with-temp-text "#+attr_org: :radio t\n- foo\n<point>- bar"
(org-at-radio-list-p)))
(should
(org-test-with-temp-text "#+ATTR_ORG: :radio t\n<point>- foo"
(org-at-radio-list-p)))
(should
(org-test-with-temp-text "#+attr_org: :radio bar\n<point>- foo"
(org-at-radio-list-p)))
(should-not
(org-test-with-temp-text "#+attr_org: :radio nil\n<point>- foo"
(org-at-radio-list-p)))
(should-not
(org-test-with-temp-text "<point>- foo"
(org-at-radio-list-p)))
(should-not
(org-test-with-temp-text "#+attr_org: :radio t\n- foo\n <point>bar"
(org-at-radio-list-p)))
(should-not
(org-test-with-temp-text
"#+attr_org: :radio t\n#+begin_example\n<point>- foo\n#+end_example"
(org-at-radio-list-p))))
;;; Miscellaneous