diff options
Diffstat (limited to 'db/test/test018.tcl')
| -rw-r--r-- | db/test/test018.tcl | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/db/test/test018.tcl b/db/test/test018.tcl index 95493da2d..85f71182d 100644 --- a/db/test/test018.tcl +++ b/db/test/test018.tcl @@ -1,13 +1,21 @@ # See the file LICENSE for redistribution information. # -# Copyright (c) 1996, 1997, 1998, 1999, 2000 +# Copyright (c) 1996-2003 # Sleepycat Software. All rights reserved. # -# $Id: test018.tcl,v 11.3 2000/02/14 03:00:18 bostic Exp $ +# $Id: test018.tcl,v 11.9 2003/01/27 18:15:01 sandstro Exp $ # -# DB Test 18 {access method} -# Run duplicates with small page size so that we test off page duplicates. +# TEST test018 +# TEST Offpage duplicate test +# TEST Key_{first,last,before,after} offpage duplicates. +# TEST Run duplicates with small page size so that we test off page +# TEST duplicates. proc test018 { method {nentries 10000} args} { puts "Test018: Off page duplicate tests" - eval {test011 $method $nentries 19 18 -pagesize 512} $args + set pgindex [lsearch -exact $args "-pagesize"] + if { $pgindex != -1 } { + puts "Test018: Skipping for specific pagesizes" + return + } + eval {test011 $method $nentries 19 "018" -pagesize 512} $args } |