38 lines
1.6 KiB
EmacsLisp
38 lines
1.6 KiB
EmacsLisp
|
;; -*- no-byte-compile: t; -*-
|
|||
|
|
;;; core/test/test-autoload-message.el
|
|||
|
|
|
|||
|
|
(describe "core/autoload/message"
|
|||
|
|
(describe "format!"
|
|||
|
|
:var (noninteractive)
|
|||
|
|
(before-all (setq noninteractive t))
|
|||
|
|
|
|||
|
|
(it "should be a drop-in replacement for `format'"
|
|||
|
|
(expect (format! "Hello %s" "World")
|
|||
|
|
:to-equal "Hello World"))
|
|||
|
|
|
|||
|
|
(it "supports ansi coloring in noninteractive sessions"
|
|||
|
|
(expect (format! (red "Hello %s" "World"))
|
|||
|
|
:to-equal "[31mHello World[0m"))
|
|||
|
|
|
|||
|
|
(it "supports faces in interactive sessions"
|
|||
|
|
(let (noninteractive)
|
|||
|
|
(expect (get-text-property 0 'face (format! (red "Hello %s" "World")))
|
|||
|
|
:to-equal (list :foreground (face-foreground 'term-color-red)))))
|
|||
|
|
|
|||
|
|
(it "supports nested color specs"
|
|||
|
|
(expect (format! (bold (red "Hello %s" "World")))
|
|||
|
|
:to-equal (format "\e[%dm%s\e[0m" 1
|
|||
|
|
(format "\e[%dm%s\e[0m" 31 "Hello World")))
|
|||
|
|
(expect (format! (on-red (bold "Hello %s" "World")))
|
|||
|
|
:to-equal (format "\e[%dm%s\e[0m" 41
|
|||
|
|
(format "\e[%dm%s\e[0m" 1 "Hello World")))
|
|||
|
|
(expect (format! (dark (white "Hello %s" "World")))
|
|||
|
|
:to-equal (format "\e[%dm%s\e[0m" 2
|
|||
|
|
(format "\e[%dm%s\e[0m" 37 "Hello World"))))
|
|||
|
|
|
|||
|
|
(it "supports dynamic color apply syntax"
|
|||
|
|
(expect (format! (color 'red "Hello %s" "World"))
|
|||
|
|
:to-equal (format! (red "Hello %s" "World")))
|
|||
|
|
(expect (format! (color (if nil 'red 'blue) "Hello %s" "World"))
|
|||
|
|
:to-equal (format! (blue "Hello %s" "World"))))))
|