/[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.6 by pfdietz, Mon Nov 11 01:01:39 2002 UTC revision 1.7 by pfdietz, Mon Nov 11 01:49:10 2002 UTC
# Line 282  Line 282 
282           (equalpt x y)))           (equalpt x y)))
283    t)    t)
284    
285    (deftest remove-list.29
286      (let* ((orig '(1 2 3 2 6 1 2 4 1 3 2 7))
287             (x (copy-seq orig))
288             (y (remove 3 x :count 1000000000000)))
289        (and (equalp orig x)
290             y))
291      (1 2 2 6 1 2 4 1 2 7))
292    
293    ;;; Assorted tests of remove and delete on vectors, strings,
294    ;;; and bit vectors.  These are mostly to exercise bugs previously
295    ;;; detected by the randomized tests
296    
297  (deftest remove-vector.1  (deftest remove-vector.1
298    (remove 'a (vector 'b 'c 'd))    (remove 'a (vector 'b 'c 'd))
299    #(b c d))    #(b c d))

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

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