373 |
(loop for i from 1 to 2500 |
(loop for i from 1 to 2500 |
374 |
unless (eq (random-test-remove 20) t) |
unless (eq (random-test-remove 20) t) |
375 |
do (return *remove-fail-args*)) |
do (return *remove-fail-args*)) |
376 |
t) |
nil) |
377 |
|
|
378 |
(deftest remove-if-random |
(deftest remove-if-random |
379 |
(loop for i from 1 to 2500 |
(loop for i from 1 to 2500 |
380 |
unless (eq (random-test-remove-if 20) t) |
unless (eq (random-test-remove-if 20) t) |
381 |
do (return *remove-fail-args*)) |
do (return *remove-fail-args*)) |
382 |
t) |
nil) |
383 |
|
|
384 |
(deftest remove-if-not-random |
(deftest remove-if-not-random |
385 |
(loop for i from 1 to 2500 |
(loop for i from 1 to 2500 |
386 |
unless (eq (random-test-remove-if 20 t) t) |
unless (eq (random-test-remove-if 20 t) t) |
387 |
do (return *remove-fail-args*)) |
do (return *remove-fail-args*)) |
388 |
t) |
nil) |
389 |
|
|
390 |
(deftest delete-random |
(deftest delete-random |
391 |
(loop for i from 1 to 2500 |
(loop for i from 1 to 2500 |
392 |
unless (eq (random-test-delete 20) t) |
unless (eq (random-test-delete 20) t) |
393 |
do (return *remove-fail-args*)) |
do (return *remove-fail-args*)) |
394 |
t) |
nil) |
395 |
1 |
|
396 |
(deftest delete-if-random |
(deftest delete-if-random |
397 |
(loop for i from 1 to 2500 |
(loop for i from 1 to 2500 |
398 |
unless (eq (random-test-delete-if 20) t) |
unless (eq (random-test-delete-if 20) t) |
399 |
do (return *remove-fail-args*)) |
do (return *remove-fail-args*)) |
400 |
t) |
nil) |
401 |
|
|
402 |
(deftest delete-if-not-random |
(deftest delete-if-not-random |
403 |
(loop for i from 1 to 2500 |
(loop for i from 1 to 2500 |
404 |
unless (eq (random-test-delete-if 20 t) t) |
unless (eq (random-test-delete-if 20 t) t) |
405 |
do (return *remove-fail-args*)) |
do (return *remove-fail-args*)) |
406 |
t) |
nil) |
407 |
|
|
408 |
;;; Additional tests with KEY = NIL |
;;; Additional tests with KEY = NIL |
409 |
|
|