1# See the file LICENSE for redistribution information. 2# 3# Copyright (c) 1996,2008 Oracle. All rights reserved. 4# 5# $Id: test041.tcl,v 12.6 2008/01/08 20:58:53 bostic Exp $ 6# 7# TEST test041 8# TEST Test039 with off-page duplicates 9# TEST DB_GET_BOTH functionality with off-page duplicates. 10proc test041 { method {nentries 10000} args} { 11 # Test with off-page duplicates 12 eval {test039 $method $nentries 20 "041" -pagesize 512} $args 13 14 # Test with multiple pages of off-page duplicates 15 eval {test039 $method [expr $nentries / 10] 100 "041" -pagesize 512} \ 16 $args 17} 18