630 |
result) |
result) |
631 |
#*01111) |
#*01111) |
632 |
|
|
633 |
|
;;; Error cases |
634 |
|
|
635 |
|
(deftest nsubstitute-if.error.1 |
636 |
|
(classify-error (nsubstitute-if)) |
637 |
|
program-error) |
638 |
|
|
639 |
|
(deftest nsubstitute-if.error.2 |
640 |
|
(classify-error (nsubstitute-if 'a)) |
641 |
|
program-error) |
642 |
|
|
643 |
|
(deftest nsubstitute-if.error.3 |
644 |
|
(classify-error (nsubstitute-if 'a #'null)) |
645 |
|
program-error) |
646 |
|
|
647 |
|
(deftest nsubstitute-if.error.4 |
648 |
|
(classify-error (nsubstitute-if 'a #'null nil 'bad t)) |
649 |
|
program-error) |
650 |
|
|
651 |
|
(deftest nsubstitute-if.error.5 |
652 |
|
(classify-error (nsubstitute-if 'a #'null nil 'bad t :allow-other-keys nil)) |
653 |
|
program-error) |
654 |
|
|
655 |
|
(deftest nsubstitute-if.error.6 |
656 |
|
(classify-error (nsubstitute-if 'a #'null nil :key)) |
657 |
|
program-error) |
658 |
|
|
659 |
|
(deftest nsubstitute-if.error.7 |
660 |
|
(classify-error (nsubstitute-if 'a #'null nil 1 2)) |
661 |
|
program-error) |