-;; -*- lisp -*-
+;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*-
(in-package :it.bese.fiveam)
;;;; which prints a human readable summary (number passed, number
;;;; failed, what failed and why, etc.) of a list of test results.
+(defgeneric explain (explainer results &optional stream recursive-depth)
+ (:documentation "Given a list of test results report write to stream detailed
+ human readable statistics regarding the results."))
+
(defmethod explain ((exp detailed-text-explainer) results
&optional (stream *test-dribble*) (recursive-depth 0))
- #| "Given a list of test results report write to stream detailed
- human readable statistics regarding the results." |#
(multiple-value-bind (num-checks passed num-passed passed%
skipped num-skipped skipped%
failed num-failed failed%
(name (test-case f))
(description (test-case f)))
(output " ~A.~%" (reason f)))
- (terpri *test-dribble*)))))
+ (terpri stream)))))
(defmethod explain ((exp simple-text-explainer) results
&optional (stream *test-dribble*) (recursive-depth 0))