114 |
;; the order of the arguments to the test function |
;; the order of the arguments to the test function |
115 |
;; |
;; |
116 |
(deftest set-exclusive-or-17 |
(deftest set-exclusive-or-17 |
117 |
(let ((list1 '(a b c d)) |
(let ((list1 '(a b c d)) |
118 |
(list2 '(e f g h))) |
(list2 '(e f g h))) |
119 |
(block fail |
(block fail |
120 |
(not (not |
(notnot-mv |
121 |
(set-exclusive-or-with-check |
(set-exclusive-or-with-check |
122 |
list1 list2 |
list1 list2 |
123 |
:test #'(lambda (s1 s2) |
:test #'(lambda (s1 s2) |
124 |
(when (or (member s1 list2) |
(when (or (member s1 list2) |
125 |
(member s2 list1)) |
(member s2 list1)) |
126 |
(return-from fail 'failed)))))))) |
(return-from fail 'failed))))))) |
127 |
t) |
t) |
128 |
|
|
129 |
(deftest set-exclusive-or-17-a |
(deftest set-exclusive-or-17-a |
130 |
(let ((list1 '(a b c d)) |
(let ((list1 '(a b c d)) |
131 |
(list2 '(e f g h))) |
(list2 '(e f g h))) |
132 |
(block fail |
(block fail |
133 |
(not (not |
(notnot-mv |
134 |
(set-exclusive-or-with-check |
(set-exclusive-or-with-check |
135 |
list1 list2 |
list1 list2 |
136 |
:key #'identity |
:key #'identity |
137 |
:test #'(lambda (s1 s2) |
:test #'(lambda (s1 s2) |
138 |
(when (or (member s1 list2) |
(when (or (member s1 list2) |
139 |
(member s2 list1)) |
(member s2 list1)) |
140 |
(return-from fail 'failed)))))))) |
(return-from fail 'failed))))))) |
141 |
t) |
t) |
142 |
|
|
143 |
(deftest set-exclusive-or-18 |
(deftest set-exclusive-or-18 |
144 |
(let ((list1 '(a b c d)) |
(let ((list1 '(a b c d)) |
145 |
(list2 '(e f g h))) |
(list2 '(e f g h))) |
146 |
(block fail |
(block fail |
147 |
(not (not |
(notnot-mv |
148 |
(set-exclusive-or-with-check |
(set-exclusive-or-with-check |
149 |
list1 list2 |
list1 list2 |
150 |
:test-not |
:test-not |
151 |
#'(lambda (s1 s2) |
#'(lambda (s1 s2) |
152 |
(when (or (member s1 list2) |
(when (or (member s1 list2) |
153 |
(member s2 list1)) |
(member s2 list1)) |
154 |
(return-from fail 'failed)) |
(return-from fail 'failed)) |
155 |
t)))))) |
t))))) |
156 |
t) |
t) |
157 |
|
|
158 |
(deftest set-exclusive-or-18-a |
(deftest set-exclusive-or-18-a |
159 |
(let ((list1 '(a b c d)) |
(let ((list1 '(a b c d)) |
160 |
(list2 '(e f g h))) |
(list2 '(e f g h))) |
161 |
(block fail |
(block fail |
162 |
(not (not |
(notnot-mv |
163 |
(set-exclusive-or-with-check |
(set-exclusive-or-with-check |
164 |
list1 list2 |
list1 list2 |
165 |
:key #'identity |
:key #'identity |
166 |
:test-not |
:test-not |
167 |
#'(lambda (s1 s2) |
#'(lambda (s1 s2) |
168 |
(when (or (member s1 list2) |
(when (or (member s1 list2) |
169 |
(member s2 list1)) |
(member s2 list1)) |
170 |
(return-from fail 'failed)) |
(return-from fail 'failed)) |
171 |
t)))))) |
t))))) |
172 |
t) |
t) |
173 |
|
|
174 |
;;; Keyword tests |
;;; Keyword tests |
365 |
;; the order of the arguments to the test function |
;; the order of the arguments to the test function |
366 |
;; |
;; |
367 |
(deftest nset-exclusive-or-17 |
(deftest nset-exclusive-or-17 |
368 |
(let ((list1 '(a b c d)) |
(let ((list1 '(a b c d)) |
369 |
(list2 '(e f g h))) |
(list2 '(e f g h))) |
370 |
(block fail |
(block fail |
371 |
(not (not |
(notnot-mv |
372 |
(nset-exclusive-or-with-check |
(nset-exclusive-or-with-check |
373 |
list1 list2 |
list1 list2 |
374 |
:test #'(lambda (s1 s2) |
:test #'(lambda (s1 s2) |
375 |
(when (or (member s1 list2) |
(when (or (member s1 list2) |
376 |
(member s2 list1)) |
(member s2 list1)) |
377 |
(return-from fail 'failed)))))))) |
(return-from fail 'failed))))))) |
378 |
t) |
t) |
379 |
|
|
380 |
(deftest nset-exclusive-or-17-a |
(deftest nset-exclusive-or-17-a |
381 |
(let ((list1 '(a b c d)) |
(let ((list1 '(a b c d)) |
382 |
(list2 '(e f g h))) |
(list2 '(e f g h))) |
383 |
(block fail |
(block fail |
384 |
(not (not |
(notnot-mv |
385 |
(nset-exclusive-or-with-check |
(nset-exclusive-or-with-check |
386 |
list1 list2 |
list1 list2 |
387 |
:key #'identity |
:key #'identity |
388 |
:test #'(lambda (s1 s2) |
:test #'(lambda (s1 s2) |
389 |
(when (or (member s1 list2) |
(when (or (member s1 list2) |
390 |
(member s2 list1)) |
(member s2 list1)) |
391 |
(return-from fail 'failed)))))))) |
(return-from fail 'failed))))))) |
392 |
t) |
t) |
393 |
|
|
394 |
(deftest nset-exclusive-or-18 |
(deftest nset-exclusive-or-18 |
395 |
(let ((list1 '(a b c d)) |
(let ((list1 '(a b c d)) |
396 |
(list2 '(e f g h))) |
(list2 '(e f g h))) |
397 |
(block fail |
(block fail |
398 |
(not (not |
(notnot-mv |
399 |
(nset-exclusive-or-with-check |
(nset-exclusive-or-with-check |
400 |
list1 list2 |
list1 list2 |
401 |
:test-not |
:test-not |
402 |
#'(lambda (s1 s2) |
#'(lambda (s1 s2) |
403 |
(when (or (member s1 list2) |
(when (or (member s1 list2) |
404 |
(member s2 list1)) |
(member s2 list1)) |
405 |
(return-from fail 'failed)) |
(return-from fail 'failed)) |
406 |
t)))))) |
t))))) |
407 |
t) |
t) |
408 |
|
|
409 |
(deftest nset-exclusive-or-18-a |
(deftest nset-exclusive-or-18-a |
410 |
(let ((list1 '(a b c d)) |
(let ((list1 '(a b c d)) |
411 |
(list2 '(e f g h))) |
(list2 '(e f g h))) |
412 |
(block fail |
(block fail |
413 |
(not (not |
(notnot-mv |
414 |
(nset-exclusive-or-with-check |
(nset-exclusive-or-with-check |
415 |
list1 list2 |
list1 list2 |
416 |
:key #'identity |
:key #'identity |
417 |
:test-not |
:test-not |
418 |
#'(lambda (s1 s2) |
#'(lambda (s1 s2) |
419 |
(when (or (member s1 list2) |
(when (or (member s1 list2) |
420 |
(member s2 list1)) |
(member s2 list1)) |
421 |
(return-from fail 'failed)) |
(return-from fail 'failed)) |
422 |
t)))))) |
t))))) |
423 |
t) |
t) |
424 |
|
|
425 |
;;; Keyword tests |
;;; Keyword tests |