proc sdb006 {method {nentries 100} args } {
source ./include.tcl
global rand_init
set args [convert_args $method $args]
set omethod [convert_method $method]
if { [is_record_based $method] == 1 || [is_rbtree $method] } {
puts "\tSubdb006 skipping for method $method."
return
}
set txnenv 0
set eindex [lsearch -exact $args "-env"]
if { $eindex == -1 } {
set testfile $testdir/subdb006.db
set env NULL
} else {
set testfile subdb006.db
incr eindex
set env [lindex $args $eindex]
set txnenv [is_txnenv $env]
if { $txnenv == 1 } {
append args " -auto_commit "
if { $nentries == 100 } {
set nentries 35
}
}
set testdir [get_home $env]
}
berkdb srand $rand_init
set oargs $args
foreach opt {" -dup" " -dupsort"} {
append args $opt
puts "Subdb006: $method ( $args ) Intra-subdb join"
set txn ""
puts "\tSubdb006.a: Intra-subdb join"
if { $env != "NULL" } {
set testdir [get_home $env]
}
cleanup $testdir $env
set psize 8192
set duplist {0 50 25 16 12}
set numdb [llength $duplist]
build_all_subdb $testfile [list $method] $psize \
$duplist $nentries $args
puts "Subdb006: Building the primary database $method"
set oflags "-create -mode 0644 [conv $omethod \
[berkdb random_int 1 2]]"
set db [eval {berkdb_open} $oflags $oargs $testfile primary.db]
error_check_good dbopen [is_valid_db $db] TRUE
for { set i 0 } { $i < 1000 } { incr i } {
if { $txnenv == 1 } {
set t [$env txn]
error_check_good txn [is_valid_txn $t $env] TRUE
set txn "-txn $t"
}
set key [format "%04d" $i]
set ret [eval {$db put} $txn {$key stub}]
error_check_good "primary put" $ret 0
if { $txnenv == 1 } {
error_check_good txn [$t commit] 0
}
}
error_check_good "primary close" [$db close] 0
set did [open $dict]
gets $did str
do_join_subdb $testfile primary.db "1 0" $str $oargs
gets $did str
do_join_subdb $testfile primary.db "2 0" $str $oargs
gets $did str
do_join_subdb $testfile primary.db "3 0" $str $oargs
gets $did str
do_join_subdb $testfile primary.db "4 0" $str $oargs
gets $did str
do_join_subdb $testfile primary.db "1" $str $oargs
gets $did str
do_join_subdb $testfile primary.db "2" $str $oargs
gets $did str
do_join_subdb $testfile primary.db "3" $str $oargs
gets $did str
do_join_subdb $testfile primary.db "4" $str $oargs
gets $did str
do_join_subdb $testfile primary.db "1 2" $str $oargs
gets $did str
do_join_subdb $testfile primary.db "1 2 3" $str $oargs
gets $did str
do_join_subdb $testfile primary.db "1 2 3 4" $str $oargs
gets $did str
do_join_subdb $testfile primary.db "2 1" $str $oargs
gets $did str
do_join_subdb $testfile primary.db "3 2 1" $str $oargs
gets $did str
do_join_subdb $testfile primary.db "4 3 2 1" $str $oargs
gets $did str
do_join_subdb $testfile primary.db "1 3" $str $oargs
gets $did str
do_join_subdb $testfile primary.db "3 1" $str $oargs
gets $did str
do_join_subdb $testfile primary.db "1 4" $str $oargs
gets $did str
do_join_subdb $testfile primary.db "4 1" $str $oargs
gets $did str
do_join_subdb $testfile primary.db "2 3" $str $oargs
gets $did str
do_join_subdb $testfile primary.db "3 2" $str $oargs
gets $did str
do_join_subdb $testfile primary.db "2 4" $str $oargs
gets $did str
do_join_subdb $testfile primary.db "4 2" $str $oargs
gets $did str
do_join_subdb $testfile primary.db "3 4" $str $oargs
gets $did str
do_join_subdb $testfile primary.db "4 3" $str $oargs
gets $did str
do_join_subdb $testfile primary.db "2 3 4" $str $oargs
gets $did str
do_join_subdb $testfile primary.db "3 4 1" $str $oargs
gets $did str
do_join_subdb $testfile primary.db "4 2 1" $str $oargs
gets $did str
do_join_subdb $testfile primary.db "0 2 1" $str $oargs
gets $did str
do_join_subdb $testfile primary.db "3 2 0" $str $oargs
gets $did str
do_join_subdb $testfile primary.db "4 3 2 1" $str $oargs
gets $did str
do_join_subdb $testfile primary.db "4 3 0 1" $str $oargs
close $did
}
}