149 |
#'<)) |
#'<)) |
150 |
(1 2 3 4)) |
(1 2 3 4)) |
151 |
|
|
152 |
(deftest set-difference-20 |
;;; Keyword tests |
153 |
|
|
154 |
|
(deftest set-difference.allow-other-keys.1 |
155 |
(sort |
(sort |
156 |
(copy-list |
(copy-list |
157 |
(set-difference |
(set-difference |
158 |
'(1 2 3 4 5) '(2 3 4) |
(list 1 2 3 4 5) (list 2 3 4) |
159 |
:bad t :allow-other-keys t)) |
:bad t :allow-other-keys t)) |
160 |
#'<) |
#'<) |
161 |
(1 5)) |
(1 5)) |
162 |
|
|
163 |
(deftest set-difference-21 |
(deftest set-difference.allow-other-keys.2 |
164 |
(sort |
(sort |
165 |
(copy-list |
(copy-list |
166 |
(set-difference |
(set-difference |
167 |
'(1 2 3 4 5) '(2 3 4) |
(list 1 2 3 4 5) (list 2 3 4) |
168 |
:allow-other-keys t :bad t)) |
:allow-other-keys t :bad t)) |
169 |
#'<) |
#'<) |
170 |
(1 5)) |
(1 5)) |
171 |
|
|
172 |
(deftest set-difference-22 |
(deftest set-difference.allow-other-keys.3 |
173 |
(sort |
(sort |
174 |
(copy-list |
(copy-list |
175 |
(set-difference |
(set-difference |
176 |
'(1 2 3 4 5) '(2 3 4) |
(list 1 2 3 4 5) (list 2 3 4) |
177 |
:allow-other-keys t :bad t :test #'(lambda (x y) (= x (1- y))))) |
:allow-other-keys t :bad t :test #'(lambda (x y) (= x (1- y))))) |
178 |
#'<) |
#'<) |
179 |
(4 5)) |
(4 5)) |
180 |
|
|
181 |
|
(deftest set-difference.allow-other-keys.4 |
182 |
|
(sort |
183 |
|
(copy-list |
184 |
|
(set-difference |
185 |
|
(list 1 2 3 4 5) (list 2 3 4) |
186 |
|
:allow-other-keys t)) |
187 |
|
#'<) |
188 |
|
(1 5)) |
189 |
|
|
190 |
|
(deftest set-difference.allow-other-keys.5 |
191 |
|
(sort |
192 |
|
(copy-list |
193 |
|
(set-difference |
194 |
|
(list 1 2 3 4 5) (list 2 3 4) |
195 |
|
:allow-other-keys nil)) |
196 |
|
#'<) |
197 |
|
(1 5)) |
198 |
|
|
199 |
|
(deftest set-difference.allow-other-keys.6 |
200 |
|
(sort |
201 |
|
(copy-list |
202 |
|
(set-difference |
203 |
|
(list 1 2 3 4 5) (list 2 3 4) |
204 |
|
:allow-other-keys t |
205 |
|
:allow-other-keys nil)) |
206 |
|
#'<) |
207 |
|
(1 5)) |
208 |
|
|
209 |
|
(deftest set-difference.allow-other-keys.7 |
210 |
|
(sort |
211 |
|
(copy-list |
212 |
|
(set-difference |
213 |
|
(list 1 2 3 4 5) (list 2 3 4) |
214 |
|
:allow-other-keys t |
215 |
|
:allow-other-keys nil |
216 |
|
'#:x 1)) |
217 |
|
#'<) |
218 |
|
(1 5)) |
219 |
|
|
220 |
|
(deftest set-difference.keywords.8 |
221 |
|
(sort |
222 |
|
(copy-list |
223 |
|
(set-difference |
224 |
|
(list 1 2 3 4 5) (list 2 3 4) |
225 |
|
:test #'eql :test (complement #'eql))) |
226 |
|
#'<) |
227 |
|
(1 5)) |
228 |
|
|
229 |
|
(deftest set-difference.keywords.9 |
230 |
|
(sort |
231 |
|
(copy-list |
232 |
|
(set-difference |
233 |
|
(list 1 2 3 4 5) (list 2 3 4) |
234 |
|
:test (complement #'eql) :test #'eql)) |
235 |
|
#'<) |
236 |
|
nil) |
237 |
|
|
238 |
|
;;; Error tests |
239 |
|
|
240 |
|
|
241 |
(deftest set-difference.error.1 |
(deftest set-difference.error.1 |
242 |
(classify-error (set-difference)) |
(classify-error (set-difference)) |
403 |
#'<)) |
#'<)) |
404 |
(1 2 3 4)) |
(1 2 3 4)) |
405 |
|
|
406 |
(deftest nset-difference-20 |
;;; Keyword tests |
407 |
|
|
408 |
|
(deftest nset-difference.allow-other-keys.1 |
409 |
(sort |
(sort |
410 |
(copy-list |
(copy-list |
411 |
(nset-difference |
(nset-difference |
414 |
#'<) |
#'<) |
415 |
(1 5)) |
(1 5)) |
416 |
|
|
417 |
(deftest nset-difference-21 |
(deftest nset-difference.allow-other-keys.2 |
418 |
(sort |
(sort |
419 |
(copy-list |
(copy-list |
420 |
(nset-difference |
(nset-difference |
423 |
#'<) |
#'<) |
424 |
(1 5)) |
(1 5)) |
425 |
|
|
426 |
(deftest nset-difference-22 |
(deftest nset-difference.allow-other-keys.3 |
427 |
(sort |
(sort |
428 |
(copy-list |
(copy-list |
429 |
(nset-difference |
(nset-difference |
432 |
#'<) |
#'<) |
433 |
(4 5)) |
(4 5)) |
434 |
|
|
435 |
|
(deftest nset-difference.allow-other-keys.4 |
436 |
|
(sort |
437 |
|
(copy-list |
438 |
|
(nset-difference |
439 |
|
(list 1 2 3 4 5) (list 2 3 4) |
440 |
|
:allow-other-keys t)) |
441 |
|
#'<) |
442 |
|
(1 5)) |
443 |
|
|
444 |
|
(deftest nset-difference.allow-other-keys.5 |
445 |
|
(sort |
446 |
|
(copy-list |
447 |
|
(nset-difference |
448 |
|
(list 1 2 3 4 5) (list 2 3 4) |
449 |
|
:allow-other-keys nil)) |
450 |
|
#'<) |
451 |
|
(1 5)) |
452 |
|
|
453 |
|
(deftest nset-difference.allow-other-keys.6 |
454 |
|
(sort |
455 |
|
(copy-list |
456 |
|
(nset-difference |
457 |
|
(list 1 2 3 4 5) (list 2 3 4) |
458 |
|
:allow-other-keys t |
459 |
|
:allow-other-keys nil)) |
460 |
|
#'<) |
461 |
|
(1 5)) |
462 |
|
|
463 |
|
(deftest nset-difference.allow-other-keys.7 |
464 |
|
(sort |
465 |
|
(copy-list |
466 |
|
(nset-difference |
467 |
|
(list 1 2 3 4 5) (list 2 3 4) |
468 |
|
:allow-other-keys t |
469 |
|
:allow-other-keys nil |
470 |
|
'#:x 1)) |
471 |
|
#'<) |
472 |
|
(1 5)) |
473 |
|
|
474 |
|
(deftest nset-difference.keywords.8 |
475 |
|
(sort |
476 |
|
(copy-list |
477 |
|
(nset-difference |
478 |
|
(list 1 2 3 4 5) (list 2 3 4) |
479 |
|
:test #'eql :test (complement #'eql))) |
480 |
|
#'<) |
481 |
|
(1 5)) |
482 |
|
|
483 |
|
(deftest nset-difference.keywords.9 |
484 |
|
(sort |
485 |
|
(copy-list |
486 |
|
(nset-difference |
487 |
|
(list 1 2 3 4 5) (list 2 3 4) |
488 |
|
:test (complement #'eql) :test #'eql)) |
489 |
|
#'<) |
490 |
|
nil) |
491 |
|
|
492 |
|
;;; Error tests |
493 |
|
|
494 |
(deftest nset-difference.error.1 |
(deftest nset-difference.error.1 |
495 |
(classify-error (nset-difference)) |
(classify-error (nset-difference)) |
496 |
program-error) |
program-error) |