diff options
Diffstat (limited to 'test/test116.tcl')
| -rw-r--r-- | test/test116.tcl | 303 |
1 files changed, 303 insertions, 0 deletions
diff --git a/test/test116.tcl b/test/test116.tcl new file mode 100644 index 0000000..b5cdf3c --- /dev/null +++ b/test/test116.tcl @@ -0,0 +1,303 @@ +# See the file LICENSE for redistribution information. +# +# Copyright (c) 2005-2009 Oracle. All rights reserved. +# +# $Id$ +# +# TEST test116 +# TEST Test of basic functionality of lsn_reset. +# TEST +# TEST Create a database in an env. Copy it to a new file within +# TEST the same env. Reset the page LSNs. +proc test116 { method {tnum "116"} args } { + source ./include.tcl + global util_path + global passwd + + set orig_tdir $testdir + puts "Test$tnum ($method): Test lsn_reset." + + set args [convert_args $method $args] + set encargs "" + set args [split_encargs $args encargs] + set omethod [convert_method $method] + + set testfile A.db + set newtag new + set newfile $testfile.$newtag + set nentries 50 + set filenames "A B C D E" + + # This test needs two envs. If one is provided, create the + # second under it. If no env is provided, create both. + set txn "" + set txnenv 0 + set envargs "" + set resetargs "" + set eindex [lsearch -exact $args "-env"] + + if { $eindex == -1 } { + puts "\tTest$tnum.a: Creating env." + env_cleanup $testdir + set env [eval {berkdb_env} \ + -create $encargs $envargs -home $testdir -txn] + append args " -auto_commit " + error_check_good dbenv [is_valid_env $env] TRUE + } else { + incr eindex + set env [lindex $args $eindex] + puts "\tTest$tnum.a: Using provided env $env." + + # Make sure the second env we create has all the + # same flags the provided env does. + if { [is_substr [$env get_open_flags] "-thread"] } { + append envargs " -thread " + } + if { [is_substr $args "-encrypt"] } { + append envargs " -encryptaes $passwd " + } + if { [is_substr [$env get_encrypt_flags] "-encryptaes"] } { + append envargs " -encryptaes $passwd " + append resetargs " -encrypt " + } + set txn "" + set txnenv [is_txnenv $env] + if { $txnenv == 1 } { + append args " -auto_commit " + } elseif { $txnenv == 0 } { + puts "Skipping Test$tnum for non-transactional env." + return + } + set testdir [get_home $env] + } + + foreach lorder { 1234 4321 } { + if { $lorder == 1234 } { + set pattern "i i" + } else { + set pattern "I I" + } + + # Open database A, populate and close. + puts "\tTest$tnum.b: Creating database with lorder $lorder." + cleanup $testdir $env + + # Create a second directory, and create an env there. + set testdir [get_home $env] + set newdir $testdir/NEWDIR + file mkdir $newdir + set newenv [eval {berkdb_env} \ + -create $encargs $envargs -home $newdir -txn] + error_check_good newenv [is_valid_env $newenv] TRUE + + # We test with subdatabases except with the queue access + # method, where they are not allowed. + if { [is_queue $method] == 1 || [is_partitioned $args] == 1} { + set db [eval {berkdb_open} -env $env -lorder $lorder \ + $omethod $args -create -mode 0644 $testfile] + error_check_good dbopen [is_valid_db $db] TRUE + set pgsize [stat_field $db stat "Page size"] + if { $txnenv == 1 } { + set t [$env txn] + error_check_good txn [is_valid_txn $t $env] TRUE + set txn "-txn $t" + } + for { set i 1 } { $i <= $nentries } { incr i } { + set key $i + set data DATA.$i + error_check_good db_put [eval {$db put} \ + $txn $key [chop_data $method $data]] 0 + } + if { $txnenv == 1 } { + error_check_good t_commit [$t commit] 0 + } + error_check_good db_close [$db close] 0 + } else { + foreach filename $filenames { + set db [eval {berkdb_open} -env $env \ + -lorder $lorder $omethod $args -create \ + -mode 0644 $testfile $filename] + error_check_good dbopen [is_valid_db $db] TRUE + set pgsize [stat_field $db stat "Page size"] + if { $txnenv == 1 } { + set t [$env txn] + error_check_good \ + txn [is_valid_txn $t $env] TRUE + set txn "-txn $t" + } + for { set i 1 } { $i <= $nentries } { incr i } { + set key $i + set data DATA.$i + error_check_good \ + db_put [eval {$db put} $txn \ + $key [chop_data $method $data]] 0 + } + if { $txnenv == 1 } { + error_check_good t_commit [$t commit] 0 + } + error_check_good db_close [$db close] 0 + } + } + + # Copy database file A. Reset LSNs on the copy. Then + # test that the copy is usable both in its native env + # and in a new env. + + puts "\tTest$tnum.c: Copy database and reset its LSNs." + set testdir [get_home $env] + set newdir [get_home $newenv] + + # Reset LSNs before copying. We do a little dance here: + # first copy the file within the same directory, then reset + # the fileid on the copy, then reset the LSNs on the copy, + # and only then copy the new file to the new env. Otherwise + # the LSNs would get reset on the original file. + + file copy -force $testdir/$testfile $testdir/$newfile + # If we're using queue extents or partitions , we must + # copy the extents/partitions to the new file name as well. + set extents "" + if { [is_queueext $method] || [is_partitioned $args]} { + copy_extent_file $testdir $testfile $newtag + } + error_check_good fileid_reset [$env id_reset $newfile] 0 + error_check_good \ + lsn_reset [eval {$env lsn_reset} $resetargs {$newfile}] 0 + + file copy -force $testdir/$newfile $newdir/$testfile + + # If we're using queue extents, we must copy the extents + # to the new directory as well. + if { [is_queueext $method] || [is_partitioned $args]} { + set extents [get_extfiles $testdir $newfile ""] + foreach extent $extents { + set nextent [make_ext_filename \ + $testdir/NEWDIR $testfile $extent] + file copy -force $extent $nextent + } + } + + # Get the LSNs and check them. + set npages [getlsns \ + $testdir $testfile $extents $pgsize orig_lsns] + set newpages [getlsns \ + $testdir $newfile $extents $pgsize new_lsns] + set newdirpages [getlsns \ + $newdir $testfile $extents $pgsize newdir_lsns] + error_check_good newpages_match $npages $newpages + error_check_good newdirpages_match $npages $newdirpages + for { set i 0 } { $i < $npages } { incr i } { + error_check_binary \ + new_lsns [binary format $pattern 0 1] $new_lsns($i) + error_check_binary \ + newdirlsns_match \ + [binary format $pattern 0 1] $newdir_lsns($i) + } + + if { [ is_partitioned $args] } { + set nodump 1 + } else { + set nodump 0 + } + puts "\tTest$tnum.d: Verify directories with reset LSNs." + error_check_good \ + verify [verify_dir $testdir "\tTest$tnum.d: " 0 0 $nodump] 0 + error_check_good \ + verify [verify_dir $newdir "\tTest$tnum.e: " 0 0 $nodump] 0 + + puts "\tTest$tnum.f: Open new db, check data, close db." + if { [is_queue $method] == 1 || [is_partitioned $args] == 1 } { + set db [eval {berkdb_open} -env $newenv \ + -lorder $lorder \ + $omethod $args -create -mode 0644 $testfile] + error_check_good dbopen [is_valid_db $db] TRUE + if { $txnenv == 1 } { + set t [$newenv txn] + error_check_good txn [is_valid_txn $t $newenv] TRUE + set txn "-txn $t" + } + for { set i 1 } { $i <= $nentries } { incr i } { + set key $i + set ret [eval {$db get} $txn $key] + error_check_good db_get \ + [lindex [lindex $ret 0] 1] \ + [pad_data $method DATA.$i] + } + if { $txnenv == 1 } { + error_check_good txn_commit [$t commit] 0 + } + error_check_good db_close [$db close] 0 + } else { + foreach filename $filenames { + set db [eval {berkdb_open} -env $newenv \ + -lorder $lorder $omethod $args \ + -create -mode 0644 $testfile $filename ] + error_check_good dbopen [is_valid_db $db] TRUE + if { $txnenv == 1 } { + set t [$newenv txn] + error_check_good \ + txn [is_valid_txn $t $newenv] TRUE + set txn "-txn $t" + } + for { set i 1 } { $i <= $nentries } { incr i } { + set key $i + set ret [eval {$db get} $txn $key] + error_check_good db_get \ + [lindex [lindex $ret 0] 1] \ + [pad_data $method DATA.$i] + } + if { $txnenv == 1 } { + error_check_good txn_commit [$t commit] 0 + } + error_check_good db_close [$db close] 0 + } + } + error_check_good newfile_rm [$env dbremove $newfile] 0 + error_check_good newenv_close [$newenv close] 0 + fileremove -f $newdir + } + + set testdir $orig_tdir + # Close the parent env if this test created it. + if { $eindex == -1 } { + error_check_good env_close [$env close] 0 + } +} + +proc getlsns { testdir dbfile extents pgsize lsns } { + upvar $lsns file_lsns + set fid [open $testdir/$dbfile r] + fconfigure $fid -translation binary + set eof 0 + set pg 0 + while { $eof == 0 } { + set offset [expr $pg * $pgsize] + seek $fid $offset start + set file_lsns($pg) [read $fid 8] + set eof [eof $fid] + incr pg + } + close $fid + incr pg -1 + foreach extent $extents { + set ep [getlsns $testdir \ + [make_ext_filename "." $dbfile $extent] \ + {} $pgsize elsns] + for {set i 0} {$i < $ep} {incr i} { + set file_lsns($pg) $elsns($i) + incr pg + } + } + return $pg +} + +proc error_check_binary {func desired result} { + if { [binary_compare $desired $result] != 0 } { + flush stdout + flush stderr + binary scan $desired h16 d + binary scan $result h16 r + error "FAIL:[timestamp]\ + $func: expected $d, got $r" + } +} |