509 |
|
|
510 |
;;; Error tests |
;;; Error tests |
511 |
|
|
512 |
(deftest find-if-error.1 |
(deftest find-if.error.1 |
513 |
(classify-error (find-if #'null 'b)) |
(classify-error (find-if #'null 'b)) |
514 |
type-error) |
type-error) |
515 |
|
|
516 |
(deftest find-if-error.2 |
(deftest find-if.error.2 |
517 |
(classify-error (find-if #'identity 10)) |
(classify-error (find-if #'identity 10)) |
518 |
type-error) |
type-error) |
519 |
|
|
520 |
(deftest find-if-error.3 |
(deftest find-if.error.3 |
521 |
(classify-error (find-if '1+ 1.4)) |
(classify-error (find-if '1+ 1.4)) |
522 |
type-error) |
type-error) |
523 |
|
|
524 |
(deftest find-if-error.4 |
(deftest find-if.error.4 |
525 |
(classify-error (find-if 'null '(a b c . d))) |
(classify-error (find-if 'null '(a b c . d))) |
526 |
type-error) |
type-error) |
527 |
|
|
528 |
|
(deftest find-if.error.5 |
529 |
|
(classify-error (find-if)) |
530 |
|
program-error) |
531 |
|
|
532 |
|
(deftest find-if.error.6 |
533 |
|
(classify-error (find-if #'null)) |
534 |
|
program-error) |
535 |
|
|
536 |
|
(deftest find-if.error.7 |
537 |
|
(classify-error (find-if #'null nil :bad t)) |
538 |
|
program-error) |
539 |
|
|
540 |
|
(deftest find-if.error.8 |
541 |
|
(classify-error (find-if #'null nil :bad t :allow-other-keys nil)) |
542 |
|
program-error) |
543 |
|
|
544 |
|
(deftest find-if.error.9 |
545 |
|
(classify-error (find-if #'null nil 1 1)) |
546 |
|
program-error) |
547 |
|
|
548 |
|
(deftest find-if.error.10 |
549 |
|
(classify-error (find-if #'null nil :key)) |
550 |
|
program-error) |