X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=t%2Fexample.lisp;fp=t%2Fexample.lisp;h=b831aecc443f8409ac4f3adbe0d67326deabba53;hb=7eaa508b294d8a3d3fa96c1b9ef78f45feec8417;hp=c1076d4a05c9b37cb2f5c52bde104ac76aa2fcbd;hpb=d213690dcb5968e7f69f754b6d00676b721737b0;p=fiveam.git

diff --git a/t/example.lisp b/t/example.lisp
index c1076d4..b831aec 100644
--- 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)))