Update print-error to work with result objects.
authorThomas M. Hermann <thomas.m.hermann@odonata-research.com>
Thu, 22 Nov 2012 19:25:28 +0000 (22 13:25 -0600)
committerThomas M. Hermann <thomas.m.hermann@odonata-research.com>
Thu, 22 Nov 2012 19:25:28 +0000 (22 13:25 -0600)
lisp-unit.lisp

index d136332..c01a483 100644 (file)
@@ -723,10 +723,16 @@ assertion.")
 (defmethod print-error ((result test-result))
   "Print the error condition."
   (let ((*print-escape* nil))
-    (format t "~& | Execution error:~% | ~W" (condition result))
+    (format t "~& | Execution error:~% | ~W" (exerr result))
     (format t "~& |~%")
     (print-summary result)))
 
+(defmethod print-error ((results test-results-db))
+  "Print all of the error tests."
+  (loop with db = (database results)
+        for test in (error-tests results) do
+        (print-error (gethash test db))))
+
 ;;; Useful equality predicates for tests
 
 ;;; (LOGICALLY-EQUAL x y) => true or false