libdb/test/tcl/test027.tcl
2011-09-13 13:44:24 -04:00

16 lines
508 B
Tcl

# See the file LICENSE for redistribution information.
#
# Copyright (c) 1996, 2011 Oracle and/or its affiliates. All rights reserved.
#
# $Id$
#
# TEST test027
# TEST Off-page duplicate test
# TEST Test026 with parameters to force off-page duplicates.
# 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 test027 { method {nentries 100} args} {
eval {test026 $method $nentries 100 "027"} $args
}