/[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.14 by pfdietz, Sun Sep 26 16:20:30 2004 UTC revision 1.15 by pfdietz, Tue Sep 28 01:16:17 2004 UTC
# Line 299  Line 299 
299    (make-sequence '(simple-bit-vector 5) 5 :initial-element 0)    (make-sequence '(simple-bit-vector 5) 5 :initial-element 0)
300    #*00000)    #*00000)
301    
302    (deftest make-sequence.49
303      (if (subtypep (class-of nil) 'sequence)
304          (make-sequence (class-of nil) 0)
305        nil)
306      nil)
307    
308    (deftest make-sequence.50
309      (if (subtypep (class-of '(nil nil nil)) 'sequence)
310          (make-sequence (class-of '(nil nil nil)) 3 :initial-element nil)
311        '(nil nil nil))
312      (nil nil nil))
313    
314    (deftest make-sequence.51
315      (loop for i from 1 to 40
316            for vec = (make-array 1 :element-type `(unsigned-byte ,i)
317                                  :initial-element 1)
318            for class = (class-of vec)
319            nconc
320            (if (subtypep class 'vector)
321                (let ((vec2 (make-sequence class 1 :initial-element 1)))
322                  (unless (equalp vec vec)
323                    (list (list i vec class vec2))))
324              nil))
325      nil)
326    
327    (deftest make-sequence.52
328      (let ((class (class-of "aaaa")))
329        (if (subtypep class 'vector)
330            (make-sequence class 4 :initial-element #\a)
331          "aaaa"))
332      "aaaa")
333    
334    (deftest make-sequence.53
335      (let ((class (class-of (make-array 4 :element-type 'base-char
336                                         :fill-pointer 4
337                                         :adjustable t
338                                         :initial-contents "aaaa"))))
339        (if (subtypep class 'vector)
340            (make-sequence class 4 :initial-element #\a)
341          "aaaa"))
342      "aaaa")
343    
344    (deftest make-sequence.54
345      (let ((class (class-of (make-array 4 :element-type 'character
346                                         :fill-pointer 4
347                                         :adjustable t
348                                         :initial-contents "aaaa"))))
349        (if (subtypep class 'vector)
350            (make-sequence class 4 :initial-element #\a)
351          "aaaa"))
352      "aaaa")
353    
354    (deftest make-sequence.55
355      (let ((class (class-of (make-array 4 :element-type 'character
356                                         :initial-contents "aaaa"))))
357        (if (subtypep class 'vector)
358            (make-sequence class 4 :initial-element #\a)
359          "aaaa"))
360      "aaaa")
361    
362    (deftest make-sequence.56
363      (loop for i from 1 to 40
364            for vec = (make-array 1 :element-type `(unsigned-byte ,i)
365                                  :adjustable t :fill-pointer 1
366                                  :initial-element 1)
367            for class = (class-of vec)
368            nconc
369            (if (subtypep class 'vector)
370                (let ((vec2 (make-sequence class 1 :initial-element 1)))
371                  (unless (equalp vec vec)
372                    (list (list i vec class vec2))))
373              nil))
374      nil)
375    
376    (deftest make-sequence.57
377      (make-sequence (find-class 'list) 4 :initial-element 'x)
378      (x x x x))
379    
380    (deftest make-sequence.58
381      (make-sequence (find-class 'cons) 4 :initial-element 'x)
382      (x x x x))
383    
384  ;;; Keyword tests  ;;; Keyword tests
385    
386  (deftest make-sequence.allow-other-keys.1  (deftest make-sequence.allow-other-keys.1
# Line 393  Line 475 
475      t)      t)
476    t)    t)
477    
478    (deftest make-sequence.error.16
479      (signals-error-always (make-sequence (find-class 'integer) 0) type-error)
480      t t)  
481    
482  ;;; Order of execution tests  ;;; Order of execution tests
483    
484  (deftest make-sequence.order.1  (deftest make-sequence.order.1

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

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