diff options
Diffstat (limited to 'db/test/test035.tcl')
| -rw-r--r-- | db/test/test035.tcl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/db/test/test035.tcl b/db/test/test035.tcl new file mode 100644 index 000000000..e2afef4af --- /dev/null +++ b/db/test/test035.tcl @@ -0,0 +1,16 @@ +# See the file LICENSE for redistribution information. +# +# Copyright (c) 1996, 1997, 1998, 1999, 2000 +# Sleepycat Software. All rights reserved. +# +# $Id: test035.tcl,v 11.3 2000/02/14 03:00:19 bostic Exp $ +# +# DB Test 35 {access method} +# DB_GET_BOTH functionality with off-page duplicates. +proc test035 { method {nentries 10000} args} { + # Test with off-page duplicates + eval {test033 $method $nentries 20 35 -pagesize 512} $args + + # Test with multiple pages of off-page duplicates + eval {test033 $method [expr $nentries / 10] 100 35 -pagesize 512} $args +} |