1# See the file LICENSE for redistribution information. 2# 3# Copyright (c) 1998,2008 Oracle. All rights reserved. 4# 5# $Id: test040.tcl,v 12.6 2008/01/08 20:58:53 bostic Exp $ 6# 7# TEST test040 8# TEST Test038 with off-page duplicates 9# TEST DB_GET_BOTH functionality with off-page duplicates. 10proc test040 { method {nentries 10000} args} { 11 set pgindex [lsearch -exact $args "-pagesize"] 12 if { $pgindex != -1 } { 13 puts "Test040: skipping for specific pagesizes" 14 return 15 } 16 # Test with off-page duplicates 17 eval {test038 $method $nentries 20 "040" -pagesize 512} $args 18 19 # Test with multiple pages of off-page duplicates 20 eval {test038 $method [expr $nentries / 10] 100 "040" -pagesize 512} \ 21 $args 22} 23