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