diff options
Diffstat (limited to 'bdb/test/log.tcl')
| -rw-r--r-- | bdb/test/log.tcl | 337 |
1 files changed, 337 insertions, 0 deletions
diff --git a/bdb/test/log.tcl b/bdb/test/log.tcl new file mode 100644 index 00000000000..c3802d0f971 --- /dev/null +++ b/bdb/test/log.tcl @@ -0,0 +1,337 @@ +# See the file LICENSE for redistribution information. +# +# Copyright (c) 1996, 1997, 1998, 1999, 2000 +# Sleepycat Software. All rights reserved. +# +# $Id: log.tcl,v 11.17 2000/11/30 20:09:19 dda Exp $ +# +# Options are: +# -dir <directory in which to store memp> +# -maxfilesize <maxsize of log file> +# -iterations <iterations> +# -stat +proc log_usage {} { + puts "log -dir <directory> -iterations <number of ops> \ + -maxfilesize <max size of log files> -stat" +} +proc logtest { args } { + source ./include.tcl + global rand_init + + # Set defaults + set iterations 1000 + set maxfile [expr 1024 * 128] + set dostat 0 + for { set i 0 } { $i < [llength $args] } {incr i} { + switch -regexp -- [lindex $args $i] { + -d.* { incr i; set testdir [lindex $args $i] } + -i.* { incr i; set iterations [lindex $args $i] } + -m.* { incr i; set maxfile [lindex $args $i] } + -s.* { set dostat 1 } + default { + puts -nonewline "FAIL:[timestamp] Usage: " + log_usage + return + } + } + } + set multi_log [expr 3 * $iterations] + + # Clean out old log if it existed + puts "Unlinking log: error message OK" + env_cleanup $testdir + + # Now run the various functionality tests + berkdb srand $rand_init + + log001 $testdir $maxfile $iterations + log001 $testdir $maxfile $multi_log + log002 $testdir $maxfile + log003 $testdir $maxfile + log004 $testdir +} + +proc log001 { dir max nrecs } { + source ./include.tcl + + puts "Log001: Basic put/get test" + + env_cleanup $dir + + set env [berkdb env -log -create -home $dir \ + -mode 0644 -log_max $max] + error_check_bad log_env:$dir $env NULL + error_check_good log:$dir [is_substr $env "env"] 1 + + # We will write records to the log and make sure we can + # read them back correctly. We'll use a standard pattern + # repeated some number of times for each record. + + set lsn_list {} + set rec_list {} + puts "Log001.a: Writing $nrecs log records" + for { set i 0 } { $i < $nrecs } { incr i } { + set rec "" + for { set j 0 } { $j < [expr $i % 10 + 1] } {incr j} { + set rec $rec$i:logrec:$i + } + set lsn [$env log_put $rec] + error_check_bad log_put [is_substr $lsn log_cmd] 1 + lappend lsn_list $lsn + lappend rec_list $rec + } + puts "Log001.b: Retrieving log records sequentially (forward)" + set i 0 + for { set grec [$env log_get -first] } { [llength $grec] != 0 } { + set grec [$env log_get -next]} { + error_check_good log_get:seq [lindex $grec 1] \ + [lindex $rec_list $i] + incr i + } + + puts "Log001.c: Retrieving log records sequentially (backward)" + set i [llength $rec_list] + for { set grec [$env log_get -last] } { [llength $grec] != 0 } { + set grec [$env log_get -prev] } { + incr i -1 + error_check_good \ + log_get:seq [lindex $grec 1] [lindex $rec_list $i] + } + + puts "Log001.d: Retrieving log records sequentially by LSN" + set i 0 + foreach lsn $lsn_list { + set grec [$env log_get -set $lsn] + error_check_good \ + log_get:seq [lindex $grec 1] [lindex $rec_list $i] + incr i + } + + puts "Log001.e: Retrieving log records randomly by LSN" + set m [expr [llength $lsn_list] - 1] + for { set i 0 } { $i < $nrecs } { incr i } { + set recno [berkdb random_int 0 $m ] + set lsn [lindex $lsn_list $recno] + set grec [$env log_get -set $lsn] + error_check_good \ + log_get:seq [lindex $grec 1] [lindex $rec_list $recno] + } + + # Close and unlink the file + error_check_good env:close:$env [$env close] 0 + error_check_good envremove:$dir [berkdb envremove -home $dir] 0 + + puts "Log001 Complete" +} + +proc log002 { dir {max 32768} } { + source ./include.tcl + + puts "Log002: Multiple log test w/trunc, file, compare functionality" + + env_cleanup $dir + + set env [berkdb env -create -home $dir -mode 0644 -log -log_max $max] + error_check_bad log_env:$dir $env NULL + error_check_good log:$dir [is_substr $env "env"] 1 + + # We'll record every hundred'th record for later use + set info_list {} + + set i 0 + puts "Log002.a: Writing log records" + + for {set s 0} { $s < [expr 3 * $max] } { incr s $len } { + set rec [random_data 120 0 0] + set len [string length $rec] + set lsn [$env log_put $rec] + + if { [expr $i % 100 ] == 0 } { + lappend info_list [list $lsn $rec] + } + incr i + } + + puts "Log002.b: Checking log_compare" + set last {0 0} + foreach p $info_list { + set l [lindex $p 0] + if { [llength $last] != 0 } { + error_check_good \ + log_compare [$env log_compare $l $last] 1 + error_check_good \ + log_compare [$env log_compare $last $l] -1 + error_check_good \ + log_compare [$env log_compare $l $l] 0 + } + set last $l + } + + puts "Log002.c: Checking log_file" + set flist [glob $dir/log*] + foreach p $info_list { + + set lsn [lindex $p 0] + set f [$env log_file $lsn] + + # Change all backslash separators on Windows to forward slash + # separators, which is what the rest of the test suite expects. + regsub -all {\\} $f {/} f + + error_check_bad log_file:$f [lsearch $flist $f] -1 + } + + puts "Log002.d: Verifying records" + for {set i [expr [llength $info_list] - 1] } { $i >= 0 } { incr i -1} { + set p [lindex $info_list $i] + set grec [$env log_get -set [lindex $p 0]] + error_check_good log_get:$env [lindex $grec 1] [lindex $p 1] + } + + # Close and unlink the file + error_check_good env:close:$env [$env close] 0 + error_check_good envremove:$dir [berkdb envremove -home $dir] 0 + + puts "Log002 Complete" +} + +proc log003 { dir {max 32768} } { + source ./include.tcl + + puts "Log003: Verify log_flush behavior" + + env_cleanup $dir + set short_rec "abcdefghijklmnopqrstuvwxyz" + set long_rec [repeat $short_rec 200] + set very_long_rec [repeat $long_rec 4] + + foreach rec "$short_rec $long_rec $very_long_rec" { + puts "Log003.a: Verify flush on [string length $rec] byte rec" + + set env [berkdb env -log -home $dir \ + -create -mode 0644 -log_max $max] + error_check_bad log_env:$dir $env NULL + error_check_good log:$dir [is_substr $env "env"] 1 + + set lsn [$env log_put $rec] + error_check_bad log_put [lindex $lsn 0] "ERROR:" + set ret [$env log_flush $lsn] + error_check_good log_flush $ret 0 + + # Now, we want to crash the region and recheck. Closing the + # log does not flush any records, so we'll use a close to + # do the "crash" + set ret [$env close] + error_check_good log_env:close $ret 0 + + # Now, remove the log region + #set ret [berkdb envremove -home $dir] + #error_check_good env:remove $ret 0 + + # Re-open the log and try to read the record. + set env [berkdb env -create -home $dir \ + -log -mode 0644 -log_max $max] + error_check_bad log_env:$dir $env NULL + error_check_good log:$dir [is_substr $env "env"] 1 + + set gotrec [$env log_get -first] + error_check_good lp_get [lindex $gotrec 1] $rec + + # Close and unlink the file + error_check_good env:close:$env [$env close] 0 + error_check_good envremove:$dir [berkdb envremove -home $dir] 0 + log_cleanup $dir + } + + foreach rec "$short_rec $long_rec $very_long_rec" { + puts "Log003.b: \ + Verify flush on non-last record [string length $rec]" + set env [berkdb env \ + -create -log -home $dir -mode 0644 -log_max $max] + error_check_bad log_env:$dir $env NULL + error_check_good log:$dir [is_substr $env "env"] 1 + + # Put 10 random records + for { set i 0 } { $i < 10 } { incr i} { + set r [random_data 450 0 0] + set lsn [$env log_put $r] + error_check_bad log_put [lindex $lsn 0] "ERROR:" + } + + # Put the record we are interested in + set save_lsn [$env log_put $rec] + error_check_bad log_put [lindex $save_lsn 0] "ERROR:" + + # Put 10 more random records + for { set i 0 } { $i < 10 } { incr i} { + set r [random_data 450 0 0] + set lsn [$env log_put $r] + error_check_bad log_put [lindex $lsn 0] "ERROR:" + } + + # Now check the flush + set ret [$env log_flush $save_lsn] + error_check_good log_flush $ret 0 + + # Now, we want to crash the region and recheck. Closing the + # log does not flush any records, so we'll use a close to + # do the "crash" + + # + # Now, close and remove the log region + error_check_good env:close:$env [$env close] 0 + set ret [berkdb envremove -home $dir] + error_check_good env:remove $ret 0 + + # Re-open the log and try to read the record. + set env [berkdb env \ + -home $dir -create -log -mode 0644 -log_max $max] + error_check_bad log_env:$dir $env NULL + error_check_good log:$dir [is_substr $env "env"] 1 + + set gotrec [$env log_get -set $save_lsn] + error_check_good lp_get [lindex $gotrec 1] $rec + + # Close and unlink the file + error_check_good env:close:$env [$env close] 0 + error_check_good envremove:$dir [berkdb envremove -home $dir] 0 + log_cleanup $dir + } + + puts "Log003 Complete" +} + +# Make sure that if we do PREVs on a log, but the beginning of the +# log has been truncated, we do the right thing. +proc log004 { dir } { + source ./include.tcl + + puts "Log004: Prev on log when beginning of log has been truncated." + # Use archive test to populate log + env_cleanup $dir + puts "Log004.a: Call archive to populate log." + archive + + # Delete all log files under 100 + puts "Log004.b: Delete all log files under 100." + set ret [catch { glob $dir/log.00000000* } result] + if { $ret == 0 } { + eval fileremove -f $result + } + + # Now open the log and get the first record and try a prev + puts "Log004.c: Open truncated log, attempt to access missing portion." + set myenv [berkdb env -create -log -home $dir] + error_check_good log_open [is_substr $myenv "env"] 1 + + set ret [$myenv log_get -first] + error_check_bad log_get [llength $ret] 0 + + # This should give DB_NOTFOUND which is a ret of length 0 + catch {$myenv log_get -prev} ret + error_check_good log_get_prev [string length $ret] 0 + + puts "Log004.d: Close log and environment." + error_check_good log_close [$myenv close] 0 + puts "Log004 complete." +} |