diff options
Diffstat (limited to 'db/test/test101.tcl')
| -rw-r--r-- | db/test/test101.tcl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/db/test/test101.tcl b/db/test/test101.tcl index 578171ce6..419307c06 100644 --- a/db/test/test101.tcl +++ b/db/test/test101.tcl @@ -1,17 +1,17 @@ # See the file LICENSE for redistribution information. # -# Copyright (c) 2000-2002 +# Copyright (c) 2000-2003 # Sleepycat Software. All rights reserved. # -# Id: test101.tcl,v 11.1 2002/08/15 20:55:20 sandstro Exp +# $Id: test101.tcl,v 11.5 2003/09/04 23:41:18 bostic Exp $ # # TEST test101 -# TEST Test for functionality near the end of the queue +# TEST Test for functionality near the end of the queue # TEST using test070 (DB_CONSUME). -proc test101 { method {nentries 10000} {txn -txn} {tnum "101"} args} { +proc test101 { method {nentries 1000} {txn -txn} {tnum "101"} args} { if { [is_queueext $method ] == 0 } { - puts "Skipping test0$tnum for $method." + puts "Skipping test$tnum for $method." return; } - eval {test070 $method 4 2 1000 WAIT 4294967000 $txn $tnum} $args + eval {test070 $method 4 2 $nentries WAIT 4294967000 $txn $tnum} $args } |