diff options
Diffstat (limited to 'bdb/test/sdbtest002.tcl')
| -rw-r--r-- | bdb/test/sdbtest002.tcl | 41 |
1 files changed, 26 insertions, 15 deletions
diff --git a/bdb/test/sdbtest002.tcl b/bdb/test/sdbtest002.tcl index b8bad4e70e1..95717413a7b 100644 --- a/bdb/test/sdbtest002.tcl +++ b/bdb/test/sdbtest002.tcl @@ -1,19 +1,30 @@ # See the file LICENSE for redistribution information. # -# Copyright (c) 1999, 2000 +# Copyright (c) 1999-2002 # Sleepycat Software. All rights reserved. # -# $Id: sdbtest002.tcl,v 11.19 2000/08/25 14:21:53 sue Exp $ +# $Id: sdbtest002.tcl,v 11.26 2002/09/05 17:23:07 sandstro Exp $ # -# Sub DB All-Method Test 2 -# Make several subdb's of different access methods all in one DB. -# Fork of some child procs to each manipulate one subdb and when -# they are finished, verify the contents of the databases. -# Use the first 10,000 entries from the dictionary. -# Insert each with self as key and data; retrieve each. -# After all are entered, retrieve all; compare output to original. -# Close file, reopen, do retrieve and re-verify. -proc subdbtest002 { {nentries 10000} } { +# TEST sdbtest002 +# TEST Tests multiple access methods in one subdb access by multiple +# TEST processes. +# TEST Open several subdbs, each with a different access method +# TEST Small keys, small data +# TEST Put/get per key per subdb +# TEST Fork off several child procs to each delete selected +# TEST data from their subdb and then exit +# TEST Dump file, verify contents of each subdb is correct +# TEST Close, reopen per subdb +# TEST Dump file, verify per subdb +# TEST +# TEST Make several subdb's of different access methods all in one DB. +# TEST Fork of some child procs to each manipulate one subdb and when +# TEST they are finished, verify the contents of the databases. +# TEST Use the first 10,000 entries from the dictionary. +# TEST Insert each with self as key and data; retrieve each. +# TEST After all are entered, retrieve all; compare output to original. +# TEST Close file, reopen, do retrieve and re-verify. +proc sdbtest002 { {nentries 10000} } { source ./include.tcl puts "Subdbtest002: many different subdb access methods in one" @@ -34,7 +45,7 @@ proc subdbtest002 { {nentries 10000} } { cleanup $testdir NULL puts "\tSubdbtest002.a: create subdbs of different access methods:" puts "\t\t$methods" - set psize {8192 4096} + set psize 4096 set nsubdbs [llength $methods] set duplist "" for { set i 0 } { $i < $nsubdbs } { incr i } { @@ -65,7 +76,7 @@ proc subdbtest002 { {nentries 10000} } { $testdir/subdb002.log.$subdb $testfile $subdb $nsubdbs &] lappend pidlist $p } - watch_procs 5 + watch_procs $pidlist 5 for { set subdb 0 } { $subdb < $nsubdbs } { incr subdb } { set method [lindex $methods $subdb] @@ -124,7 +135,7 @@ proc subdbtest002 { {nentries 10000} } { puts "\tSubdbtest002.c: sub$subdb.db: close, open, and dump file" # Now, reopen the file and run the last test again. - open_and_dump_subfile $testfile NULL $txn $t1 $checkfunc \ + open_and_dump_subfile $testfile NULL $t1 $checkfunc \ dump_file_direction "-first" "-next" sub$subdb.db if { [string compare $method "-recno"] != 0 } { filesort $t1 $t3 @@ -136,7 +147,7 @@ proc subdbtest002 { {nentries 10000} } { # Now, reopen the file and run the last test again in the # reverse direction. puts "\tSubdbtest002.d: sub$subdb.db: close, open, and dump file in reverse direction" - open_and_dump_subfile $testfile NULL $txn $t1 $checkfunc \ + open_and_dump_subfile $testfile NULL $t1 $checkfunc \ dump_file_direction "-last" "-prev" sub$subdb.db if { [string compare $method "-recno"] != 0 } { |