projects
/
fiveam.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Test output goes to *TEST-DRIBBLE*
[fiveam.git]
/
src
/
run.lisp
diff --git
a/src/run.lisp
b/src/run.lisp
index
8acdd5e
..
d9b8c5f
100644
(file)
--- a/
src/run.lisp
+++ b/
src/run.lisp
@@
-39,6
+39,9
@@
(defparameter *debug-on-failure* nil
"T if we should drop into a debugger on a failing check, NIL otherwise.")
(defparameter *debug-on-failure* nil
"T if we should drop into a debugger on a failing check, NIL otherwise.")
+(defparameter *print-names* t
+ "T if we should print test running progress, NIL otherwise.")
+
(defun import-testing-symbols (package-designator)
(import '(5am::is 5am::is-true 5am::is-false 5am::signals 5am::finishes)
package-designator))
(defun import-testing-symbols (package-designator)
(import '(5am::is 5am::is-true 5am::is-false 5am::signals 5am::finishes)
package-designator))
@@
-184,12
+187,16
@@
run."))
!!, !!!"))
(defmethod %run ((test test-case))
!!, !!!"))
(defmethod %run ((test test-case))
+ (when *print-names*
+ (format *test-dribble* "~% Running test ~A " (name test)))
(run-resolving-dependencies test))
(defmethod %run ((tests list))
(mapc #'%run tests))
(defmethod %run ((suite test-suite))
(run-resolving-dependencies test))
(defmethod %run ((tests list))
(mapc #'%run tests))
(defmethod %run ((suite test-suite))
+ (when *print-names*
+ (format *test-dribble* "~%Running test suite ~A~%" (name suite)))
(let ((suite-results '()))
(flet ((run-tests ()
(loop
(let ((suite-results '()))
(flet ((run-tests ()
(loop
@@
-220,7
+227,8
@@
run."))
;;;; ** Public entry points
;;;; ** Public entry points
-(defun run! (&optional (test-spec *suite*))
+(defun run! (&optional (test-spec *suite*)
+ &key ((:print-names *print-names*) *print-names*))
"Equivalent to (explain! (run TEST-SPEC))."
(explain! (run test-spec)))
"Equivalent to (explain! (run TEST-SPEC))."
(explain! (run test-spec)))
@@
-235,7
+243,7
@@
detailed-text-explainer with output going to *test-dribble*"
(*debug-on-failure* t))
(run! test-spec)))
(*debug-on-failure* t))
(run! test-spec)))
-(defun run (test-spec)
+(defun run (test-spec &key ((:print-names *print-names*) *print-names*))
"Run the test specified by TEST-SPEC.
TEST-SPEC can be either a symbol naming a test or test suite, or
"Run the test specified by TEST-SPEC.
TEST-SPEC can be either a symbol naming a test or test suite, or