Return the actual condition instead of :error.
authorThomas M. Hermann <thomas.m.hermann@odonata-research.com>
Wed, 31 Oct 2012 01:51:30 +0000 (30 20:51 -0500)
committerThomas M. Hermann <thomas.m.hermann@odonata-research.com>
Wed, 31 Oct 2012 01:51:30 +0000 (30 20:51 -0500)
lisp-unit.lisp

index f30d769..70ace4f 100644 (file)
@@ -506,14 +506,13 @@ assertion.")
       (incf (fail results) fail)
       (push test-name (failed-tests results)))
     ;; Count errors and record name
-    (when (eq :error exerr)
+    (when exerr
       (incf (exerr results))
       (push test-name (error-tests results)))
     ;; Print a summary of the results
     (when (or *print-summary* *print-failures* *print-errors*)
       (print-summary
-       test-name pass fail
-       (when (eq :error exerr) 1)))))
+       test-name pass fail (when exerr 1)))))
 
 (defun summarize-results (results)
   "Print a summary of all results."
@@ -543,7 +542,7 @@ assertion.")
                   (if (use-debugger-p condition)
                       condition
                       (return-from run-test-thunk
-                        (values *pass* *fail* :error condition))))))
+                        (values *pass* *fail* condition))))))
       (run-code code))
     ;; Return the result count
     (values *pass* *fail* nil)))