From b26aedbe87a54c9f47ef3e4b7f5a4c4add4f733e Mon Sep 17 00:00:00 2001 From: Vivianne Langdon Date: Fri, 9 Feb 2024 20:56:05 -0500 Subject: [PATCH] add some style tests --- tests/test-style.scm | 12 ++++++++++++ 1 file changed, 12 insertions(+) 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")