279 |
;;; Error cases |
;;; Error cases |
280 |
|
|
281 |
(deftest every.error.1 |
(deftest every.error.1 |
282 |
(signals-error (every 1 '(a b c)) type-error) |
(check-type-error #'(lambda (x) (every x '(a b c))) |
283 |
t) |
#'(lambda (x) (typep x '(or function symbol)))) |
284 |
|
nil) |
285 |
|
|
286 |
(deftest every.error.2 |
(deftest every.error.2 |
287 |
(signals-error (every #\a '(a b c)) type-error) |
(check-type-error #'(lambda (x) (every #'null x)) |
288 |
t) |
#'(lambda (x) (typep x 'sequence))) |
289 |
|
nil) |
290 |
|
|
291 |
(deftest every.error.3 |
(deftest every.error.3 |
292 |
(signals-error (every #() '(a b c)) type-error) |
(check-type-error #'(lambda (x) (every #'eq () x)) |
293 |
t) |
#'(lambda (x) (typep x 'sequence))) |
294 |
|
nil) |
|
(deftest every.error.4 |
|
|
(signals-error (every #'null 'a) type-error) |
|
|
t) |
|
|
|
|
|
(deftest every.error.5 |
|
|
(signals-error (every #'null 100) type-error) |
|
|
t) |
|
|
|
|
|
(deftest every.error.6 |
|
|
(signals-error (every #'null 'a) type-error) |
|
|
t) |
|
|
|
|
|
(deftest every.error.7 |
|
|
(signals-error (every #'eq () 'a) type-error) |
|
|
t) |
|
295 |
|
|
296 |
(deftest every.error.8 |
(deftest every.error.8 |
297 |
(signals-error (every) program-error) |
(signals-error (every) program-error) |