653 |
;;; Error tests |
;;; Error tests |
654 |
|
|
655 |
(deftest count.error.1 |
(deftest count.error.1 |
656 |
(signals-error (count 'a 1) type-error) |
(signals-type-error x 1 (count 'a x)) |
657 |
t) |
t) |
658 |
|
|
659 |
(deftest count.error.2 |
(deftest count.error.2 |
660 |
(signals-error (count 'a 'a) type-error) |
(signals-type-error x 'a (count 'a x)) |
661 |
t) |
t) |
662 |
|
|
663 |
(deftest count.error.3 |
(deftest count.error.3 |
664 |
(signals-error (count 'a #\a) type-error) |
(signals-type-error x #\a (count 'a x)) |
665 |
t) |
t) |
666 |
|
|
667 |
(deftest count.error.4 |
(deftest count.error.4 |