mirror of
https://github.com/berkeleydb/libdb.git
synced 2024-11-17 01:26:25 +00:00
18 lines
561 B
Tcl
18 lines
561 B
Tcl
|
# See the file LICENSE for redistribution information.
|
||
|
|
#
|
||
|
|
# Copyright (c) 1996, 2011 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
|
||
|
|
}
|