projects
/
fiveam.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
45089ea
)
Add docstring to EXPLAIN
author
Stelian Ionescu
<sionescu@cddr.org>
Mon, 23 Apr 2012 10:53:11 +0000
(12:53 +0200)
committer
Stelian Ionescu
<sionescu@cddr.org>
Mon, 23 Apr 2012 10:53:11 +0000
(12:53 +0200)
src/explain.lisp
patch
|
blob
|
history
diff --git
a/src/explain.lisp
b/src/explain.lisp
index
12e5e1f
..
e29b676
100644
(file)
--- a/
src/explain.lisp
+++ b/
src/explain.lisp
@@
-12,12
+12,12
@@
;;;; which prints a human readable summary (number passed, number
;;;; failed, what failed and why, etc.) of a list of test results.
;;;; 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))
+(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))
(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%
(multiple-value-bind (num-checks passed num-passed passed%
skipped num-skipped skipped%
failed num-failed failed%