/[gcl]/gcl/ansi-tests/fill.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/fill.lsp

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

revision 1.3 by pfdietz, Thu Oct 17 13:16:56 2002 UTC revision 1.4 by pfdietz, Wed Oct 23 03:10:23 2002 UTC
# Line 55  Line 55 
55    
56  (deftest array-fill-7  (deftest array-fill-7
57    (let* ((a (make-array '(5))))    (let* ((a (make-array '(5))))
58      (handler-case (fill a 'x :start -1)      (classify-error (fill a 'x :start -1)))
                   (type-error (c) 'type-error)  
                   (error (c) c)))  
59    type-error)    type-error)
60    
61  (deftest array-fill-8  (deftest array-fill-8
62    (let* ((a (make-array '(5))))    (let* ((a (make-array '(5))))
63      (handler-case (fill a 'x :start 'a)      (classify-error (fill a 'x :start 'a)))
                   (type-error (c) 'type-error)  
                   (error (c) c)))  
64    type-error)    type-error)
65    
66  (deftest array-fill-9  (deftest array-fill-9
67    (let* ((a (make-array '(5))))    (let* ((a (make-array '(5))))
68      (handler-case (fill a 'x :end -1)      (classify-error (fill a 'x :end -1)))
                   (type-error (c) 'type-error)  
                   (error (c) c)))  
69    type-error)    type-error)
70    
71  (deftest array-fill-10  (deftest array-fill-10
72    (let* ((a (make-array '(5))))    (let* ((a (make-array '(5))))
73      (handler-case (fill a 'x :end 'a)      (classify-error (fill a 'x :end 'a)))
                   (type-error (c) 'type-error)  
                   (error (c) c)))  
74    type-error)    type-error)
75    
76  ;;; fill on arrays of fixnums  ;;; fill on arrays of fixnums
# Line 127  Line 119 
119    
120  (deftest array-fixnum-fill-7  (deftest array-fixnum-fill-7
121    (let* ((a (make-array '(5) :element-type 'fixnum)))    (let* ((a (make-array '(5) :element-type 'fixnum)))
122      (handler-case (fill a 10 :start -1)      (classify-error (fill a 10 :start -1)))
                   (type-error (c) 'type-error)  
                   (error (c) c)))  
123    type-error)    type-error)
124    
125  (deftest array-fixnum-fill-8  (deftest array-fixnum-fill-8
126    (let* ((a (make-array '(5) :element-type 'fixnum)))    (let* ((a (make-array '(5) :element-type 'fixnum)))
127      (handler-case (fill a 100 :start 'a)      (classify-error (fill a 100 :start 'a)))
                   (type-error (c) 'type-error)  
                   (error (c) c)))  
128    type-error)    type-error)
129    
130  (deftest array-fixnum-fill-9  (deftest array-fixnum-fill-9
131    (let* ((a (make-array '(5) :element-type 'fixnum)))    (let* ((a (make-array '(5) :element-type 'fixnum)))
132      (handler-case (fill a -5 :end -1)      (classify-error (fill a -5 :end -1)))
                   (type-error (c) 'type-error)  
                   (error (c) c)))  
133    type-error)    type-error)
134    
135  (deftest array-fixnum-fill-10  (deftest array-fixnum-fill-10
136    (let* ((a (make-array '(5) :element-type 'fixnum)))    (let* ((a (make-array '(5) :element-type 'fixnum)))
137      (handler-case (fill a 17 :end 'a)      (classify-error (fill a 17 :end 'a)))
                   (type-error (c) 'type-error)  
                   (error (c) c)))  
138    type-error)    type-error)
139    
140  ;;; fill on arrays of unsigned eight bit bytes  ;;; fill on arrays of unsigned eight bit bytes
# Line 187  Line 171 
171    t (0 0 0 0 0))    t (0 0 0 0 0))
172    
173  (deftest array-unsigned-byte8-fill-7  (deftest array-unsigned-byte8-fill-7
174    (handler-case (array-unsigned-byte-fill-test-fn 8 0 :start -1)    (classify-error (array-unsigned-byte-fill-test-fn 8 0 :start -1))
                 (type-error (c) 'type-error)  
                 (error (c) c))  
175    type-error)    type-error)
176    
177  (deftest array-unsigned-byte8-fill-8  (deftest array-unsigned-byte8-fill-8
178      (handler-case (array-unsigned-byte-fill-test-fn 8 100 :start 'a)    (classify-error (array-unsigned-byte-fill-test-fn 8 100 :start 'a))
                   (type-error (c) 'type-error)  
                   (error (c) c))  
179    type-error)    type-error)
180    
181  (deftest array-unsigned-byte8-fill-9  (deftest array-unsigned-byte8-fill-9
182    (handler-case (array-unsigned-byte-fill-test-fn 8 19 :end -1)    (classify-error (array-unsigned-byte-fill-test-fn 8 19 :end -1))
                 (type-error (c) 'type-error)  
                 (error (c) c))  
183    type-error)    type-error)
184    
185  (deftest array-unsigned-byte8-fill-10  (deftest array-unsigned-byte8-fill-10
186    (handler-case (array-unsigned-byte-fill-test-fn 8 17 :end 'a)    (classify-error (array-unsigned-byte-fill-test-fn 8 17 :end 'a))
                 (type-error (c) 'type-error)  
                 (error (c) c))  
187    type-error)    type-error)
188    
189    

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

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