/[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.2 by pfdietz, Wed Oct 23 03:10:23 2002 UTC revision 1.3 by pfdietz, Mon Jan 13 14:11:50 2003 UTC
# Line 167  Line 167 
167    
168  ;;; Tests for errors  ;;; Tests for errors
169    
170  (deftest make-sequence-error.1  (deftest make-sequence.error.1
171    (classify-error (make-sequence 'symbol 10))    (classify-error (make-sequence 'symbol 10))
172    type-error)    type-error)
173    
174  (deftest make-sequence-error.2  (deftest make-sequence.error.2
175    (classify-error (make-sequence 'null 1))    (classify-error (make-sequence 'null 1))
176    type-error)    type-error)
177    
178  (deftest make-sequence-error.3  (deftest make-sequence.error.3
179    (classify-error (make-sequence '(vector * 4) 3))    (classify-error (make-sequence '(vector * 4) 3))
180    type-error)    type-error)
181    
182  (deftest make-sequence-error.4  (deftest make-sequence.error.4
183    (classify-error (make-sequence '(vector * 2) 3))    (classify-error (make-sequence '(vector * 2) 3))
184    type-error)    type-error)
185    
186  (deftest make-sequence-error.5  (deftest make-sequence.error.5
187    (classify-error (make-sequence '(string 4) 3))    (classify-error (make-sequence '(string 4) 3))
188    type-error)    type-error)
189    
190  (deftest make-sequence-error.6  (deftest make-sequence.error.6
191    (classify-error (make-sequence '(simple-string 2) 3))    (classify-error (make-sequence '(simple-string 2) 3))
192    type-error)    type-error)
193    
194  (deftest make-sequence-error.7  (deftest make-sequence.error.7
195    (classify-error (make-sequence 'cons 0))    (classify-error (make-sequence 'cons 0))
196    type-error)    type-error)
197    
198    (deftest make-sequence.error.8
199      (classify-error (make-sequence))
200      program-error)
201    
202    (deftest make-sequence.error.9
203      (classify-error (make-sequence 'list))
204      program-error)
205    
206    (deftest make-sequence.error.10
207      (classify-error (make-sequence 'list 10 :bad t))
208      program-error)
209    
210    (deftest make-sequence.error.11
211      (classify-error (make-sequence 'list 10 :bad t :allow-other-keys nil))
212      program-error)
213    
214    (deftest make-sequence.error.12
215      (classify-error (make-sequence 'list 10 :initial-element))
216      program-error)
217    
218    (deftest make-sequence.error.13
219      (classify-error (make-sequence 'list 10 0 0))
220      program-error)
221    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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