ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

org-macs: Add tests for `org-split-string. 

* testing/lisp/test-org-macs.el (test-org/split-string): New test.
This commit is contained in:
Nicolas Goaziou 2017-08-01 20:29:23 +02:00
parent 80d7025770
commit 29d8d407e8
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
testing/lisp/test-org-macs.el
View File

@ -19,6 +19,24 @@
;;; Code:
(ert-deftest test-org/split-string ()
"Test `org-split-string' specifications."
;; Regular test.
(should (equal '("a" "b") (org-split-string "a b" " ")))
;; Empty parts are not removed.
(should (equal '("a" "" "b") (org-split-string "a||b" "|")))
;; However, empty parts at beginning or end of string are removed.
(should (equal '("a" "b") (org-split-string "|a|b|" "|")))
;; Pathological case: call on an empty string. Since empty parts
;; are not removed, it shouldn't return nil.
(should (equal '("") (org-split-string "")))
;; SEPARATORS, when non-nil, is a regexp. In particular, do not
;; match more than specified.
(should-not (equal '("a" "b") (org-split-string "a b" " ")))
;; When nil, SEPARATORS matches any number of blank characters.
(should (equal '("a" "b") (org-split-string "a \t\nb"))))
(ert-deftest test-org/string-display ()
"Test `org-string-display' specifications."
(should (equal "a" (org-string-display "a")))