630 |
result) |
result) |
631 |
#*01111) |
#*01111) |
632 |
|
|
633 |
|
;;; Keyword tests |
634 |
|
|
635 |
|
(deftest nsubstitute-if.allow-other-keys.1 |
636 |
|
(nsubstitute-if 'a #'zerop (list 1 2 0 3 1 0 3) :allow-other-keys t :bad t) |
637 |
|
(1 2 a 3 1 a 3)) |
638 |
|
|
639 |
|
(deftest nsubstitute-if.allow-other-keys.2 |
640 |
|
(nsubstitute-if 'a #'zerop (list 1 2 0 3 1 0 3) :bad t :allow-other-keys t) |
641 |
|
(1 2 a 3 1 a 3)) |
642 |
|
|
643 |
|
(deftest nsubstitute-if.allow-other-keys.3 |
644 |
|
(nsubstitute-if 'a #'zerop (list 1 2 0 3 1 0 3) :allow-other-keys t |
645 |
|
:allow-other-keys nil :bad t) |
646 |
|
(1 2 a 3 1 a 3)) |
647 |
|
|
648 |
|
(deftest nsubstitute-if.allow-other-keys.4 |
649 |
|
(nsubstitute-if 'a #'zerop (list 1 2 0 3 1 0 3) :bad t |
650 |
|
:allow-other-keys t :allow-other-keys nil) |
651 |
|
(1 2 a 3 1 a 3)) |
652 |
|
|
653 |
|
(deftest nsubstitute-if.allow-other-keys.5 |
654 |
|
(nsubstitute-if 'a #'zerop (list 1 2 0 3 1 0 3) |
655 |
|
:allow-other-keys t :key #'1-) |
656 |
|
(a 2 0 3 a 0 3)) |
657 |
|
|
658 |
|
(deftest nsubstitute-if.keywords.6 |
659 |
|
(nsubstitute-if 'a #'zerop (list 1 2 0 3 1 0 3) :key #'1- :key #'identity) |
660 |
|
(a 2 0 3 a 0 3)) |
661 |
|
|
662 |
|
(deftest nsubstitute-if.allow-other-keys.7 |
663 |
|
(nsubstitute-if 'a #'zerop (list 1 2 0 3 1 0 3) :allow-other-keys t |
664 |
|
:bad t :allow-other-keys nil) |
665 |
|
(1 2 a 3 1 a 3)) |
666 |
|
|
667 |
|
(deftest nsubstitute-if.allow-other-keys.8 |
668 |
|
(nsubstitute-if 'a #'zerop (list 1 2 0 3 1 0 3) :allow-other-keys nil) |
669 |
|
(1 2 a 3 1 a 3)) |
670 |
|
|
671 |
;;; Error cases |
;;; Error cases |
672 |
|
|
673 |
(deftest nsubstitute-if.error.1 |
(deftest nsubstitute-if.error.1 |