/[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.8 by pfdietz, Tue Jan 14 14:01:21 2003 UTC revision 1.9 by pfdietz, Sat Jan 18 12:49:35 2003 UTC
# Line 149  Line 149 
149              #'<))              #'<))
150    (1 2 3 4))    (1 2 3 4))
151    
152  (deftest set-difference-20  ;;; Keyword tests
153    
154    (deftest set-difference.allow-other-keys.1
155    (sort    (sort
156     (copy-list     (copy-list
157      (set-difference      (set-difference
158       '(1 2 3 4 5) '(2 3 4)       (list 1 2 3 4 5) (list 2 3 4)
159       :bad t :allow-other-keys t))       :bad t :allow-other-keys t))
160     #'<)     #'<)
161    (1 5))    (1 5))
162    
163  (deftest set-difference-21  (deftest set-difference.allow-other-keys.2
164    (sort    (sort
165     (copy-list     (copy-list
166      (set-difference      (set-difference
167       '(1 2 3 4 5) '(2 3 4)       (list 1 2 3 4 5) (list 2 3 4)
168       :allow-other-keys t :bad t))       :allow-other-keys t :bad t))
169     #'<)     #'<)
170    (1 5))    (1 5))
171    
172  (deftest set-difference-22  (deftest set-difference.allow-other-keys.3
173    (sort    (sort
174     (copy-list     (copy-list
175      (set-difference      (set-difference
176       '(1 2 3 4 5) '(2 3 4)       (list 1 2 3 4 5) (list 2 3 4)
177       :allow-other-keys t :bad t :test #'(lambda (x y) (= x (1- y)))))       :allow-other-keys t :bad t :test #'(lambda (x y) (= x (1- y)))))
178     #'<)     #'<)
179    (4 5))    (4 5))
180    
181    (deftest set-difference.allow-other-keys.4
182      (sort
183       (copy-list
184        (set-difference
185         (list 1 2 3 4 5) (list 2 3 4)
186         :allow-other-keys t))
187       #'<)
188      (1 5))
189    
190    (deftest set-difference.allow-other-keys.5
191      (sort
192       (copy-list
193        (set-difference
194         (list 1 2 3 4 5) (list 2 3 4)
195         :allow-other-keys nil))
196       #'<)
197      (1 5))
198    
199    (deftest set-difference.allow-other-keys.6
200      (sort
201       (copy-list
202        (set-difference
203         (list 1 2 3 4 5) (list 2 3 4)
204         :allow-other-keys t
205         :allow-other-keys nil))
206       #'<)
207      (1 5))
208    
209    (deftest set-difference.allow-other-keys.7
210      (sort
211       (copy-list
212        (set-difference
213         (list 1 2 3 4 5) (list 2 3 4)
214         :allow-other-keys t
215         :allow-other-keys nil
216         '#:x 1))
217       #'<)
218      (1 5))
219    
220    (deftest set-difference.keywords.8
221      (sort
222       (copy-list
223        (set-difference
224         (list 1 2 3 4 5) (list 2 3 4)
225         :test #'eql :test (complement #'eql)))
226       #'<)
227      (1 5))
228    
229    (deftest set-difference.keywords.9
230      (sort
231       (copy-list
232        (set-difference
233         (list 1 2 3 4 5) (list 2 3 4)
234         :test (complement #'eql) :test #'eql))
235       #'<)
236      nil)
237    
238    ;;; Error tests
239    
240    
241  (deftest set-difference.error.1  (deftest set-difference.error.1
242    (classify-error (set-difference))    (classify-error (set-difference))
# Line 342  Line 403 
403            #'<))            #'<))
404    (1 2 3 4))    (1 2 3 4))
405    
406  (deftest nset-difference-20  ;;; Keyword tests
407    
408    (deftest nset-difference.allow-other-keys.1
409    (sort    (sort
410     (copy-list     (copy-list
411      (nset-difference      (nset-difference
# Line 351  Line 414 
414     #'<)     #'<)
415    (1 5))    (1 5))
416    
417  (deftest nset-difference-21  (deftest nset-difference.allow-other-keys.2
418    (sort    (sort
419     (copy-list     (copy-list
420      (nset-difference      (nset-difference
# Line 360  Line 423 
423     #'<)     #'<)
424    (1 5))    (1 5))
425    
426  (deftest nset-difference-22  (deftest nset-difference.allow-other-keys.3
427    (sort    (sort
428     (copy-list     (copy-list
429      (nset-difference      (nset-difference
# Line 369  Line 432 
432     #'<)     #'<)
433    (4 5))    (4 5))
434    
435    (deftest nset-difference.allow-other-keys.4
436      (sort
437       (copy-list
438        (nset-difference
439         (list 1 2 3 4 5) (list 2 3 4)
440         :allow-other-keys t))
441       #'<)
442      (1 5))
443    
444    (deftest nset-difference.allow-other-keys.5
445      (sort
446       (copy-list
447        (nset-difference
448         (list 1 2 3 4 5) (list 2 3 4)
449         :allow-other-keys nil))
450       #'<)
451      (1 5))
452    
453    (deftest nset-difference.allow-other-keys.6
454      (sort
455       (copy-list
456        (nset-difference
457         (list 1 2 3 4 5) (list 2 3 4)
458         :allow-other-keys t
459         :allow-other-keys nil))
460       #'<)
461      (1 5))
462    
463    (deftest nset-difference.allow-other-keys.7
464      (sort
465       (copy-list
466        (nset-difference
467         (list 1 2 3 4 5) (list 2 3 4)
468         :allow-other-keys t
469         :allow-other-keys nil
470         '#:x 1))
471       #'<)
472      (1 5))
473    
474    (deftest nset-difference.keywords.8
475      (sort
476       (copy-list
477        (nset-difference
478         (list 1 2 3 4 5) (list 2 3 4)
479         :test #'eql :test (complement #'eql)))
480       #'<)
481      (1 5))
482    
483    (deftest nset-difference.keywords.9
484      (sort
485       (copy-list
486        (nset-difference
487         (list 1 2 3 4 5) (list 2 3 4)
488         :test (complement #'eql) :test #'eql))
489       #'<)
490      nil)
491    
492    ;;; Error tests
493    
494  (deftest nset-difference.error.1  (deftest nset-difference.error.1
495    (classify-error (nset-difference))    (classify-error (nset-difference))
496    program-error)    program-error)

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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