From: David Vázquez <davazp@gmail.com>
Date: Sat, 4 May 2013 11:59:34 +0000 (+0100)
Subject: Fix test colorization
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=f2124293ac45dae4de7b6d36485c39c9d79644b8;p=jscl.git

Fix test colorization
---

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))