add some style tests

2024-02-09 20:56:05 -05:00 · 2024-02-09 20:56:05 -05:00 · b26aedbe87
parent a230eb9f10
commit b26aedbe87
1 changed files with 12 additions and 0 deletions
--- a/tests/test-style.scm
+++ b/tests/test-style.scm
@ -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")