Added :default and :error arguments to get-test (instead of just an &optional default...

[fiveam.git] / src / classes.lisp

diff --git a/src/classes.lisp b/src/classes.lisp
index dd33429..7404c49 100644 (file)
--- a/src/classes.lisp
+++ b/src/classes.lisp
@@ -28,6 +28,10 @@
                            information will be collected when the
                            test is run.")))
 
+(defgeneric testable-object-p (object)
+  (:method ((object testable-object)) t)
+  (:method ((object t)) nil))
+
 (defmethod print-object ((test testable-object) stream)
   (print-unreadable-object (test stream :type t :identity t)
     (format stream "~S" (name test))))