From 948e50d0d7d15ec6e0dbc08e1991fc8094ebc5ed Mon Sep 17 00:00:00 2001 From: vaclavt Date: Mon, 10 Jan 2022 20:28:50 +0100 Subject: [PATCH] new test file --- tests/test_term.lsp | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 tests/test_term.lsp 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))) " " + ))