1# See the file LICENSE for redistribution information.
2#
3# Copyright (c) 1996,2008 Oracle.  All rights reserved.
4#
5# $Id: test007.tcl,v 12.6 2008/01/08 20:58:53 bostic Exp $
6#
7# TEST	test007
8# TEST	Small keys/medium data
9# TEST		Put/get per key
10# TEST		Close, reopen
11# TEST		Keyed delete
12# TEST
13# TEST	Check that delete operations work.  Create a database; close
14# TEST	database and reopen it.  Then issues delete by key for each
15# TEST	entry.  (Test006 plus reopen)
16proc test007 { method {nentries 10000} {tnum "007"} {ndups 5} args} {
17	eval {test006 $method $nentries 1 $tnum $ndups} $args
18}
19