Add the *verbose-failures* flag

[fiveam.git] / src / explain.lisp

diff --git a/src/explain.lisp b/src/explain.lisp
index 4e23e0e..bb76305 100644 (file)
--- a/src/explain.lisp
+++ b/src/explain.lisp
@@ -4,6 +4,9 @@
 
 ;;;; * Analyzing the results
 
+(defparameter *verbose-failures* nil
+  "T if we should print the expression failing, NIL otherwise.")
+
 ;;;; Just as important as defining and runnig the tests is
 ;;;; understanding the results. FiveAM provides the function EXPLAIN
 ;;;; which prints a human readable summary (number passed, number
@@ -35,6 +38,8 @@
        (format stream "~A ~@{[~A]~}: ~%" 
                (name (test-case f))
                (description (test-case f)))
+        (when (and *verbose-failures* (test-expr f))
+          (format stream "    ~S~%" (test-expr f)))
        (format stream "    ~A.~%" (reason f)))
       (terpri stream))
     (when skipped