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