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

test/core/autoload/test-message: add more tests

Browse source
This commit is contained in:
Henrik Lissner 2017-04-12 21:40:51 -04:00
parent 2b9c1577d0
commit 82447f7e08
1 changed files with 20 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

25
test/core/autoload/test-message.el
View file

@ -3,19 +3,34 @@
(def-test-group! core/autoload/message (def-test-group! core/autoload/message
(ert-deftest ansi-format () (ert-deftest ansi-format ()
(let ((noninteractive t)) (let ((noninteractive t))
(should (equal (ansi-format! "Hello %s" "World") "Hello World")) (should (equal (ansi-format! "Hello %s" "World")
(should (equal (ansi-format! (red "Hello %s" "World")) "Hello World")) "Hello World"))
(should (equal (ansi-format! (red "Hello %s" "World"))
"Hello World"))
(should (equal (ansi-format! (green "Hello %s" "World")) (should (equal (ansi-format! (green "Hello %s" "World"))
(format "\e[%dm%s\e[0m" (format "\e[%dm%s\e[0m"
(cdr (assq 'green doom-ansi-fg)) (cdr (assq 'green doom-ansi-fg))
"Hello World")))
(should (equal (ansi-format! (on-red "Hello %s" "World"))
(format "\e[%dm%s\e[0m"
(cdr (assq 'on-red doom-ansi-bg))
"Hello World")))
(should (equal (ansi-format! (bold "Hello %s" "World"))
(format "\e[%dm%s\e[0m"
(cdr (assq 'bold doom-ansi-fx))
"Hello World"))))) "Hello World")))))
(ert-deftest ansi-format-nested () (ert-deftest ansi-format-nested ()
(let ((noninteractive t)) (let ((noninteractive t))
(should (equal (ansi-format! (bold (red "Hello %s" "World"))) (should (equal (ansi-format! (bold (red "Hello %s" "World")))
(format "\e[%dm%s\e[0m" 1 (format "\e[%dm%s\e[0m" 31 "Hello World")))) (format "\e[%dm%s\e[0m" 1
(should (equal (ansi-format! (red (bold "Hello %s" "World"))) (format "\e[%dm%s\e[0m" 31 "Hello World"))))
(format "\e[%dm%s\e[0m" 31 (format "\e[%dm%s\e[0m" 1 "Hello World")))))) (should (equal (ansi-format! (on-red (bold "Hello %s" "World")))
(format "\e[%dm%s\e[0m" 41
(format "\e[%dm%s\e[0m" 1 "Hello World"))))
(should (equal (ansi-format! (dark (white "Hello %s" "World")))
(format "\e[%dm%s\e[0m" 2
(format "\e[%dm%s\e[0m" 37 "Hello World"))))))
(ert-deftest ansi-format-apply () (ert-deftest ansi-format-apply ()
(let ((noninteractive t)) (let ((noninteractive t))