From f2124293ac45dae4de7b6d36485c39c9d79644b8 Mon Sep 17 00:00:00 2001
From: =?utf8?q?David=20V=C3=A1zquez?= <davazp@gmail.com>
Date: Sat, 4 May 2013 12:59:34 +0100
Subject: [PATCH] Fix test colorization

---
 tests.html |    2 +-
 tests.lisp |    4 ++++
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/tests.html b/tests.html
index bd02338..92a5f13 100644
--- a/tests.html
+++ b/tests.html
@@ -67,7 +67,7 @@
     <script>
       var jqconsole = $('#console').jqconsole();
       lisp.write = function(str){
-           jqconsole.Write(str, 'jqconsole-output', false);
+           jqconsole.Write(xstring(str), 'jqconsole-output', false);
            return str;
       };
     </script>
diff --git a/tests.lisp b/tests.lisp
index d7d6412..4c741c6 100644
--- a/tests.lisp
+++ b/tests.lisp
@@ -33,5 +33,9 @@
         (incf *expected-failures*)))
      (incf *total-tests*)))
 
+(defmacro test-equal (form value)
+  `(test (equal ,form, value)))
+
+
 (format t "Running tests...~%~%")
 (setq *timestamp* (get-internal-real-time))
-- 
1.7.10.4