diff options
Diffstat (limited to 'storage/bdb/test/test007.tcl')
-rw-r--r-- | storage/bdb/test/test007.tcl | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/storage/bdb/test/test007.tcl b/storage/bdb/test/test007.tcl new file mode 100644 index 00000000000..1e99d107a2d --- /dev/null +++ b/storage/bdb/test/test007.tcl @@ -0,0 +1,19 @@ +# See the file LICENSE for redistribution information. +# +# Copyright (c) 1996-2002 +# Sleepycat Software. All rights reserved. +# +# $Id: test007.tcl,v 11.8 2002/01/11 15:53:40 bostic Exp $ +# +# TEST test007 +# TEST Small keys/medium data +# TEST Put/get per key +# TEST Close, reopen +# TEST Keyed delete +# TEST +# TEST Check that delete operations work. Create a database; close +# TEST database and reopen it. Then issues delete by key for each +# TEST entry. +proc test007 { method {nentries 10000} {tnum 7} args} { + eval {test006 $method $nentries 1 $tnum} $args +} |