711 |
result) |
result) |
712 |
#*01111) |
#*01111) |
713 |
|
|
714 |
|
;;; Keyword tests |
715 |
|
|
716 |
|
(deftest substitute-if-not.allow-other-keys.1 |
717 |
|
(substitute-if-not 'a #'zerop (list 1 2 0 3 1 0 3) |
718 |
|
:allow-other-keys t :bad t) |
719 |
|
(a a 0 a a 0 a)) |
720 |
|
|
721 |
|
(deftest substitute-if-not.allow-other-keys.2 |
722 |
|
(substitute-if-not 'a #'zerop (list 1 2 0 3 1 0 3) |
723 |
|
:bad t :allow-other-keys t) |
724 |
|
(a a 0 a a 0 a)) |
725 |
|
|
726 |
|
(deftest substitute-if-not.allow-other-keys.3 |
727 |
|
(substitute-if-not 'a #'zerop (list 1 2 0 3 1 0 3) :allow-other-keys t |
728 |
|
:allow-other-keys nil :bad t) |
729 |
|
(a a 0 a a 0 a)) |
730 |
|
|
731 |
|
(deftest substitute-if-not.allow-other-keys.4 |
732 |
|
(substitute-if-not 'a #'zerop (list 1 2 0 3 1 0 3) :bad t |
733 |
|
:allow-other-keys t :allow-other-keys nil) |
734 |
|
(a a 0 a a 0 a)) |
735 |
|
|
736 |
|
(deftest substitute-if-not.allow-other-keys.5 |
737 |
|
(substitute-if-not 'a #'zerop (list 1 2 0 3 1 0 3) |
738 |
|
:allow-other-keys t :key #'1-) |
739 |
|
(1 a a a 1 a a)) |
740 |
|
|
741 |
|
(deftest substitute-if-not.keywords.6 |
742 |
|
(substitute-if-not 'a #'zerop (list 1 2 0 3 1 0 3) |
743 |
|
:key #'1- :key #'identity) |
744 |
|
(1 a a a 1 a a)) |
745 |
|
|
746 |
|
(deftest substitute-if-not.allow-other-keys.7 |
747 |
|
(substitute-if-not 'a #'zerop (list 1 2 0 3 1 0 3) :allow-other-keys t |
748 |
|
:bad t :allow-other-keys nil) |
749 |
|
(a a 0 a a 0 a)) |
750 |
|
|
751 |
|
(deftest substitute-if-not.allow-other-keys.8 |
752 |
|
(substitute-if-not 'a #'zerop (list 1 2 0 3 1 0 3) :allow-other-keys nil) |
753 |
|
(a a 0 a a 0 a)) |
754 |
|
|
755 |
;;; Error cases |
;;; Error cases |
756 |
|
|
757 |
(deftest substitute-if-not.error.1 |
(deftest substitute-if-not.error.1 |