add some style tests
This commit is contained in:
parent
a230eb9f10
commit
b26aedbe87
|
@ -12,4 +12,16 @@
|
||||||
"hello there"
|
"hello there"
|
||||||
(format #t "~a" (make-style "hello there")))
|
(format #t "~a" (make-style "hello there")))
|
||||||
|
|
||||||
|
(verify-output
|
||||||
|
"\x1b[1mhello there\x1b[0m"
|
||||||
|
(format #t "~a" (bold "hello there")))
|
||||||
|
|
||||||
|
(verify-output
|
||||||
|
"\x1b[1;3mneato\x1b[0m"
|
||||||
|
(format #t "~a" (bold (italic "neato"))))
|
||||||
|
|
||||||
|
(verify-output
|
||||||
|
"this is \x1b[4mimportant\x1b[0m!"
|
||||||
|
(format #t "this is ~a!" (underline "important")))
|
||||||
|
|
||||||
(test-end "test-style")
|
(test-end "test-style")
|
||||||
|
|
Loading…
Reference in New Issue