From 3133c1f7a154d38dd2ab15e06818c2f416cf848c Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Mon, 17 Jan 2005 01:55:58 +0000 Subject: [PATCH] Reduce rep count to 1000 in three random tests --- ansi-tests/read-suppress.lsp | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/ansi-tests/read-suppress.lsp b/ansi-tests/read-suppress.lsp index 9644149d..edb4e703 100644 --- a/ansi-tests/read-suppress.lsp +++ b/ansi-tests/read-suppress.lsp @@ -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 ")") -- GitLab