diff --git a/tests/test-style.scm b/tests/test-style.scm
index a441de0..92576d3 100644
--- 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")