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

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

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

revision 1.6 by pfdietz, Wed Nov 27 04:22:36 2002 UTC revision 1.7 by pfdietz, Mon Jan 13 14:11:49 2003 UTC
# Line 149  Line 149 
149              #'<))              #'<))
150    (1 2 3 4))    (1 2 3 4))
151    
152    (deftest set-difference.error.1
153      (classify-error (set-difference))
154      program-error)
155    
156    (deftest set-difference.error.2
157      (classify-error (set-difference nil))
158      program-error)
159    
160    (deftest set-difference.error.3
161      (classify-error (set-difference nil nil :bad t))
162      program-error)
163    
164    (deftest set-difference.error.4
165      (classify-error (set-difference nil nil :key))
166      program-error)
167    
168    (deftest set-difference.error.5
169      (classify-error (set-difference nil nil 1 2))
170      program-error)
171    
172    (deftest set-difference.error.6
173      (classify-error (set-difference nil nil :bad t :allow-other-keys nil))
174      program-error)
175    
176  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
177  ;;; nset-difference  ;;; nset-difference
178    
# Line 289  Line 313 
313                  (not (eqt x y)))))                  (not (eqt x y)))))
314            #'<))            #'<))
315    (1 2 3 4))    (1 2 3 4))
316    
317    (deftest nset-difference.error.1
318      (classify-error (nset-difference))
319      program-error)
320    
321    (deftest nset-difference.error.2
322      (classify-error (nset-difference nil))
323      program-error)
324    
325    (deftest nset-difference.error.3
326      (classify-error (nset-difference nil nil :bad t))
327      program-error)
328    
329    (deftest nset-difference.error.4
330      (classify-error (nset-difference nil nil :key))
331      program-error)
332    
333    (deftest nset-difference.error.5
334      (classify-error (nset-difference nil nil 1 2))
335      program-error)
336    
337    (deftest nset-difference.error.6
338      (classify-error (nset-difference nil nil :bad t :allow-other-keys nil))
339      program-error)

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