Skip to content
Snippets Groups Projects
Commit 6124d1ca authored by pfdietz's avatar pfdietz
Browse files

Fixed expected return value in randomized tests.

parent 62bf13f2
No related branches found
No related tags found
No related merge requests found
...@@ -373,37 +373,37 @@ ...@@ -373,37 +373,37 @@
(loop for i from 1 to 2500 (loop for i from 1 to 2500
unless (eq (random-test-remove 20) t) unless (eq (random-test-remove 20) t)
do (return *remove-fail-args*)) do (return *remove-fail-args*))
t) nil)
(deftest remove-if-random (deftest remove-if-random
(loop for i from 1 to 2500 (loop for i from 1 to 2500
unless (eq (random-test-remove-if 20) t) unless (eq (random-test-remove-if 20) t)
do (return *remove-fail-args*)) do (return *remove-fail-args*))
t) nil)
(deftest remove-if-not-random (deftest remove-if-not-random
(loop for i from 1 to 2500 (loop for i from 1 to 2500
unless (eq (random-test-remove-if 20 t) t) unless (eq (random-test-remove-if 20 t) t)
do (return *remove-fail-args*)) do (return *remove-fail-args*))
t) nil)
(deftest delete-random (deftest delete-random
(loop for i from 1 to 2500 (loop for i from 1 to 2500
unless (eq (random-test-delete 20) t) unless (eq (random-test-delete 20) t)
do (return *remove-fail-args*)) do (return *remove-fail-args*))
t) nil)
1
(deftest delete-if-random (deftest delete-if-random
(loop for i from 1 to 2500 (loop for i from 1 to 2500
unless (eq (random-test-delete-if 20) t) unless (eq (random-test-delete-if 20) t)
do (return *remove-fail-args*)) do (return *remove-fail-args*))
t) nil)
(deftest delete-if-not-random (deftest delete-if-not-random
(loop for i from 1 to 2500 (loop for i from 1 to 2500
unless (eq (random-test-delete-if 20 t) t) unless (eq (random-test-delete-if 20 t) t)
do (return *remove-fail-args*)) do (return *remove-fail-args*))
t) nil)
;;; Additional tests with KEY = NIL ;;; Additional tests with KEY = NIL
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment