170 |
(assert (equal (array-element-type s) (array-element-type s2))))) |
(assert (equal (array-element-type s) (array-element-type s2))))) |
171 |
nil) |
nil) |
172 |
|
|
173 |
|
;;; Specialized vector tests |
174 |
|
|
175 |
|
(deftest copy-seq.21 |
176 |
|
(let ((v0 #(1 1 0 1 1 2))) |
177 |
|
(do-special-integer-vectors |
178 |
|
(v v0 nil) |
179 |
|
(let ((v2 (copy-seq v))) |
180 |
|
(assert (typep v2 'simple-array)) |
181 |
|
(assert (equalp v v2)) |
182 |
|
(assert (equalp v v0)) |
183 |
|
(assert (equal (array-element-type v) (array-element-type v2)))))) |
184 |
|
nil) |
185 |
|
|
186 |
|
(deftest copy-seq.22 |
187 |
|
(let ((v0 #(-1 1 1 0 1 -1 0))) |
188 |
|
(do-special-integer-vectors |
189 |
|
(v v0 nil) |
190 |
|
(let ((v2 (copy-seq v))) |
191 |
|
(assert (typep v2 'simple-array)) |
192 |
|
(assert (equalp v v2)) |
193 |
|
(assert (equalp v v0)) |
194 |
|
(assert (equal (array-element-type v) (array-element-type v2)))))) |
195 |
|
nil) |
196 |
|
|
197 |
|
(deftest copy-seq.23 |
198 |
|
(loop for type in '(short-float single-float long-float double-float) |
199 |
|
for len = 10 |
200 |
|
for vals = (loop for i from 1 to len collect (coerce i type)) |
201 |
|
for vec = (make-array len :element-type type :initial-contents vals) |
202 |
|
for result = (copy-seq vec) |
203 |
|
unless (and (= (length result) len) |
204 |
|
(equal (array-element-type vec) (array-element-type result)) |
205 |
|
(equalp vec result)) |
206 |
|
collect (list type vals result)) |
207 |
|
nil) |
208 |
|
|
209 |
|
(deftest copy-seq.24 |
210 |
|
(loop for etype in '(short-float single-float long-float double-float) |
211 |
|
for type = `(complex ,etype) |
212 |
|
for len = 10 |
213 |
|
for vals = (loop for i from 1 to len collect (complex (coerce i etype) |
214 |
|
(coerce (- i) etype))) |
215 |
|
for vec = (make-array len :element-type type :initial-contents vals) |
216 |
|
for result = (copy-seq vec) |
217 |
|
unless (and (= (length result) len) |
218 |
|
(equal (array-element-type vec) (array-element-type result)) |
219 |
|
(equalp vec result)) |
220 |
|
collect (list type vals result)) |
221 |
|
nil) |
222 |
|
|
223 |
;;; Order of evaluation test |
;;; Order of evaluation test |
224 |
|
|
225 |
(deftest copy-seq.order.1 |
(deftest copy-seq.order.1 |