/[gcl]/gcl/ansi-tests/remove.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/remove.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by pfdietz, Mon Nov 11 01:49:10 2002 UTC revision 1.8 by pfdietz, Fri Nov 15 12:31:24 2002 UTC
# Line 373  Line 373 
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    

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26