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

Fixed problem in array printing tests with complex element types observed by SH and DR.

parent 4a04ca09
No related branches found
No related tags found
No related merge requests found
...@@ -87,7 +87,7 @@ ...@@ -87,7 +87,7 @@
(deftest print.array.0.12 (deftest print.array.0.12
(loop for type0 in '(short-float single-float double-float long-float float) (loop for type0 in '(short-float single-float double-float long-float float)
for type = `(complex ,type0) for type = `(complex ,type0)
for zero = (complex (coerce 0 type0)) for zero = (complex (coerce 0.0s0 type0))
for a = (make-array nil :initial-element zero for a = (make-array nil :initial-element zero
:element-type type) :element-type type)
nconc nconc
...@@ -133,7 +133,7 @@ ...@@ -133,7 +133,7 @@
long-float float real) long-float float real)
for type = `(complex ,type0) for type = `(complex ,type0)
for a = (make-array nil :element-type type for a = (make-array nil :element-type type
:initial-element (complex (coerce 3 type0))) :initial-element (complex 0 (coerce 3 type0)))
for result = (write-to-string a :readably nil :array nil) for result = (write-to-string a :readably nil :array nil)
unless (string= (subseq result 0 2) "#<") unless (string= (subseq result 0 2) "#<")
collect (list type result)) collect (list type result))
...@@ -391,7 +391,7 @@ ...@@ -391,7 +391,7 @@
long-float float real) long-float float real)
for type = `(complex ,type0) for type = `(complex ,type0)
for a = (make-array '(13 5) :element-type type for a = (make-array '(13 5) :element-type type
:initial-element (complex (coerce 3 type0))) :initial-element (complex 0 (coerce 3 type0)))
for result = (write-to-string a :readably nil :array nil) for result = (write-to-string a :readably nil :array nil)
unless (string= (subseq result 0 2) "#<") unless (string= (subseq result 0 2) "#<")
collect (list type result)) collect (list type result))
......
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