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) |
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 |