From: Owen Rodley <Strigoides@gmail.com>
Date: Sun, 28 Apr 2013 01:28:11 +0000 (+1200)
Subject: Colorize test output
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=1cd3b2403660569e2983ce646fbf0d364fbfefe5;p=jscl.git

Colorize test output
Failures show up in red, and unexpected successes in orange
---

diff --git a/tests.lisp b/tests.lisp
index 8fcd862..6fce25e 100644
--- a/tests.lisp
+++ b/tests.lisp
@@ -14,7 +14,9 @@
         (write-line ,(concat "Test `" (prin1-to-string condition) "' passed"))
         (incf *passed-tests*))
        (t
-        (write-line ,(concat "Test `" (prin1-to-string condition) "' failed."))
+        (write-line ,(concat "<font color=red>Test `"
+                             (prin1-to-string condition) 
+                             "' failed.</font>"))
         (incf *failed-tests*)))
      (incf *total-tests*)))
 
@@ -22,7 +24,9 @@
   `(progn
      (cond
        (,condition
-        (write-line ,(concat "Test `" (prin1-to-string condition) "' passed unexpectedly!"))
+        (write-line ,(concat "<font color=orange>Test `"
+                             (prin1-to-string condition)
+                             "' passed unexpectedly!</font>"))
         (incf *unexpected-passes*))
        (t
         (write-line ,(concat "Test `" (prin1-to-string condition) "' failed expectedly."))