Print failures and errors during tests if requested.
authorThomas M. Hermann <thomas.m.hermann@odonata-research.com>
Thu, 22 Nov 2012 20:22:04 +0000 (22 14:22 -0600)
committerThomas M. Hermann <thomas.m.hermann@odonata-research.com>
Thu, 22 Nov 2012 20:22:04 +0000 (22 14:22 -0600)
lisp-unit.lisp

index 1e35baa..491201a 100644 (file)
@@ -642,6 +642,8 @@ 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)))
 
@@ -657,6 +659,8 @@ 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)))