diff options
Diffstat (limited to 'bdb/test/test007.tcl')
| -rw-r--r-- | bdb/test/test007.tcl | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/bdb/test/test007.tcl b/bdb/test/test007.tcl new file mode 100644 index 00000000000..305740f0369 --- /dev/null +++ b/bdb/test/test007.tcl @@ -0,0 +1,13 @@ +# See the file LICENSE for redistribution information. +# +# Copyright (c) 1996, 1997, 1998, 1999, 2000 +# Sleepycat Software. All rights reserved. +# +# $Id: test007.tcl,v 11.5 2000/05/22 12:51:38 bostic Exp $ +# +# DB Test 7 {access method} +# Check that delete operations work. Create a database; close database and +# reopen it. Then issues delete by key for each entry. +proc test007 { method {nentries 10000} {tnum 7} args} { + eval {test006 $method $nentries 1 $tnum} $args +} |