1# See the file LICENSE for redistribution information. 2# 3# Copyright (c) 2000,2008 Oracle. All rights reserved. 4# 5# $Id: test091.tcl,v 12.6 2008/01/08 20:58:53 bostic Exp $ 6# 7# TEST test091 8# TEST Test of DB_CONSUME_WAIT. 9proc test091 { method {nconsumers 4} \ 10 {nproducers 2} {nitems 1000} {start 0 } {tnum "091"} args} { 11 if { [is_queue $method ] == 0 } { 12 puts "Skipping test0$tnum for $method." 13 return; 14 } 15 eval {test070 $method \ 16 $nconsumers $nproducers $nitems WAIT $start -txn $tnum } $args 17 eval {test070 $method \ 18 $nconsumers $nproducers $nitems WAIT $start -cdb $tnum } $args 19} 20