Permalink
Browse files

provide void default implementations for most test production generics

  • Loading branch information...
1 parent 12e5b58 commit ff3027e551f4075160cc54e16c37e81e59cd1a96 @e-user committed Jul 28, 2010
Showing with 7 additions and 2 deletions.
  1. +7 −2 src/producer.lisp
View
@@ -35,7 +35,8 @@ Reset the recorded number of tests run to zero."
(:method (producer stream)))
(defgeneric emit-plan (producer stream &key plan plan-argument &allow-other-keys)
(:documentation "A so-called test plan is used e.g. by TAP as a means of
-cross-checking proper test suite execution."))
+cross-checking proper test suite execution.")
+ (:method (producer stream &key plan plan-argument &allow-other-keys)))
(defgeneric emit-result (producer stream &key success description directive reason &allow-other-keys)
(:documentation "Emit the result from running an test / an assertion.")
(:method :before ((producer producer) stream &key success description directive reason &allow-other-keys)
@@ -44,7 +45,11 @@ cross-checking proper test suite execution."))
Increase the recorded number of tests by one."
(incf (tests-run producer))))
(defgeneric emit-comment (producer stream comment)
- (:documentation "Emit a comment, if available for this kind of producer."))
+ (:documentation "Emit a comment, if available for this kind of producer.")
+ (:method (producer stream comment)))
+(defgeneric emit-bailout (producer stream &optional reason)
+ (:documentation "Emit a bail-out, if available for this kind of producer.")
+ (:method (producer stream &optional reason)))
(defgeneric finalize-test (producer stream)
(:documentation "Emit final test output.")
(:method (producer stream)))

0 comments on commit ff3027e

Please sign in to comment.