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

array-rank-limit may be as small as 8. Fix two tests that assumed otherwise.

parent af352874
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
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