/[gcl]/gcl/ansi-tests/make-sequence.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/make-sequence.lsp

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

revision 1.10 by pfdietz, Tue Sep 21 13:07:11 2004 UTC revision 1.11 by pfdietz, Sat Sep 25 15:08:58 2004 UTC
# Line 177  Line 177 
177    (equalp (make-sequence 'string 5) (make-string 5))    (equalp (make-sequence 'string 5) (make-string 5))
178    t)    t)
179    
180    (deftest make-sequence.27
181      (let ((len 10))
182        (loop for i from 1 to 40
183              for etype = `(unsigned-byte ,i)
184              for type = `(vector ,etype)
185              for vec = (make-sequence type len :initial-element 0)
186              unless (and (typep vec type)
187                          (loop for i below len always (eql (elt vec i) 0)))
188              collect (list i etype type vec)))
189      nil)
190    
191    (deftest make-sequence.28
192      (let ((len 10))
193        (loop for i from 1 to 40
194              for etype = `(signed-byte ,i)
195              for type = `(vector ,etype)
196              for vec = (make-sequence type len :initial-element 0)
197              unless (and (typep vec type)
198                          (loop for i below len always (eql (elt vec i) 0)))
199              collect (list i etype type vec)))
200      nil)
201    
202    (deftest make-sequence.29
203      (let ((len 10))
204        (loop for etype in '(short-float single-float double-float long-float)
205              for type = `(vector ,etype)
206              for elem = (coerce 1 etype)
207              for vec = (make-sequence type len :initial-element elem)
208              unless (and (typep vec type)
209                          (loop for i below len always (eql (elt vec i) elem)))
210              collect (list etype type vec)))
211      nil)
212    
213    (deftest make-sequence.30
214      (let ((len 10))
215        (loop for cetype in '(short-float single-float double-float long-float
216                                          integer rational)
217              for etype = `(complex ,cetype)
218              for type = `(vector ,etype)
219              for elem = (complex (coerce 1 cetype) (coerce -1 cetype))
220              for vec = (make-sequence type len :initial-element elem)
221              unless (and (typep vec type)
222                          (loop for i below len always (eql (elt vec i) elem)))
223              collect (list etype type vec)))
224      nil)
225    
226  ;;; Keyword tests  ;;; Keyword tests
227    
228  (deftest make-sequence.allow-other-keys.1  (deftest make-sequence.allow-other-keys.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