1# See the file LICENSE for redistribution information. 2# 3# Copyright (c) 1996,2008 Oracle. All rights reserved. 4# 5# $Id: test018.tcl,v 12.6 2008/01/08 20:58:53 bostic Exp $ 6# 7# TEST test018 8# TEST Offpage duplicate test 9# TEST Key_{first,last,before,after} offpage duplicates. 10# TEST Run duplicates with small page size so that we test off page 11# TEST duplicates. 12proc test018 { method {nentries 10000} args} { 13 puts "Test018: Off page duplicate tests" 14 set pgindex [lsearch -exact $args "-pagesize"] 15 if { $pgindex != -1 } { 16 puts "Test018: Skipping for specific pagesizes" 17 return 18 } 19 eval {test011 $method $nentries 19 "018" -pagesize 512} $args 20} 21