From 1cd3b2403660569e2983ce646fbf0d364fbfefe5 Mon Sep 17 00:00:00 2001
From: Owen Rodley <Strigoides@gmail.com>
Date: Sun, 28 Apr 2013 13:28:11 +1200
Subject: [PATCH] Colorize test output Failures show up in red, and unexpected
 successes in orange

---
 tests.lisp |    8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

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."))
-- 
1.7.10.4