266 |
(and (equalp orig x) y)) |
(and (equalp orig x) y)) |
267 |
(1 2 2 6 1 2 4 1 3 2 7)) |
(1 2 2 6 1 2 4 1 3 2 7)) |
268 |
|
|
269 |
|
(deftest remove-list.27 |
270 |
|
(let* ((orig '(1 2 3 2 6 1 2 4 1 3 2 7)) |
271 |
|
(x (copy-seq orig)) |
272 |
|
(y (remove 3 x :count -1))) |
273 |
|
(and (equalp orig x) |
274 |
|
(equalpt x y))) |
275 |
|
t) |
276 |
|
|
277 |
|
(deftest remove-list.28 |
278 |
|
(let* ((orig '(1 2 3 2 6 1 2 4 1 3 2 7)) |
279 |
|
(x (copy-seq orig)) |
280 |
|
(y (remove 3 x :count -1000000000000))) |
281 |
|
(and (equalp orig x) |
282 |
|
(equalpt x y))) |
283 |
|
t) |
284 |
|
|
285 |
;;; Randomized tests |
;;; Randomized tests |
286 |
|
|
287 |
(deftest remove-random |
(deftest remove-random |
288 |
(loop for i from 1 to 2500 |
(loop for i from 1 to 2500 |
289 |
always (random-test-remove 20)) |
unless (eq (random-test-remove 20) t) |
290 |
|
do (return *remove-fail-args*)) |
291 |
t) |
t) |
292 |
|
|
293 |
(deftest remove-if-random |
(deftest remove-if-random |
294 |
(loop for i from 1 to 2500 |
(loop for i from 1 to 2500 |
295 |
always (random-test-remove-if 20)) |
unless (eq (random-test-remove-if 20) t) |
296 |
|
do (return *remove-fail-args*)) |
297 |
t) |
t) |
298 |
|
|
299 |
(deftest remove-if-not-random |
(deftest remove-if-not-random |
300 |
(loop for i from 1 to 2500 |
(loop for i from 1 to 2500 |
301 |
always (random-test-remove-if 20 t)) |
unless (eq (random-test-remove-if 20 t) t) |
302 |
|
do (return *remove-fail-args*)) |
303 |
t) |
t) |
304 |
|
|
305 |
(deftest delete-random |
(deftest delete-random |
306 |
(loop for i from 1 to 2500 |
(loop for i from 1 to 2500 |
307 |
always (random-test-delete 20)) |
unless (eq (random-test-delete 20) t) |
308 |
|
do (return *remove-fail-args*)) |
309 |
t) |
t) |
310 |
|
1 |
311 |
(deftest delete-if-random |
(deftest delete-if-random |
312 |
(loop for i from 1 to 2500 |
(loop for i from 1 to 2500 |
313 |
always (random-test-delete-if 20)) |
unless (eq (random-test-delete-if 20) t) |
314 |
|
do (return *remove-fail-args*)) |
315 |
t) |
t) |
316 |
|
|
317 |
(deftest delete-if-not-random |
(deftest delete-if-not-random |
318 |
(loop for i from 1 to 2500 |
(loop for i from 1 to 2500 |
319 |
always (random-test-delete-if 20 t)) |
unless (eq (random-test-delete-if 20 t) t) |
320 |
|
do (return *remove-fail-args*)) |
321 |
t) |
t) |
322 |
|
|
323 |
;;; Additional tests with KEY = NIL |
;;; Additional tests with KEY = NIL |