mirror of
https://github.com/berkeleydb/libdb.git
synced 2024-09-29 03:36:55 +00:00
156 lines
5 KiB
Tcl
156 lines
5 KiB
Tcl
# See the file LICENSE for redistribution information.
|
|
#
|
|
# Copyright (c) 1999, 2011 Oracle and/or its affiliates. All rights reserved.
|
|
#
|
|
# $Id$
|
|
#
|
|
# TEST sdb018
|
|
# TEST Tests join of in-memory named databases.
|
|
# TEST
|
|
# TEST We'll test 2-way, 3-way, and 4-way joins and figure that if those work,
|
|
# TEST everything else does as well. We'll create test databases called
|
|
# TEST sub1.db, sub2.db, sub3.db, and sub4.db. The number on the database
|
|
# TEST describes the duplication -- duplicates are of the form 0, N, 2N, 3N,
|
|
# TEST ... where N is the number of the database. Primary.db is the primary
|
|
# TEST database, and sub0.db is the database that has no matching duplicates.
|
|
# TEST All of these are within a single database.
|
|
#
|
|
# We should test this on all btrees, all hash, and a combination thereof
|
|
proc sdb018 {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 "\tSubdb018 skipping for method $method."
|
|
return
|
|
}
|
|
|
|
set eindex [lsearch -exact $args "-env"]
|
|
#
|
|
# If we are given an env, then skip this test. It needs its own.
|
|
if { $eindex != -1 } {
|
|
incr eindex
|
|
set env [lindex $args $eindex]
|
|
puts "Subdb016 skipping for env $env"
|
|
return
|
|
}
|
|
|
|
# In-memory dbs never go to disk, so we can't do checksumming.
|
|
# If the test module sent in the -chksum arg, get rid of it.
|
|
set chkindex [lsearch -exact $args "-chksum"]
|
|
if { $chkindex != -1 } {
|
|
set args [lreplace $args $chkindex $chkindex]
|
|
}
|
|
|
|
set testfile ""
|
|
berkdb srand $rand_init
|
|
|
|
foreach opt {" -dup" " -dupsort"} {
|
|
env_cleanup $testdir
|
|
|
|
set cache [expr 1024 * 1024 * 10]
|
|
set env [berkdb_env -create -home $testdir \
|
|
-cachesize "0 $cache 1" ]
|
|
append args $opt
|
|
set oargs $args
|
|
append oargs " -env $env"
|
|
|
|
|
|
puts "Subdb018: $method ( $args ) Intra-subdb join"
|
|
set txn ""
|
|
#
|
|
# Get a cursor in each subdb and move past the end of each
|
|
# subdb. Make sure we don't end up in another subdb.
|
|
#
|
|
puts "\tSubdb018.a: Intra-subdb join"
|
|
|
|
set psize 8192
|
|
set duplist {0 50 25 16 12}
|
|
set numdb [llength $duplist]
|
|
build_all_subdb $testfile [list $method] $psize \
|
|
$duplist $nentries $oargs
|
|
|
|
# Build the primary
|
|
puts "Subdb018: 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 } {
|
|
set key [format "%04d" $i]
|
|
set ret [eval {$db put} $txn {$key stub}]
|
|
error_check_good "primary put" $ret 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
|
|
error_check_good env_close [$env close] 0
|
|
}
|
|
}
|
|
|