proc test092 { method {nentries 1000} args } {
source ./include.tcl
set eindex [lsearch -exact $args "-env"]
if { $eindex != -1 } {
incr eindex
set env [lindex $args $eindex]
puts "Test092 skipping for env $env"
return
}
set args [convert_args $method $args]
set encargs ""
set args [split_encargs $args encargs]
set omethod [convert_method $method]
puts "Test092: Dirty Read Test $method $nentries"
set testfile test092.db
set t1 $testdir/t1
set t2 $testdir/t2
set t3 $testdir/t3
env_cleanup $testdir
set lmax [expr $nentries * 2]
set lomax [expr $nentries * 2]
set env [eval {berkdb_env -create -txn} $encargs -home $testdir \
-lock_max_locks $lmax -lock_max_objects $lomax]
error_check_good dbenv [is_valid_env $env] TRUE
set db [eval {berkdb_open -env $env -create \
-mode 0644 $omethod} $args {$testfile}]
error_check_good dbopen [is_valid_db $db] TRUE
puts "\tTest092.a: put loop"
set count 0
set did [open $dict]
while { [gets $did str] != -1 && $count < $nentries } {
if { [is_record_based $method] == 1 } {
global kvals
set key [expr $count + 1]
set kvals($key) [pad_data $method $str]
} else {
set key $str
}
set ret [eval {$db put} {$key [chop_data $method $str]}]
error_check_good put:$db $ret 0
incr count
}
close $did
error_check_good close:$db [$db close] 0
puts "\tTest092.b: Opening all the handles"
set t [$env txn]
error_check_good txnbegin [is_valid_txn $t $env] TRUE
set tdr [$env txn -dirty]
error_check_good txnbegin:dr [is_valid_txn $tdr $env] TRUE
set dbtxn [eval {berkdb_open -auto_commit -env $env -dirty \
-mode 0644 $omethod} {$testfile}]
error_check_good dbopen:dbtxn [is_valid_db $dbtxn] TRUE
set dbcl [eval {berkdb_open -auto_commit -env $env \
-rdonly -mode 0644 $omethod} {$testfile}]
error_check_good dbopen:dbcl [is_valid_db $dbcl] TRUE
set dbdr [eval {berkdb_open -auto_commit -env $env -dirty \
-rdonly -mode 0644 $omethod} {$testfile}]
error_check_good dbopen:dbdr [is_valid_db $dbdr] TRUE
set dbccl [$dbcl cursor -txn $tdr]
error_check_good dbcurs:dbcl [is_valid_cursor $dbccl $dbcl] TRUE
set dbcdr0 [$dbdr cursor]
error_check_good dbcurs:dbdr0 [is_valid_cursor $dbcdr0 $dbdr] TRUE
set dbcdr1 [$dbdr cursor -dirty]
error_check_good dbcurs:dbdr1 [is_valid_cursor $dbcdr1 $dbdr] TRUE
puts "\tTest092.c: put/get data within a txn"
set gflags ""
if { [is_record_based $method] == 1 } {
set checkfunc test092dr_recno.check
append gflags " -recno"
} else {
set checkfunc test092dr.check
}
set count 0
set did [open $dict]
while { [gets $did str] != -1 && $count < $nentries } {
if { [is_record_based $method] == 1 } {
set key [expr $count + 1]
} else {
set key $str
}
set ustr [string toupper $str]
set clret [list [list $key [pad_data $method $str]]]
set drret [list [list $key [pad_data $method $ustr]]]
set ret [eval {$dbtxn put} -txn $t \
{$key [chop_data $method $ustr]}]
error_check_good put:$dbtxn $ret 0
set ret [eval {$dbcl get -txn $tdr} $gflags {$key}]
error_check_good dbdr2:get $ret $drret
set ret [eval {$dbdr get -dirty} $gflags {$key}]
error_check_good dbdr1:get $ret $drret
set ret [eval {$dbdr get -txn $tdr} $gflags {$key}]
error_check_good dbdr2:get $ret $drret
incr count
}
close $did
puts "\tTest092.d: Check dirty data using dirty txn and clean db/cursor"
dump_file_walk $dbccl $t1 $checkfunc "-first" "-next"
puts "\tTest092.e: Check dirty data using -dirty cget flag"
dump_file_walk $dbcdr0 $t2 $checkfunc "-first" "-next" "-dirty"
puts "\tTest092.f: Check dirty data using -dirty cursor"
dump_file_walk $dbcdr1 $t3 $checkfunc "-first" "-next"
error_check_good dbccl:close [$dbccl close] 0
error_check_good dbcdr0:close [$dbcdr0 close] 0
error_check_good dbcdr1:close [$dbcdr1 close] 0
puts "\tTest092.g: Aborting the write-txn"
error_check_good txnabort [$t abort] 0
set dbccl [$dbcl cursor -txn $tdr]
error_check_good dbcurs:dbcl [is_valid_cursor $dbccl $dbcl] TRUE
set dbcdr0 [$dbdr cursor]
error_check_good dbcurs:dbdr0 [is_valid_cursor $dbcdr0 $dbdr] TRUE
set dbcdr1 [$dbdr cursor -dirty]
error_check_good dbcurs:dbdr1 [is_valid_cursor $dbcdr1 $dbdr] TRUE
if { [is_record_based $method] == 1 } {
set checkfunc test092cl_recno.check
} else {
set checkfunc test092cl.check
}
puts "\tTest092.h: Check clean data using -dirty cget flag"
dump_file_walk $dbccl $t1 $checkfunc "-first" "-next"
puts "\tTest092.i: Check clean data using -dirty cget flag"
dump_file_walk $dbcdr0 $t2 $checkfunc "-first" "-next" "-dirty"
puts "\tTest092.j: Check clean data using -dirty cursor"
dump_file_walk $dbcdr1 $t3 $checkfunc "-first" "-next"
error_check_good dbccl:close [$dbccl close] 0
error_check_good tdrcommit [$tdr commit] 0
error_check_good dbcdr0:close [$dbcdr0 close] 0
error_check_good dbcdr1:close [$dbcdr1 close] 0
error_check_good dbclose [$dbcl close] 0
error_check_good dbclose [$dbdr close] 0
error_check_good dbclose [$dbtxn close] 0
error_check_good envclose [$env close] 0
}
proc test092cl.check { key data } {
error_check_good "key/data mismatch" $key $data
}
proc test092cl_recno.check { key data } {
global kvals
error_check_good key"$key"_exists [info exists kvals($key)] 1
error_check_good "key/data mismatch, key $key" $data $kvals($key)
}
proc test092dr.check { key data } {
error_check_good "key/data mismatch" $key [string tolower $data]
}
proc test092dr_recno.check { key data } {
global kvals
error_check_good key"$key"_exists [info exists kvals($key)] 1
error_check_good "key/data mismatch, key $key" $data \
[string toupper $kvals($key)]
}