486 |
|
|
487 |
;;; Error tests |
;;; Error tests |
488 |
|
|
489 |
(deftest find-if-not-error.1 |
(deftest find-if-not.error.1 |
490 |
(classify-error (find-if-not #'null 'b)) |
(classify-error (find-if-not #'null 'b)) |
491 |
type-error) |
type-error) |
492 |
|
|
493 |
(deftest find-if-not-error.2 |
(deftest find-if-not.error.2 |
494 |
(classify-error (find-if-not #'identity 10)) |
(classify-error (find-if-not #'identity 10)) |
495 |
type-error) |
type-error) |
496 |
|
|
497 |
(deftest find-if-not-error.3 |
(deftest find-if-not.error.3 |
498 |
(classify-error (find-if-not '1+ 1.4)) |
(classify-error (find-if-not '1+ 1.4)) |
499 |
type-error) |
type-error) |
500 |
|
|
501 |
(deftest find-if-not-error.4 |
(deftest find-if-not.error.4 |
502 |
(classify-error (find-if-not 'identity '(a b c . d))) |
(classify-error (find-if-not 'identity '(a b c . d))) |
503 |
type-error) |
type-error) |
504 |
|
|
505 |
|
(deftest find-if-not.error.5 |
506 |
|
(classify-error (find-if-not)) |
507 |
|
program-error) |
508 |
|
|
509 |
|
(deftest find-if-not.error.6 |
510 |
|
(classify-error (find-if-not #'null)) |
511 |
|
program-error) |
512 |
|
|
513 |
|
(deftest find-if-not.error.7 |
514 |
|
(classify-error (find-if-not #'null nil :bad t)) |
515 |
|
program-error) |
516 |
|
|
517 |
|
(deftest find-if-not.error.8 |
518 |
|
(classify-error (find-if-not #'null nil :bad t :allow-other-keys nil)) |
519 |
|
program-error) |
520 |
|
|
521 |
|
(deftest find-if-not.error.9 |
522 |
|
(classify-error (find-if-not #'null nil 1 1)) |
523 |
|
program-error) |
524 |
|
|
525 |
|
(deftest find-if-not.error.10 |
526 |
|
(classify-error (find-if-not #'null nil :key)) |
527 |
|
program-error) |