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
ac9c057c
Commit
ac9c057c
authored
Jun 08, 2004
by
pfdietz
Browse files
array-rank-limit may be as small as 8. Fix two tests that assumed otherwise.
parent
af352874
Changes
1
Show whitespace changes
Inline
Side-by-side
ansi-tests/print-array.lsp
View file @
ac9c057c
...
...
@@ -416,7 +416,9 @@
(deftest print.array.multi-dim.1
(with-standard-io-syntax
(loop for d in '(4 5 6 7 8 9 10 12 16 20 30 40 100 200 400 600 800 1023)
(loop for d in (remove array-rank-limit
'(4 5 6 7 8 9 10 12 16 20 30 40 100 200 400 600 800 1023)
:test #'<=)
for dims = (make-list d :initial-element 1)
for a = (make-array dims :initial-element 0)
for result = (with-standard-io-syntax
...
...
@@ -433,7 +435,7 @@
(deftest print.array.multi-dim.2
(with-standard-io-syntax
(loop for d = (+ 4 (random
1020
))
(loop for d = (+ 4 (random
(min (- array-rank-limit 4) 1000)
))
for p = (random d)
for dims = (let ((list (make-list d :initial-element 1)))
(setf (elt list p) 0)
...
...
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