diff options
| author | Zhang Qiang <qiang.z.zhang@intel.com> | 2012-05-29 12:22:00 +0800 |
|---|---|---|
| committer | Zhang Qiang <qiang.z.zhang@intel.com> | 2012-05-29 12:22:00 +0800 |
| commit | 02f0634ac29e19c68279e5544cac963e7f1203b8 (patch) | |
| tree | b983472f94ef063cedf866d8ecfb55939171779d /test/test007.tcl | |
| parent | e776056ea09ba0b6d9505ced6913c9190a12d632 (diff) | |
| download | db4-02f0634ac29e19c68279e5544cac963e7f1203b8.tar.gz db4-02f0634ac29e19c68279e5544cac963e7f1203b8.tar.bz2 db4-02f0634ac29e19c68279e5544cac963e7f1203b8.zip | |
Diffstat (limited to 'test/test007.tcl')
| -rw-r--r-- | test/test007.tcl | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/test/test007.tcl b/test/test007.tcl new file mode 100644 index 0000000..2dfb46b --- /dev/null +++ b/test/test007.tcl @@ -0,0 +1,18 @@ +# See the file LICENSE for redistribution information. +# +# Copyright (c) 1996-2009 Oracle. All rights reserved. +# +# $Id$ +# +# 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. (Test006 plus reopen) +proc test007 { method {nentries 10000} {tnum "007"} {ndups 5} args} { + eval {test006 $method $nentries 1 $tnum $ndups} $args +} |