Skip to content
Snippets Groups Projects
Commit 3133c1f7 authored by pfdietz's avatar pfdietz
Browse files

Reduce rep count to 1000 in three random tests

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