1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
# See the file LICENSE for redistribution information.
#
# Copyright (c) 2000, 2013 Oracle and/or its affiliates. All rights reserved.
#
# $Id$
#
# 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 "079"} \
{ndups 20} args} {
if { [ is_queueext $method ] == 1 } {
set method "queue";
lappend args "-extent" "20"
}
set pgindex [lsearch -exact $args "-pagesize"]
if { $pgindex != -1 } {
puts "Test$tnum: skipping for specific pagesizes"
return
}
eval {test006 $method $nentries 1 $tnum $ndups -pagesize \
$pagesize} $args
}
|
