/[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.3 by pfdietz, Thu Oct 17 13:16:56 2002 UTC revision 1.4 by pfdietz, Sun Nov 10 22:34:33 2002 UTC
# Line 266  Line 266 
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

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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