Commit 3133c1f7 authored by pfdietz's avatar pfdietz
Browse files

Reduce rep count to 1000 in three random tests

parent 9baf6af8
...@@ -33,7 +33,7 @@ ...@@ -33,7 +33,7 @@
(defmacro def-random-suppress-test (name &key (defmacro def-random-suppress-test (name &key
(chars '*non-macro-chars*) (chars '*non-macro-chars*)
(reps 10000) (reps 1000)
(maxlen 8) (maxlen 8)
(count 10) (count 10)
(prefix "") (prefix "")
...@@ -56,13 +56,12 @@ ...@@ -56,13 +56,12 @@
for vals = (multiple-value-list for vals = (multiple-value-list
(handler-case (read-from-string s) (handler-case (read-from-string s)
(reader-error (rc) rc))) (reader-error (rc) rc)))
repeat 10000 repeat reps
unless (equal vals (list nil (length s))) unless (equal vals (list nil (length s)))
collect (progn (when (> (incf count) maxcount) collect (progn (when (> (incf count) maxcount)
(loop-finish)) (loop-finish))
(list n s vals)))) (list n s vals))))
nil)) nil))
(def-random-suppress-test read-suppress.13) (def-random-suppress-test read-suppress.13)
(def-random-suppress-test read-suppress.14 :prefix "(" :suffix ")") (def-random-suppress-test read-suppress.14 :prefix "(" :suffix ")")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment