596 |
(mismatch m a) |
(mismatch m a) |
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 |
|
;;; Error cases |
601 |
|
|
602 |
|
(deftest mismatch.error.1 |
603 |
|
(classify-error (mismatch)) |
604 |
|
program-error) |
605 |
|
|
606 |
|
(deftest mismatch.error.2 |
607 |
|
(classify-error (mismatch nil)) |
608 |
|
program-error) |
609 |
|
|
610 |
|
(deftest mismatch.error.3 |
611 |
|
(classify-error (mismatch nil nil :bad t)) |
612 |
|
program-error) |
613 |
|
|
614 |
|
(deftest mismatch.error.4 |
615 |
|
(classify-error (mismatch nil nil :bad t :allow-other-keys nil)) |
616 |
|
program-error) |
617 |
|
|
618 |
|
(deftest mismatch.error.5 |
619 |
|
(classify-error (mismatch nil nil :key)) |
620 |
|
program-error) |
621 |
|
|
622 |
|
(deftest mismatch.error.6 |
623 |
|
(classify-error (mismatch nil nil 1 2)) |
624 |
|
program-error) |