/[gcl]/gcl/ansi-tests/cons-test-13.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/cons-test-13.lsp

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

revision 1.5 by pfdietz, Fri Jan 17 13:29:23 2003 UTC revision 1.6 by pfdietz, Wed Jan 29 02:11:54 2003 UTC
# Line 172  Line 172 
172  ;;; Error cases  ;;; Error cases
173    
174  (deftest member.error.1  (deftest member.error.1
175    (catch-type-error (member 'a 'b))    (classify-error (member 'a 'b))
176    type-error)    type-error)
177    
178  (deftest member.error.2  (deftest member.error.2
179    (catch-type-error (member 'a 1.3))    (classify-error (member 'a 1.3))
180    type-error)    type-error)
181    
182  (deftest member.error.3  (deftest member.error.3
183    (catch-type-error (member 'a 1))    (classify-error (member 'a 1))
184    type-error)    type-error)
185    
186  (deftest member.error.4  (deftest member.error.4
187    (catch-type-error (member 'a 0))    (classify-error (member 'a 0))
188    type-error)    type-error)
189    
190  (deftest member.error.5  (deftest member.error.5
191    (catch-type-error (member 'a "abcde"))    (classify-error (member 'a "abcde"))
192    type-error)    type-error)
193    
194  (deftest member.error.6  (deftest member.error.6
195    (catch-type-error (member 'a #\w))    (classify-error (member 'a #\w))
196    type-error)    type-error)
197    
198  (deftest member.error.7  (deftest member.error.7
199    (catch-type-error (member 'a t))    (classify-error (member 'a t))
200    type-error)    type-error)
201    
202  (deftest member.error.8  (deftest member.error.8
# Line 222  Line 222 
222  (deftest member.error.13  (deftest member.error.13
223    (classify-error (member nil nil nil))    (classify-error (member nil nil nil))
224    program-error)    program-error)
225    
226    (deftest member.error.14
227      (classify-error (locally (member 'a t) t))
228      type-error)

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

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