diff options
| author | Jesse Morgan <jesse@jesterpm.net> | 2016-12-17 21:28:53 -0800 |
|---|---|---|
| committer | Jesse Morgan <jesse@jesterpm.net> | 2016-12-17 21:28:53 -0800 |
| commit | 54df2afaa61c6a03cbb4a33c9b90fa572b6d07b8 (patch) | |
| tree | 18147b92b969d25ffbe61935fb63035cac820dd0 /db-4.8.30/test/test101.tcl | |
Berkeley DB 4.8 with rust build script for linux.
Diffstat (limited to 'db-4.8.30/test/test101.tcl')
| -rw-r--r-- | db-4.8.30/test/test101.tcl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/db-4.8.30/test/test101.tcl b/db-4.8.30/test/test101.tcl new file mode 100644 index 0000000..0e31ac6 --- /dev/null +++ b/db-4.8.30/test/test101.tcl @@ -0,0 +1,16 @@ +# See the file LICENSE for redistribution information. +# +# Copyright (c) 2000-2009 Oracle. All rights reserved. +# +# $Id$ +# +# TEST test101 +# TEST Test for functionality near the end of the queue +# TEST using test070 (DB_CONSUME). +proc test101 { method {nentries 1000} {txn -txn} {tnum "101"} args} { + if { [is_queueext $method ] == 0 } { + puts "Skipping test$tnum for $method." + return; + } + eval {test070 $method 4 2 $nentries WAIT 4294967000 $txn $tnum} $args +} |