diff options
Diffstat (limited to 'test/test100.tcl')
| -rw-r--r-- | test/test100.tcl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/test/test100.tcl b/test/test100.tcl new file mode 100644 index 0000000..2569694 --- /dev/null +++ b/test/test100.tcl @@ -0,0 +1,16 @@ +# See the file LICENSE for redistribution information. +# +# Copyright (c) 2000-2009 Oracle. All rights reserved. +# +# $Id$ +# +# TEST test100 +# TEST Test for functionality near the end of the queue +# TEST using test025 (DB_APPEND). +proc test100 { method {nentries 10000} {tnum "100"} args} { + if { [is_queueext $method ] == 0 } { + puts "Skipping test$tnum for $method." + return; + } + eval {test025 $method $nentries 4294967000 $tnum} $args +} |