743 |
|
|
744 |
;;; Error tests |
;;; Error tests |
745 |
|
|
746 |
(deftest find-error.1 |
(deftest find.error.1 |
747 |
(classify-error (find 'a 'b)) |
(classify-error (find 'a 'b)) |
748 |
type-error) |
type-error) |
749 |
|
|
750 |
(deftest find-error.2 |
(deftest find.error.2 |
751 |
(classify-error (find 'a 10)) |
(classify-error (find 'a 10)) |
752 |
type-error) |
type-error) |
753 |
|
|
754 |
(deftest find-error.3 |
(deftest find.error.3 |
755 |
(classify-error (find 'a 1.4)) |
(classify-error (find 'a 1.4)) |
756 |
type-error) |
type-error) |
757 |
|
|
758 |
(deftest find-error.4 |
(deftest find.error.4 |
759 |
(classify-error (find 'e '(a b c . d))) |
(classify-error (find 'e '(a b c . d))) |
760 |
type-error) |
type-error) |
761 |
|
|
762 |
|
(deftest find.error.5 |
763 |
|
(classify-error (find)) |
764 |
|
program-error) |
765 |
|
|
766 |
|
(deftest find.error.6 |
767 |
|
(classify-error (find 'a)) |
768 |
|
program-error) |
769 |
|
|
770 |
|
(deftest find.error.7 |
771 |
|
(classify-error (find 'a nil :bad t)) |
772 |
|
program-error) |
773 |
|
|
774 |
|
(deftest find.error.8 |
775 |
|
(classify-error (find 'a nil :bad t :allow-other-keys nil)) |
776 |
|
program-error) |
777 |
|
|
778 |
|
(deftest find.error.9 |
779 |
|
(classify-error (find 'a nil 1 1)) |
780 |
|
program-error) |
781 |
|
|
782 |
|
(deftest find.error.10 |
783 |
|
(classify-error (find 'a nil :key)) |
784 |
|
program-error) |