libdb/test/tcl/test009.tcl

18 lines
561 B
Tcl
Raw Normal View History

# See the file LICENSE for redistribution information.
#
2012-11-14 20:13:24 +00:00
# Copyright (c) 1996, 2012 Oracle and/or its affiliates. All rights reserved.
#
# $Id$
#
# TEST test009
# TEST Small keys/large data
# TEST Same as test008; close and reopen database
# TEST
# TEST Check that we reuse overflow pages. Create database with lots of
# TEST big key/data pairs. Go through and delete and add keys back
# TEST randomly. Then close the DB and make sure that we have everything
# TEST we think we should.
proc test009 { method args} {
eval {test008 $method "009" 0} $args
}