diff --git a/tests/test_term.lsp b/tests/test_term.lsp
new file mode 100644
index 0000000..88365c8
--- /dev/null
+++ b/tests/test_term.lsp
@@ -0,0 +1,18 @@
+(include "/usr/local/var/mlisp/terminal.lsp")
+
+(print (term-red "red text"))
+(print (term-green "green text"))
+(print (term-yellow "yellow text"))
+(print (term-blue "blue text"))
+(print (term-magenta "magenta text"))
+(print (term-cyan "cyan text"))
+(print (term-white "white text"))
+(print (term-bold "bold text"))
+(print (term-underline "underline text"))
+(print "normal text")
+
+(print (+ (term-red (sprintf "%.2f" (list 1.11))) "  "          
+          (term-green (sprintf "%.2f" (list 1.11))) " "
+          (term-blue (sprintf "%.2f" (list 1.11))) " "
+          (term-yellow (sprintf "%.2f" (list 1.11))) " "
+    ))