diff options
Diffstat (limited to 'storage/bdb/test/test079.tcl')
| -rw-r--r-- | storage/bdb/test/test079.tcl | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/storage/bdb/test/test079.tcl b/storage/bdb/test/test079.tcl new file mode 100644 index 00000000000..70fd4e05090 --- /dev/null +++ b/storage/bdb/test/test079.tcl @@ -0,0 +1,20 @@ +# See the file LICENSE for redistribution information. +# +# Copyright (c) 2000-2002 +# Sleepycat Software. All rights reserved. +# +# $Id: test079.tcl,v 11.8 2002/01/11 15:53:54 bostic Exp $ +# +# TEST test079 +# TEST Test of deletes in large trees. (test006 w/ sm. pagesize). +# TEST +# TEST Check that delete operations work in large btrees. 10000 entries +# TEST and a pagesize of 512 push this out to a four-level btree, with a +# TEST small fraction of the entries going on overflow pages. +proc test079 { method {nentries 10000} {pagesize 512} {tnum 79} args} { + if { [ is_queueext $method ] == 1 } { + set method "queue"; + lappend args "-extent" "20" + } + eval {test006 $method $nentries 1 $tnum -pagesize $pagesize} $args +} |