524 |
;;; Error tests |
;;; Error tests |
525 |
|
|
526 |
(deftest count-if.error.1 |
(deftest count-if.error.1 |
527 |
(signals-type-error x 1 (count-if #'identity x)) |
(check-type-error #'(lambda (x) (count-if #'identity x)) |
528 |
t) |
#'sequencep) |
529 |
|
nil) |
|
(deftest count-if.error.2 |
|
|
(signals-type-error x 'a (count-if #'identity x)) |
|
|
t) |
|
|
|
|
|
(deftest count-if.error.3 |
|
|
(signals-type-error x #\a (count-if #'identity x)) |
|
|
t) |
|
530 |
|
|
531 |
(deftest count-if.error.4 |
(deftest count-if.error.4 |
532 |
(signals-error (count-if) program-error) |
(signals-error (count-if) program-error) |