# See the file LICENSE for redistribution information. # # Copyright (c) 1996-2002 # Sleepycat Software. All rights reserved. # # $Id: log003.tcl,v 1.1.1.1 2003/02/15 04:56:15 zarzycki Exp $ # # TEST log003 # TEST Verify that log_flush is flushing records correctly. proc log003 { } { source ./include.tcl puts "Log003: Verify log_flush behavior" set max [expr 1024 * 128] env_cleanup $testdir 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 "\tLog003.a: Verify flush on [string length $rec] byte rec" set env [berkdb_env -log -home $testdir \ -create -mode 0644 -log_max $max] error_check_good envopen [is_valid_env $env] TRUE 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 $testdir] #error_check_good env:remove $ret 0 # Re-open the log and try to read the record. set env [berkdb_env -create -home $testdir \ -log -mode 0644 -log_max $max] error_check_good envopen [is_valid_env $env] TRUE set logc [$env log_cursor] error_check_good log_cursor [is_valid_logc $logc $env] TRUE set gotrec [$logc get -first] error_check_good lp_get [lindex $gotrec 1] $rec # Close and unlink the file error_check_good log_cursor:close:$logc [$logc close] 0 error_check_good env:close:$env [$env close] 0 error_check_good envremove [berkdb envremove -home $testdir] 0 log_cleanup $testdir } foreach rec "$short_rec $long_rec $very_long_rec" { puts "\tLog003.b: \ Verify flush on non-last record [string length $rec]" set env [berkdb_env \ -create -log -home $testdir -mode 0644 -log_max $max] error_check_good envopen [is_valid_env $env] TRUE # 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 $testdir] error_check_good env:remove $ret 0 # Re-open the log and try to read the record. set env [berkdb_env \ -home $testdir -create -log -mode 0644 -log_max $max] error_check_good envopen [is_valid_env $env] TRUE set logc [$env log_cursor] error_check_good log_cursor [is_valid_logc $logc $env] TRUE set gotrec [$logc get -set $save_lsn] error_check_good lp_get [lindex $gotrec 1] $rec # Close and unlink the file error_check_good log_cursor:close:$logc [$logc close] 0 error_check_good env:close:$env [$env close] 0 error_check_good envremove [berkdb envremove -home $testdir] 0 log_cleanup $testdir } }