129 |
;;; Keyword tests |
;;; Keyword tests |
130 |
|
|
131 |
(deftest subsetp.allow-other-keys.1 |
(deftest subsetp.allow-other-keys.1 |
132 |
(notnot (subsetp '(1 2 3 4) '(0 1 2 3 4 5) :bad t :allow-other-keys 67)) |
(notnot-mv (subsetp '(1 2 3 4) '(0 1 2 3 4 5) :bad t :allow-other-keys 67)) |
133 |
t) |
t) |
134 |
|
|
135 |
(deftest subsetp.allow-other-keys.2 |
(deftest subsetp.allow-other-keys.2 |
136 |
(notnot (subsetp '(1 2 3 4) '(0 1 2 3 4 5) |
(notnot-mv (subsetp '(1 2 3 4) '(0 1 2 3 4 5) |
137 |
:allow-other-keys #'cons :bad t)) |
:allow-other-keys #'cons :bad t)) |
138 |
t) |
t) |
139 |
|
|
140 |
(deftest subsetp.allow-other-keys.3 |
(deftest subsetp.allow-other-keys.3 |
141 |
(notnot (subsetp '(1 2 3 4) '(0 1 2 3 4) |
(notnot-mv (subsetp '(1 2 3 4) '(0 1 2 3 4) |
142 |
:allow-other-keys (make-hash-table) |
:allow-other-keys (make-hash-table) |
143 |
:bad t |
:bad t |
144 |
:test #'(lambda (x y) (= (1+ x) y)))) |
:test #'(lambda (x y) (= (1+ x) y)))) |
145 |
nil) |
nil) |
146 |
|
|
147 |
(deftest subsetp.allow-other-keys.4 |
(deftest subsetp.allow-other-keys.4 |
148 |
(notnot (subsetp '(1 2 3 4) '(0 1 2 3 4 5) :allow-other-keys t)) |
(notnot-mv (subsetp '(1 2 3 4) '(0 1 2 3 4 5) :allow-other-keys t)) |
149 |
t) |
t) |
150 |
|
|
151 |
(deftest subsetp.allow-other-keys.5 |
(deftest subsetp.allow-other-keys.5 |
152 |
(notnot (subsetp '(1 2 3 4) '(0 1 2 3 4 5) :allow-other-keys nil)) |
(notnot-mv (subsetp '(1 2 3 4) '(0 1 2 3 4 5) :allow-other-keys nil)) |
153 |
t) |
t) |
154 |
|
|
155 |
(deftest subsetp.allow-other-keys.6 |
(deftest subsetp.allow-other-keys.6 |
156 |
(notnot (subsetp '(1 2 3 4) '(0 1 2 3 4 5) |
(notnot-mv (subsetp '(1 2 3 4) '(0 1 2 3 4 5) |
157 |
:allow-other-keys t :bad1 t |
:allow-other-keys t :bad1 t |
158 |
:allow-other-keys nil :bad2 t)) |
:allow-other-keys nil :bad2 t)) |
159 |
t) |
t) |
160 |
|
|
161 |
(deftest subsetp.keywords.7 |
(deftest subsetp.keywords.7 |
162 |
(notnot (subsetp '(1 2 3 4) '(0 1 2 3 4) |
(notnot-mv (subsetp '(1 2 3 4) '(0 1 2 3 4) |
163 |
:test #'(lambda (x y) (= (1+ x) y)) |
:test #'(lambda (x y) (= (1+ x) y)) |
164 |
:test #'eql)) |
:test #'eql)) |
165 |
nil) |
nil) |
166 |
|
|
167 |
(deftest subsetp.keywords.8 |
(deftest subsetp.keywords.8 |
168 |
(notnot (subsetp '(1 2 3 4 10) '(0 1 2 3 4) |
(notnot-mv (subsetp '(1 2 3 4 10) '(0 1 2 3 4) |
169 |
:key nil |
:key nil |
170 |
:key #'(lambda (x) (mod x 2)))) |
:key #'(lambda (x) (mod x 2)))) |
171 |
nil) |
nil) |