From 9bb6ab173dad9d309e7f7299193959328defdfa9 Mon Sep 17 00:00:00 2001
From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Mon, 9 Apr 2012 12:14:59 +0300
Subject: more expressive test results for STRING= tests

  A bit ugly, but...
---
 test/tests.lisp | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/test/tests.lisp b/test/tests.lisp
index 88cbc6d..bbd2294 100644
--- a/test/tests.lisp
+++ b/test/tests.lisp
@@ -134,7 +134,15 @@ tests succeeded."
               (let ((form (or (read stream nil) (done))))
                 (when verbose
                   (format t "~&~S" form))
-                (cond ((eval form) nil)
+                (cond ((and (consp form) (eq 'string= (car form))
+                            (stringp (third form)))
+                       (destructuring-bind (gen expected) (cdr form)
+                         (let ((actual (eval gen)))
+                           (unless (string= actual expected)
+                             (list (format nil "~@<~:@_    ~2:I~S~:@_Expected: ~S~
+                                                                 ~@:_  Actual: ~S~:>"
+                                           form expected actual))))))
+                      ((eval form) nil)
                       (t (list (format nil "~S returned NIL" form)))))))
         (setf (html-mode) html-mode)))))
 
-- 
cgit v1.2.3