X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=t%2Fexample.lisp;h=87c89f711d4a8c1a16f1cab405d10da3e9271c73;hb=9181201dc6822a12b605581385091b1591675dc4;hp=fadeafd85e75cdb43bd55f1ed37d3d6129efded6;hpb=9adc37ba6fbe512af2c83863e9f51461479678ed;p=fiveam.git

diff --git a/t/example.lisp b/t/example.lisp
index fadeafd..87c89f7 100644
--- a/t/example.lisp
+++ b/t/example.lisp
@@ -111,9 +111,12 @@
 
 (test dummy-strcat
   (for-all ((result (gen-string))
-            (split-point (gen-integer :min 0 :max 80)
+            (split-point (gen-integer :min 0 :max 10000)
                          (< split-point (length result))))
     (is (string= result (dummy-strcat (subseq result 0 split-point)
                                       (subseq result split-point))))))
 
-(5am:run! 'dummy-strcat)
\ No newline at end of file
+(test random-failure
+  (for-all ((result (gen-integer :min 0 :max 1)))
+    (is (plusp result))
+    (is (= result 0))))