diff options
Diffstat (limited to 'test/test091.tcl')
| -rw-r--r-- | test/test091.tcl | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/test/test091.tcl b/test/test091.tcl new file mode 100644 index 0000000..10725fc --- /dev/null +++ b/test/test091.tcl @@ -0,0 +1,19 @@ +# See the file LICENSE for redistribution information. +# +# Copyright (c) 2000-2009 Oracle. All rights reserved. +# +# $Id$ +# +# TEST test091 +# TEST Test of DB_CONSUME_WAIT. +proc test091 { method {nconsumers 4} \ + {nproducers 2} {nitems 1000} {start 0 } {tnum "091"} args} { + if { [is_queue $method ] == 0 } { + puts "Skipping test0$tnum for $method." + return; + } + eval {test070 $method \ + $nconsumers $nproducers $nitems WAIT $start -txn $tnum } $args + eval {test070 $method \ + $nconsumers $nproducers $nitems WAIT $start -cdb $tnum } $args +} |