169 |
;;; Error cases |
;;; Error cases |
170 |
|
|
171 |
(deftest reverse.error.1 |
(deftest reverse.error.1 |
172 |
(signals-error (reverse 'a) type-error) |
(check-type-error #'reverse #'sequencep) |
173 |
t) |
nil) |
|
|
|
|
(deftest reverse.error.2 |
|
|
(signals-error (reverse #\a) type-error) |
|
|
t) |
|
|
|
|
|
(deftest reverse.error.3 |
|
|
(signals-error (reverse 10) type-error) |
|
|
t) |
|
|
|
|
|
(deftest reverse.error.4 |
|
|
(signals-error (reverse 0.3) type-error) |
|
|
t) |
|
|
|
|
|
(deftest reverse.error.5 |
|
|
(signals-error (reverse 10/3) type-error) |
|
|
t) |
|
174 |
|
|
175 |
(deftest reverse.error.6 |
(deftest reverse.error.6 |
176 |
(signals-error (reverse) program-error) |
(signals-error (reverse) program-error) |