- upgrade to db-4.2.52.

CVS patchset: 6972
CVS date: 2003/12/15 21:42:09

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
 }