/[gcl]/gcl/ansi-tests/copy-seq.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/copy-seq.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by pfdietz, Tue Sep 21 13:07:10 2004 UTC revision 1.11 by pfdietz, Sat Sep 25 15:08:57 2004 UTC
# Line 170  Line 170 
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

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26