Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
3133c1f7
Commit
3133c1f7
authored
Jan 17, 2005
by
pfdietz
Browse files
Reduce rep count to 1000 in three random tests
parent
9baf6af8
Changes
1
Show whitespace changes
Inline
Side-by-side
ansi-tests/read-suppress.lsp
View file @
3133c1f7
...
...
@@ -33,7 +33,7 @@
(defmacro def-random-suppress-test (name &key
(chars '*non-macro-chars*)
(reps 1000
0
)
(reps 1000)
(maxlen 8)
(count 10)
(prefix "")
...
...
@@ -56,14 +56,13 @@
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))
(def-random-suppress-test read-suppress.13)
(def-random-suppress-test read-suppress.14 :prefix "(" :suffix ")")
(def-random-suppress-test read-suppress.15 :prefix "#(" :suffix ")")
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment