1# See the file LICENSE for redistribution information. 2# 3# Copyright (c) 2000,2008 Oracle. All rights reserved. 4# 5# $Id: test079.tcl,v 12.6 2008/01/08 20:58:53 bostic Exp $ 6# 7# TEST test079 8# TEST Test of deletes in large trees. (test006 w/ sm. pagesize). 9# TEST 10# TEST Check that delete operations work in large btrees. 10000 entries 11# TEST and a pagesize of 512 push this out to a four-level btree, with a 12# TEST small fraction of the entries going on overflow pages. 13proc test079 { method {nentries 10000} {pagesize 512} {tnum "079"} \ 14 {ndups 20} args} { 15 if { [ is_queueext $method ] == 1 } { 16 set method "queue"; 17 lappend args "-extent" "20" 18 } 19 20 set pgindex [lsearch -exact $args "-pagesize"] 21 if { $pgindex != -1 } { 22 puts "Test$tnum: skipping for specific pagesizes" 23 return 24 } 25 26 eval {test006 $method $nentries 1 $tnum $ndups -pagesize \ 27 $pagesize} $args 28} 29