From: Thomas M. Hermann <thomas.m.hermann@odonata-research.com>
Date: Fri, 23 Nov 2012 01:34:53 +0000 (-0600)
Subject: Print failures and errors as test results are generated.
X-Git-Tag: 0.9.4~15
X-Git-Url: https://repo.or.cz/w/lisp-unit.git/commitdiff_plain/d0589af23cc3da65c9769d142d0ccd5fcfce22e6

Print failures and errors as test results are generated.
---

diff --git a/lisp-unit.lisp b/lisp-unit.lisp
index 491201a..a120784 100644
--- a/lisp-unit.lisp
+++ b/lisp-unit.lisp
@@ -614,7 +614,10 @@ assertion.")
     ;; Count errors and record the name
     (when (exerr result)
       (incf (exerr results))
-      (push test-name (error-tests results)))))
+      (push test-name (error-tests results)))
+    ;; Running output
+    (when *print-failures* (print-failure result))
+    (when *print-errors* (print-error result))))
 
 (defun summarize-results (results)
   "Print a summary of all results."
@@ -642,8 +645,6 @@ assertion.")
    (push test-name (missing-tests results))
    ;; Summarize and return the test results
    finally
-   (when *print-failures* (print-failure results))
-   (when *print-errors* (print-error results))
    (summarize-results results)
    (return results)))
 
@@ -659,8 +660,6 @@ assertion.")
    else do
    (push test-name (missing-tests results))
    finally
-   (when *print-failures* (print-failure results))
-   (when *print-errors* (print-error results))
    (summarize-results results)
    (return results)))
 
@@ -730,9 +729,11 @@ assertion.")
 
 (defmethod print-error ((result test-result))
   "Print the error condition."
-  (let ((*print-escape* nil))
-    (format t "~& | Execution error:~% | ~W" (exerr result))
-    (format t "~& |~%")
+  (let ((exerr (exerr result))
+        (*print-escape* nil))
+    (when exerr
+      (format t "~& | Execution error:~% | ~W" (exerr result))
+      (format t "~& |~%"))
     (print-summary result)))
 
 (defmethod print-error ((results test-results-db))