/[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.4 by pfdietz, Sun Nov 10 22:34:33 2002 UTC revision 1.5 by pfdietz, Mon Nov 11 00:25:26 2002 UTC
# Line 282  Line 282 
282           (equalpt x y)))           (equalpt x y)))
283    t)    t)
284    
285    (deftest remove-vector.1
286      (remove 'a (vector 'b 'c 'd))
287      #(b c d))
288    
289    (deftest remove-vector.2
290      (remove 'a (vector 'b 'c 'd) :count -1)
291      #(b c d))
292    
293    (deftest remove-vector.3
294      (remove 'a (vector 'a 'b 'c 'd) :count -1)
295      #(a b c d))
296    
297    (deftest delete-vector.1
298      (delete 'a (vector 'b 'c 'd))
299      #(b c d))
300    
301    (deftest delete-vector.2
302      (delete 'a (vector 'b 'c 'd) :count -1)
303      #(b c d))
304    
305    (deftest delete-vector.3
306      (delete 'a (vector 'a 'b 'c 'd) :count -1)
307      #(a b c d))
308    
309    
310  ;;; Randomized tests  ;;; Randomized tests
311    
312  (deftest remove-random  (deftest remove-random

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

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