420 |
|
|
421 |
;;; Error tests |
;;; Error tests |
422 |
|
|
423 |
(deftest count-if-not-error.1 |
(deftest count-if-not.error.1 |
424 |
(catch-type-error (count-if-not #'identity 1)) |
(catch-type-error (count-if-not #'identity 1)) |
425 |
type-error) |
type-error) |
426 |
|
|
427 |
(deftest count-if-not-error.2 |
(deftest count-if-not.error.2 |
428 |
(catch-type-error (count-if-not #'identity 'a)) |
(catch-type-error (count-if-not #'identity 'a)) |
429 |
type-error) |
type-error) |
430 |
|
|
431 |
(deftest count-if-not-error.3 |
(deftest count-if-not.error.3 |
432 |
(catch-type-error (count-if-not #'identity #\a)) |
(catch-type-error (count-if-not #'identity #\a)) |
433 |
type-error) |
type-error) |
434 |
|
|
435 |
|
(deftest count-if-not.error.4 |
436 |
|
(classify-error (count-if-not)) |
437 |
|
program-error) |
438 |
|
|
439 |
|
(deftest count-if-not.error.5 |
440 |
|
(classify-error (count-if-not #'null)) |
441 |
|
program-error) |
442 |
|
|
443 |
|
(deftest count-if-not.error.6 |
444 |
|
(classify-error (count-if-not #'null nil :bad t)) |
445 |
|
program-error) |
446 |
|
|
447 |
|
(deftest count-if-not.error.7 |
448 |
|
(classify-error (count-if-not #'null nil :bad t :allow-other-keys nil)) |
449 |
|
program-error) |
450 |
|
|
451 |
|
(deftest count-if-not.error.8 |
452 |
|
(classify-error (count-if-not #'null nil :key)) |
453 |
|
program-error) |
454 |
|
|
455 |
|
(deftest count-if-not.error.9 |
456 |
|
(classify-error (count-if-not #'null nil 3 3)) |
457 |
|
program-error) |