Fix test colorization

diff --git a/tests.html b/tests.html
index bd02338..92a5f13 100644 (file)
--- 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 (file)
--- 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))