172 |
;;; Error cases |
;;; Error cases |
173 |
|
|
174 |
(deftest member.error.1 |
(deftest member.error.1 |
175 |
(catch-type-error (member 'a 'b)) |
(classify-error (member 'a 'b)) |
176 |
type-error) |
type-error) |
177 |
|
|
178 |
(deftest member.error.2 |
(deftest member.error.2 |
179 |
(catch-type-error (member 'a 1.3)) |
(classify-error (member 'a 1.3)) |
180 |
type-error) |
type-error) |
181 |
|
|
182 |
(deftest member.error.3 |
(deftest member.error.3 |
183 |
(catch-type-error (member 'a 1)) |
(classify-error (member 'a 1)) |
184 |
type-error) |
type-error) |
185 |
|
|
186 |
(deftest member.error.4 |
(deftest member.error.4 |
187 |
(catch-type-error (member 'a 0)) |
(classify-error (member 'a 0)) |
188 |
type-error) |
type-error) |
189 |
|
|
190 |
(deftest member.error.5 |
(deftest member.error.5 |
191 |
(catch-type-error (member 'a "abcde")) |
(classify-error (member 'a "abcde")) |
192 |
type-error) |
type-error) |
193 |
|
|
194 |
(deftest member.error.6 |
(deftest member.error.6 |
195 |
(catch-type-error (member 'a #\w)) |
(classify-error (member 'a #\w)) |
196 |
type-error) |
type-error) |
197 |
|
|
198 |
(deftest member.error.7 |
(deftest member.error.7 |
199 |
(catch-type-error (member 'a t)) |
(classify-error (member 'a t)) |
200 |
type-error) |
type-error) |
201 |
|
|
202 |
(deftest member.error.8 |
(deftest member.error.8 |
222 |
(deftest member.error.13 |
(deftest member.error.13 |
223 |
(classify-error (member nil nil nil)) |
(classify-error (member nil nil nil)) |
224 |
program-error) |
program-error) |
225 |
|
|
226 |
|
(deftest member.error.14 |
227 |
|
(classify-error (locally (member 'a t) t)) |
228 |
|
type-error) |