33 |
|
|
34 |
(defmacro def-random-suppress-test (name &key |
(defmacro def-random-suppress-test (name &key |
35 |
(chars '*non-macro-chars*) |
(chars '*non-macro-chars*) |
36 |
(reps 10000) |
(reps 1000) |
37 |
(maxlen 8) |
(maxlen 8) |
38 |
(count 10) |
(count 10) |
39 |
(prefix "") |
(prefix "") |
56 |
for vals = (multiple-value-list |
for vals = (multiple-value-list |
57 |
(handler-case (read-from-string s) |
(handler-case (read-from-string s) |
58 |
(reader-error (rc) rc))) |
(reader-error (rc) rc))) |
59 |
repeat 10000 |
repeat reps |
60 |
unless (equal vals (list nil (length s))) |
unless (equal vals (list nil (length s))) |
61 |
collect (progn (when (> (incf count) maxcount) |
collect (progn (when (> (incf count) maxcount) |
62 |
(loop-finish)) |
(loop-finish)) |
63 |
(list n s vals)))) |
(list n s vals)))) |
64 |
nil)) |
nil)) |
|
|
|
65 |
|
|
66 |
(def-random-suppress-test read-suppress.13) |
(def-random-suppress-test read-suppress.13) |
67 |
(def-random-suppress-test read-suppress.14 :prefix "(" :suffix ")") |
(def-random-suppress-test read-suppress.14 :prefix "(" :suffix ")") |