Permalink
Browse files

Small tweak

  • Loading branch information...
1 parent 355efb7 commit 2bb4e170f3f0581d4bcdfdb07fb8ab01446cf086 @adlai committed Sep 1, 2009
Showing with 1 addition and 1 deletion.
  1. +1 −1 tests/tests.lisp
View
@@ -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))))

0 comments on commit 2bb4e17

Please sign in to comment.