597 |
(mismatch m a :from-end t))) |
(mismatch m a :from-end t))) |
598 |
(4 4 5 nil nil 6 5 6)) |
(4 4 5 nil nil 6 5 6)) |
599 |
|
|
600 |
|
;;; Keyword tests |
601 |
|
|
602 |
|
(deftest mismatch.allow-other-keys.1 |
603 |
|
(mismatch "1234" "1244" :allow-other-keys t :bad t) |
604 |
|
2) |
605 |
|
|
606 |
|
(deftest mismatch.allow-other-keys.2 |
607 |
|
(mismatch "1234" "1244" :bad t :allow-other-keys t) |
608 |
|
2) |
609 |
|
|
610 |
|
(deftest mismatch.allow-other-keys.3 |
611 |
|
(mismatch "1234" "1244" :bad t :allow-other-keys t :allow-other-keys nil) |
612 |
|
2) |
613 |
|
|
614 |
|
(deftest mismatch.allow-other-keys.4 |
615 |
|
(mismatch "1234" "1244" :allow-other-keys t :bad t |
616 |
|
:allow-other-keys nil) |
617 |
|
2) |
618 |
|
|
619 |
|
(deftest mismatch.allow-other-keys.5 |
620 |
|
(mismatch "1234" "1244" :allow-other-keys t |
621 |
|
:allow-other-keys nil |
622 |
|
:bad t) |
623 |
|
2) |
624 |
|
|
625 |
|
(deftest mismatch.keywords.6 |
626 |
|
(mismatch "1234" "1244" :test #'equal :test (complement #'equal)) |
627 |
|
2) |
628 |
|
|
629 |
|
(deftest mismatch.allow-other-keys.7 |
630 |
|
(mismatch "1234" "1244" :bad t :allow-other-keys t |
631 |
|
:test (complement #'equal)) |
632 |
|
0) |
633 |
|
|
634 |
;;; Error cases |
;;; Error cases |
635 |
|
|
636 |
(deftest mismatch.error.1 |
(deftest mismatch.error.1 |