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

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

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

revision 1.6 by pfdietz, Wed Jan 21 10:17:03 2004 UTC revision 1.7 by pfdietz, Fri May 6 13:34:42 2005 UTC
# Line 254  Line 254 
254    t)    t)
255    
256  (deftest read-sequence.error.6  (deftest read-sequence.error.6
257    (signals-error    (check-type-error #'(lambda (x) (read-sequence x (make-string-input-stream "abc")))
258     (read-sequence 'a (make-string-input-stream "abc"))                      #'sequencep)
259     type-error)    nil)
   t)  
260    
261  (deftest read-sequence.error.7  (deftest read-sequence.error.7
262    (signals-error    (signals-error
# Line 267  Line 266 
266    
267  ;;; This test appears to cause Allegro CL to crash  ;;; This test appears to cause Allegro CL to crash
268  (deftest read-sequence.error.8  (deftest read-sequence.error.8
269    (signals-error    (signals-type-error x -1
270     (read-sequence (make-string 3) (make-string-input-stream "abc")                        (read-sequence (make-string 3)
271                    :start -1)                                       (make-string-input-stream "abc")
272                                         :start x))
    type-error)  
273    t)    t)
274    
275  (deftest read-sequence.error.9  (deftest read-sequence.error.9
276    (signals-error    (check-type-error #'(lambda (s)
277     (read-sequence (make-string 3) (make-string-input-stream "abc")                          (read-sequence (make-string 3) (make-string-input-stream "abc")
278                    :start 'a)                                         :start s))
279                        (typef 'unsigned-byte))
280     type-error)    nil)
   t)  
281    
282  (deftest read-sequence.error.10  (deftest read-sequence.error.10
283    (signals-error    (signals-type-error x -1
284     (read-sequence (make-string 3) (make-string-input-stream "abc")                        (read-sequence (make-string 3) (make-string-input-stream "abc")
285                    :end -1)                                       :end x))
    type-error)  
286    t)    t)
287    
288  (deftest read-sequence.error.11  (deftest read-sequence.error.11
289    (signals-error    (check-type-error #'(lambda (e)
290     (read-sequence (make-string 3) (make-string-input-stream "abc")                          (read-sequence (make-string 3) (make-string-input-stream "abc")
291                    :end 'b)                                         :end e))
292     type-error)                      (typef '(or unsigned-byte null)))
293    t)    nil)
   
   
   

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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