/[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.12 by pfdietz, Sat Sep 25 20:32:52 2004 UTC revision 1.13 by pfdietz, Sun Sep 26 05:33:22 2004 UTC
# Line 245  Line 245 
245    (make-sequence '(simple-vector) 10 :initial-element nil)    (make-sequence '(simple-vector) 10 :initial-element nil)
246    #(nil nil nil nil nil nil nil nil nil nil))    #(nil nil nil nil nil nil nil nil nil nil))
247    
248    (deftest make-sequence.36
249      (make-sequence '(vector * *) 10 :initial-element nil)
250      #(nil nil nil nil nil nil nil nil nil nil))
251    
252  ;;; Keyword tests  ;;; Keyword tests
253    
# Line 276  Line 279 
279  ;;; Tests for errors  ;;; Tests for errors
280    
281  (deftest make-sequence.error.1  (deftest make-sequence.error.1
282    (signals-error (make-sequence 'symbol 10) type-error)    (signals-error-always (make-sequence 'symbol 10) type-error)
283    t)    t t)
284    
285  (deftest make-sequence.error.2  (deftest make-sequence.error.2
286    (signals-error (make-sequence 'null 1) type-error)    (signals-error (make-sequence 'null 1) type-error)
# Line 330  Line 333 
333    t)    t)
334    
335  (deftest make-sequence.error.14  (deftest make-sequence.error.14
336    (signals-error (locally (make-sequence 'symbol 10) t)    (signals-error-always (locally (make-sequence 'symbol 10) t)
337                   type-error)                          type-error)
338      t t)
339    
340    (deftest make-sequence.error.15
341      (if (subtypep '(or (vector bit) (vector t)) 'vector)
342          (signals-error (make-sequence '(or (vector bit) (vector t)) 10 :initial-element 0) type-error)
343        t)
344    t)    t)
345    
346  ;;; Order of execution tests  ;;; Order of execution tests

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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