Commit 12b114ae authored by pfdietz's avatar pfdietz
Browse files

Modift print.array.2.21 to trim the failure list for readability.

parent 145d562a
......@@ -312,10 +312,14 @@
"#2A((3 8) (2 67))")
(deftest print.array.2.21
(loop for a = (make-array (list (random 4) (random 4))
:initial-element (- (random 1000000) 500000))
repeat 100 nconc (randomly-check-readability a :test #'is-similar
:can-fail t))
(trim-list
(loop
for dims = (list (random 4) (random 4))
for a = (make-array dims :initial-element (- (random 1000000) 500000))
repeat 100
nconc (let ((result (randomly-check-readability a :test #'is-similar :can-fail t)))
(and result (list (cons dims (first result))))))
10)
nil)
(deftest print.array.2.22
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment