1# See the file LICENSE for redistribution information. 2# 3# Copyright (c) 1998-2009 Oracle. All rights reserved. 4# 5# $Id$ 6# 7# TEST test034 8# TEST test032 with off-page or overflow case with non-duplicates 9# TEST and duplicates. 10# TEST 11# TEST DB_GET_BOTH, DB_GET_BOTH_RANGE functionality with off-page 12# TEST or overflow case within non-duplicates and duplicates. 13proc test034 { method {nentries 10000} args} { 14 set pgindex [lsearch -exact $args "-pagesize"] 15 if { $pgindex != -1 } { 16 puts "Test034: Skipping for specific pagesizes" 17 return 18 } 19 20 # Test without duplicate and without overflow. 21 eval {test032 $method $nentries 1 "034" 0} $args 22 23 # Test without duplicate but with overflows. 24 eval {test032 $method [expr $nentries / 100] 1 "034" 1} $args 25 26 # Test with off-page duplicates 27 eval {test032 $method $nentries 20 "034" 0 -pagesize 512} $args 28 29 # Test with multiple pages of off-page duplicates 30 eval {test032 $method [expr $nentries / 10] 100 "034" 0 -pagesize 512} \ 31 $args 32 33 # Test with overflow duplicate. 34 eval {test032 $method [expr $nentries / 100] 5 "034" 1} $args 35} 36