From d213690dcb5968e7f69f754b6d00676b721737b0 Mon Sep 17 00:00:00 2001 From: Marco Baringer Date: Fri, 20 Jan 2006 10:29:56 +0100 Subject: [PATCH] Remove silly debugging forms from example.lisp --- t/example.lisp | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/t/example.lisp b/t/example.lisp index fadeafd..c1076d4 100644 --- a/t/example.lisp +++ b/t/example.lisp @@ -111,9 +111,13 @@ (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)))) + -- 1.7.10.4