Small tweak

adlai · Sep 1, 2009 · 2bb4e17 · 2bb4e17
1 parent 355efb7
commit 2bb4e17
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/tests.lisp b/tests/tests.lisp
@@ -215,7 +215,7 @@
     (is (stringp s)))
   (for-all ((s (gen-string :length (gen-integer :min 0 :max 2))))
     (is (<= (length s) 2)))
-  (for-all ((s (gen-string :elements (gen-character :code (gen-integer :min 0 :max 0))
+  (for-all ((s (gen-string :elements (constantly (code-char 0))
                            :length (constantly 2))))
     (is (= 2 (length s)))
     (is (every (curry #'char= #\Null) s))))