diff options
Diffstat (limited to 'test/test009.tcl')
-rw-r--r-- | test/test009.tcl | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/test/test009.tcl b/test/test009.tcl new file mode 100644 index 0000000..0c98d57 --- /dev/null +++ b/test/test009.tcl @@ -0,0 +1,17 @@ +# See the file LICENSE for redistribution information. +# +# Copyright (c) 1996-2009 Oracle. 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 +} |