Added *num-trials*, *max-trials* and checking of whether the test code is ever run...

[fiveam.git] / t / example.lisp

diff --git a/t/example.lisp b/t/example.lisp
index c1076d4..b831aec 100644 (file)
--- a/t/example.lisp
+++ b/t/example.lisp
@@ -121,3 +121,6 @@
     (is (plusp result))
     (is (= result 0))))
 
+(test fail-guard-conditions
+  (for-all ((x (gen-integer :min 1 :max 1) (= x 0)))
+    (pass)))