From: Thomas M. Hermann <thomas.m.hermann@odonata-research.com>
Date: Wed, 31 Oct 2012 01:51:30 +0000 (-0500)
Subject: Return the actual condition instead of :error.
X-Git-Tag: 0.9.4~10^2~1
X-Git-Url: https://repo.or.cz/w/lisp-unit.git/commitdiff_plain/8d87b3a2ca769c70a6d77cdce99dc035acdea094

Return the actual condition instead of :error.
---

diff --git a/lisp-unit.lisp b/lisp-unit.lisp
index f30d769..70ace4f 100644
--- a/lisp-unit.lisp
+++ b/lisp-unit.lisp
@@ -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)))