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

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

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

revision 1.7 by pfdietz, Tue Jan 14 14:01:21 2003 UTC revision 1.8 by pfdietz, Sat Jan 18 12:49:35 2003 UTC
# Line 235  Line 235 
235             (not (eql x y))))))             (not (eql x y))))))
236    (4))    (4))
237    
238  (deftest intersection-19  ;;; Keyword tests
239    
240    (deftest intersection.allow-other-keys.1
241    (let ((list1 (list 1 2 3 4))    (let ((list1 (list 1 2 3 4))
242          (list2 (list 4 5 6 7)))          (list2 (list 4 5 6 7)))
243      (intersection list1 list2 :bad t :allow-other-keys 1))      (intersection list1 list2 :bad t :allow-other-keys 1))
244    (4))    (4))
245    
246  (deftest intersection-20  (deftest intersection.allow-other-keys.2
247    (let ((list1 (list 1 2 3 4))    (let ((list1 (list 1 2 3 4))
248          (list2 (list 4 5 6 7)))          (list2 (list 4 5 6 7)))
249      (intersection list1 list2 :allow-other-keys :foo :also-bad t))      (intersection list1 list2 :allow-other-keys :foo :also-bad t))
250    (4))    (4))
251    
252  (deftest intersection-21  (deftest intersectionallow-other-keys.3
253    (let ((list1 (list 1 2 3 4))    (let ((list1 (list 1 2 3 4))
254          (list2 (list 4 5 6 7)))          (list2 (list 4 5 6 7)))
255      (intersection list1 list2 :allow-other-keys :foo :also-bad t      (intersection list1 list2 :allow-other-keys :foo :also-bad t
256                    :test #'(lambda (x y) (= x (1+ y)))))                    :test #'(lambda (x y) (= x (1+ y)))))
257    nil)    nil)
258    
259    (deftest intersection.allow-other-keys.4
260      (let ((list1 (list 1 2 3 4))
261            (list2 (list 4 5 6 7)))
262        (intersection list1 list2 :allow-other-keys t))
263      (4))
264    
265    (deftest intersection.allow-other-keys.5
266      (let ((list1 (list 1 2 3 4))
267            (list2 (list 4 5 6 7)))
268        (intersection list1 list2 :allow-other-keys nil))
269      (4))
270    
271    (deftest intersection.allow-other-keys.6
272      (let ((list1 (list 1 2 3 4))
273            (list2 (list 4 5 6 7)))
274        (intersection list1 list2 :allow-other-keys t
275                      :allow-other-keys nil :bad t))
276      (4))
277    
278    (deftest intersection.allow-other-keys.7
279      (sort
280       (let ((list1 (list 1 2 3 4))
281             (list2 (list 4 5 6 7)))
282         (intersection list1 list2 :allow-other-keys t
283                       :allow-other-keys nil
284                       :test #'(lambda (x y) (eql x (1- y)))))
285       #'<)
286      (3 4))
287    
288    (deftest intersection.keywords.8
289      (sort
290       (let ((list1 (list 1 2 3 4))
291             (list2 (list 4 5 6 7)))
292         (intersection list1 list2
293                       :test #'(lambda (x y) (eql x (1- y)))
294                       :test #'eql))
295       #'<)
296      (3 4))
297    
298    ;;; Error tests
299    
300  (deftest intersection.error.1  (deftest intersection.error.1
301    (classify-error (intersection))    (classify-error (intersection))
302    program-error)    program-error)
# Line 470  Line 513 
513             (not (eql x y))))))             (not (eql x y))))))
514    (4))    (4))
515    
516  (deftest nintersection-19  ;;; Keyword tests
517    
518    (deftest nintersection.allow-other-keys.1
519    (let ((list1 (list 1 2 3 4))    (let ((list1 (list 1 2 3 4))
520          (list2 (list 4 5 6 7)))          (list2 (list 4 5 6 7)))
521      (nintersection list1 list2 :bad t :allow-other-keys 1))      (nintersection list1 list2 :bad t :allow-other-keys 1))
522    (4))    (4))
523    
524  (deftest nintersection-20  (deftest nintersection.allow-other-keys.2
525    (let ((list1 (list 1 2 3 4))    (let ((list1 (list 1 2 3 4))
526          (list2 (list 4 5 6 7)))          (list2 (list 4 5 6 7)))
527      (nintersection list1 list2 :allow-other-keys :foo :also-bad t))      (nintersection list1 list2 :allow-other-keys :foo :also-bad t))
528    (4))    (4))
529    
530  (deftest nintersection-21  (deftest nintersectionallow-other-keys.3
531      (let ((list1 (list 1 2 3 4))
532            (list2 (list 4 5 6 7)))
533        (nintersection list1 list2 :allow-other-keys :foo :also-bad t
534                      :test #'(lambda (x y) (= x (1+ y)))))
535      nil)
536    
537    (deftest nintersection.allow-other-keys.4
538      (let ((list1 (list 1 2 3 4))
539            (list2 (list 4 5 6 7)))
540        (nintersection list1 list2 :allow-other-keys t))
541      (4))
542    
543    (deftest nintersection.allow-other-keys.5
544      (let ((list1 (list 1 2 3 4))
545            (list2 (list 4 5 6 7)))
546        (nintersection list1 list2 :allow-other-keys nil))
547      (4))
548    
549    (deftest nintersection.allow-other-keys.6
550      (let ((list1 (list 1 2 3 4))
551            (list2 (list 4 5 6 7)))
552        (nintersection list1 list2 :allow-other-keys t
553                      :allow-other-keys nil :bad t))
554      (4))
555    
556    (deftest nintersection.allow-other-keys.7
557      (sort
558       (let ((list1 (list 1 2 3 4))
559             (list2 (list 4 5 6 7)))
560         (nintersection list1 list2 :allow-other-keys t
561                       :allow-other-keys nil
562                       :test #'(lambda (x y) (eql x (1- y)))))
563       #'<)
564      (3 4))
565    
566    (deftest nintersection.keywords.8
567      (sort
568       (let ((list1 (list 1 2 3 4))
569             (list2 (list 4 5 6 7)))
570         (nintersection list1 list2
571                       :test #'(lambda (x y) (eql x (1- y)))
572                       :test #'eql))
573       #'<)
574      (3 4))
575    
576    (deftest nintersection.allow-other-keys.9
577    (let ((list1 (list 1 2 3 4))    (let ((list1 (list 1 2 3 4))
578          (list2 (list 4 5 6 7)))          (list2 (list 4 5 6 7)))
579      (nintersection list1 list2 :allow-other-keys :foo :also-bad t      (nintersection list1 list2 :allow-other-keys :foo :also-bad t

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

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