diff options
Diffstat (limited to 'db/test/test090.tcl')
| -rw-r--r-- | db/test/test090.tcl | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/db/test/test090.tcl b/db/test/test090.tcl new file mode 100644 index 000000000..ed6ec9632 --- /dev/null +++ b/db/test/test090.tcl @@ -0,0 +1,20 @@ +# See the file LICENSE for redistribution information. +# +# Copyright (c) 2000 +# Sleepycat Software. All rights reserved. +# +# $Id: test090.tcl,v 11.4 2000/12/11 17:24:56 sue Exp $ +# +# DB Test 90 {access method} +# Check for functionality near the end of the queue. +# +# +proc test090 { method {nentries 1000} {txn -txn} {tnum "90"} args} { + if { [is_queueext $method ] == 0 } { + puts "Skipping test0$tnum for $method." + return; + } + eval {test001 $method $nentries 4294967000 $tnum} $args + eval {test025 $method $nentries 4294967000 $tnum} $args + eval {test070 $method 4 2 $nentries WAIT 4294967000 $txn $tnum} $args +} |