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

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

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

revision 1.4 by pfdietz, Wed Nov 27 04:22:36 2002 UTC revision 1.5 by pfdietz, Mon Jan 13 14:11:49 2003 UTC
# Line 170  Line 170 
170                             (return-from fail 'failed))                             (return-from fail 'failed))
171                           t))))))                           t))))))
172    t)    t)
173    
174    (deftest set-exclusive-or.error.1
175      (classify-error (set-exclusive-or))
176      program-error)
177    
178    (deftest set-exclusive-or.error.2
179      (classify-error (set-exclusive-or nil))
180      program-error)
181    
182    (deftest set-exclusive-or.error.3
183      (classify-error (set-exclusive-or nil nil :bad t))
184      program-error)
185    
186    (deftest set-exclusive-or.error.4
187      (classify-error (set-exclusive-or nil nil :key))
188      program-error)
189    
190    (deftest set-exclusive-or.error.5
191      (classify-error (set-exclusive-or nil nil 1 2))
192      program-error)
193    
194    (deftest set-exclusive-or.error.6
195      (classify-error (set-exclusive-or nil nil :bad t :allow-other-keys nil))
196      program-error)
197    
198    
199  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
200  ;;; nset-exclusive-or  ;;; nset-exclusive-or
201    
# Line 333  Line 359 
359                             (return-from fail 'failed))                             (return-from fail 'failed))
360                           t))))))                           t))))))
361    t)    t)
362    
363    (deftest nset-exclusive-or.error.1
364      (classify-error (nset-exclusive-or))
365      program-error)
366    
367    (deftest nset-exclusive-or.error.2
368      (classify-error (nset-exclusive-or nil))
369      program-error)
370    
371    (deftest nset-exclusive-or.error.3
372      (classify-error (nset-exclusive-or nil nil :bad t))
373      program-error)
374    
375    (deftest nset-exclusive-or.error.4
376      (classify-error (nset-exclusive-or nil nil :key))
377      program-error)
378    
379    (deftest nset-exclusive-or.error.5
380      (classify-error (nset-exclusive-or nil nil 1 2))
381      program-error)
382    
383    (deftest nset-exclusive-or.error.6
384      (classify-error (nset-exclusive-or nil nil :bad t :allow-other-keys nil))
385      program-error)

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

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