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

Fix ansi-format tests

Browse source
This commit is contained in:
Henrik Lissner 2017-04-12 11:00:49 -04:00
parent c370e1cddd
commit b1442cb4eb
1 changed files with 17 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,24 +1,26 @@
;;; test/core/autoload/test-message.el ;;; test/core/autoload/test-message.el
(def-test-group! core/autoload/message (def-test-group! core/autoload/message
(ert-deftest ansi-format () (ert-deftest ansi-format ()
(should (equal (ansi-format! "Hello %s" "World") "Hello World")) (let ((noninteractive t))
(should (equal (ansi-format! (red "Hello %s" "World")) "Hello World")) (should (equal (ansi-format! "Hello %s" "World") "Hello World"))
(should (equal (ansi-format! (green "Hello %s" "World")) (should (equal (ansi-format! (red "Hello %s" "World")) "Hello World"))
(format "\e[%dm%s\e[0m" (should (equal (ansi-format! (green "Hello %s" "World"))
(cdr (assq 'green doom-ansi-fg)) (format "\e[%dm%s\e[0m"
"Hello World")))) (cdr (assq 'green doom-ansi-fg))
"Hello World")))))
(ert-deftest ansi-format-nested () (ert-deftest ansi-format-nested ()
(should (equal (ansi-format! (bold (red "Hello %s" "World"))) (let ((noninteractive t))
(format "\e[%dm%s\e[0m" 1 (format "\e[%dm%s\e[0m" 31 "Hello World")))) (should (equal (ansi-format! (bold (red "Hello %s" "World")))
(should (equal (ansi-format! (red (bold "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" 31 (format "\e[%dm%s\e[0m" 1 "Hello World"))))) (should (equal (ansi-format! (red (bold "Hello %s" "World")))
(format "\e[%dm%s\e[0m" 31 (format "\e[%dm%s\e[0m" 1 "Hello World"))))))
(ert-deftest ansi-format-apply () (ert-deftest ansi-format-apply ()
(should (equal (ansi-format! (color 'red "Hello %s" "World")) (let ((noninteractive t))
(ansi-format! (red "Hello %s" "World")))) (should (equal (ansi-format! (color 'red "Hello %s" "World"))
(should (equal (ansi-format! (color (if nil 'red 'blue) "Hello %s" "World")) (ansi-format! (red "Hello %s" "World"))))
(ansi-format! (blue "Hello %s" "World")))))) (should (equal (ansi-format! (color (if nil 'red 'blue) "Hello %s" "World"))
(ansi-format! (blue "Hello %s" "World")))))))