446 |
|
|
447 |
;;; Error tests |
;;; Error tests |
448 |
|
|
449 |
(deftest position-if-not-error.1 |
(deftest position-if-not.error.1 |
450 |
(classify-error (position-if-not #'identity 'b)) |
(classify-error (position-if-not #'identity 'b)) |
451 |
type-error) |
type-error) |
452 |
|
|
453 |
(deftest position-if-not-error.2 |
(deftest position-if-not.error.2 |
454 |
(classify-error (position-if-not #'identity 10)) |
(classify-error (position-if-not #'identity 10)) |
455 |
type-error) |
type-error) |
456 |
|
|
457 |
(deftest position-if-not-error.3 |
(deftest position-if-not.error.3 |
458 |
(classify-error (position-if-not 'null 1.4)) |
(classify-error (position-if-not 'null 1.4)) |
459 |
type-error) |
type-error) |
460 |
|
|
461 |
(deftest position-if-not-error.4 |
(deftest position-if-not.error.4 |
462 |
(classify-error (position-if-not 'identity '(a b c . d))) |
(classify-error (position-if-not 'identity '(a b c . d))) |
463 |
type-error) |
type-error) |
464 |
|
|
465 |
|
(deftest position-if-not.error.5 |
466 |
|
(classify-error (position-if-not)) |
467 |
|
program-error) |
468 |
|
|
469 |
|
(deftest position-if-not.error.6 |
470 |
|
(classify-error (position-if-not #'null)) |
471 |
|
program-error) |
472 |
|
|
473 |
|
(deftest position-if-not.error.7 |
474 |
|
(classify-error (position-if-not #'null nil :key)) |
475 |
|
program-error) |
476 |
|
|
477 |
|
(deftest position-if-not.error.8 |
478 |
|
(classify-error (position-if-not #'null nil 'bad t)) |
479 |
|
program-error) |
480 |
|
|
481 |
|
(deftest position-if-not.error.9 |
482 |
|
(classify-error (position-if-not #'null nil 'bad t :allow-other-keys nil)) |
483 |
|
program-error) |
484 |
|
|
485 |
|
(deftest position-if-not.error.10 |
486 |
|
(classify-error (position-if-not #'null nil 1 2)) |
487 |
|
program-error) |
488 |
|
|
489 |
|
|
490 |
|
|