836 |
result) |
result) |
837 |
#*01111) |
#*01111) |
838 |
|
|
839 |
|
;;; Keyword tests |
840 |
|
|
841 |
|
(deftest nsubstitute.allow-other-keys.1 |
842 |
|
(nsubstitute 'a 0 (list 1 2 0 3 1 0 3) :allow-other-keys t :bad t) |
843 |
|
(1 2 a 3 1 a 3)) |
844 |
|
|
845 |
|
(deftest nsubstitute.allow-other-keys.2 |
846 |
|
(nsubstitute 'a 0 (list 1 2 0 3 1 0 3) :bad t :allow-other-keys t) |
847 |
|
(1 2 a 3 1 a 3)) |
848 |
|
|
849 |
|
(deftest nsubstitute.allow-other-keys.3 |
850 |
|
(nsubstitute 'a 0 (list 1 2 0 3 1 0 3) :allow-other-keys t |
851 |
|
:allow-other-keys nil :bad t) |
852 |
|
(1 2 a 3 1 a 3)) |
853 |
|
|
854 |
|
(deftest nsubstitute.allow-other-keys.4 |
855 |
|
(nsubstitute 'a 0 (list 1 2 0 3 1 0 3) :bad t |
856 |
|
:allow-other-keys t :allow-other-keys nil) |
857 |
|
(1 2 a 3 1 a 3)) |
858 |
|
|
859 |
|
(deftest nsubstitute.allow-other-keys.5 |
860 |
|
(nsubstitute 'a 0 (list 1 2 0 3 1 0 3) |
861 |
|
:allow-other-keys t :key #'1-) |
862 |
|
(a 2 0 3 a 0 3)) |
863 |
|
|
864 |
|
(deftest nsubstitute.keywords.6 |
865 |
|
(nsubstitute 'a 0 (list 1 2 0 3 1 0 3) :key #'1- :key #'identity) |
866 |
|
(a 2 0 3 a 0 3)) |
867 |
|
|
868 |
|
(deftest nsubstitute.allow-other-keys.7 |
869 |
|
(nsubstitute 'a 0 (list 1 2 0 3 1 0 3) :allow-other-keys t |
870 |
|
:bad t :allow-other-keys nil) |
871 |
|
(1 2 a 3 1 a 3)) |
872 |
|
|
873 |
|
(deftest nsubstitute.allow-other-keys.8 |
874 |
|
(nsubstitute 'a 0 (list 1 2 0 3 1 0 3) :allow-other-keys nil) |
875 |
|
(1 2 a 3 1 a 3)) |
876 |
|
|
877 |
|
|
878 |
;;; Error cases |
;;; Error cases |
879 |
|
|
880 |
(deftest nsubstitute.error.1 |
(deftest nsubstitute.error.1 |