diff options
Diffstat (limited to 'db-4.8.30/test/test035.tcl')
-rw-r--r-- | db-4.8.30/test/test035.tcl | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/db-4.8.30/test/test035.tcl b/db-4.8.30/test/test035.tcl new file mode 100644 index 0000000..51e3c80 --- /dev/null +++ b/db-4.8.30/test/test035.tcl @@ -0,0 +1,21 @@ +# See the file LICENSE for redistribution information. +# +# Copyright (c) 1996-2009 Oracle. All rights reserved. +# +# $Id$ +# +# TEST test035 +# TEST Test033 with off-page duplicates +# TEST DB_GET_BOTH functionality with off-page duplicates. +proc test035 { method {nentries 10000} args} { + set pgindex [lsearch -exact $args "-pagesize"] + if { $pgindex != -1 } { + puts "Test035: Skipping for specific pagesizes" + return + } + # Test with off-page duplicates + eval {test033 $method $nentries 20 "035" -pagesize 512} $args + # Test with multiple pages of off-page duplicates + eval {test033 $method [expr $nentries / 10] 100 "035" -pagesize 512} \ + $args +} |