awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

ansi-{format,message}! => {format,message}! (to be generalized)

Browse Source
This commit is contained in:
Henrik Lissner
2017-04-15 01:29:24 -04:00
parent a71ca4d340
commit e48c6c5381
4 changed files with 33 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
test/core/autoload/test-message.el
View File

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