/[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.1 by pfdietz, Thu Sep 26 16:53:38 2002 UTC revision 1.2 by pfdietz, Wed Oct 23 03:10:23 2002 UTC
# Line 168  Line 168 
168  ;;; Tests for errors  ;;; Tests for errors
169    
170  (deftest make-sequence-error.1  (deftest make-sequence-error.1
171    (handler-case (make-sequence 'symbol 10)    (classify-error (make-sequence 'symbol 10))
172                  (type-error () :caught))    type-error)
   :caught)  
173    
174  (deftest make-sequence-error.2  (deftest make-sequence-error.2
175    (handler-case (make-sequence 'null 1)    (classify-error (make-sequence 'null 1))
176                  (type-error () :caught))    type-error)
   :caught)  
177    
178  (deftest make-sequence-error.3  (deftest make-sequence-error.3
179    (handler-case (make-sequence '(vector * 4) 3)    (classify-error (make-sequence '(vector * 4) 3))
180                  (type-error () :caught))    type-error)
   :caught)  
181    
182  (deftest make-sequence-error.4  (deftest make-sequence-error.4
183    (handler-case (make-sequence '(vector * 2) 3)    (classify-error (make-sequence '(vector * 2) 3))
184                  (type-error () :caught))    type-error)
   :caught)  
185    
186  (deftest make-sequence-error.5  (deftest make-sequence-error.5
187    (handler-case (make-sequence '(string 4) 3)    (classify-error (make-sequence '(string 4) 3))
188                  (type-error () :caught))    type-error)
   :caught)  
189    
190  (deftest make-sequence-error.6  (deftest make-sequence-error.6
191    (handler-case (make-sequence '(simple-string 2) 3)    (classify-error (make-sequence '(simple-string 2) 3))
192                  (type-error () :caught))    type-error)
   :caught)  
193    
194  (deftest make-sequence-error.7  (deftest make-sequence-error.7
195    (handler-case (make-sequence 'cons 0)    (classify-error (make-sequence 'cons 0))
196                  (type-error () :caught))    type-error)
   :caught)  

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

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