solarpunk-guile/guile-termenv
3
0
Fork 1
Code Issues Pull requests Releases 1 Activity

add some style tests

Browse source
This commit is contained in:
Vivianne 2024-02-09 20:56:05 -05:00
parent a230eb9f10
commit b26aedbe87
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
tests/test-style.scm
View file

@ -12,4 +12,16 @@
"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")