mirror of
https://github.com/MariaDB/server.git
synced 2025-01-18 13:02:28 +01:00
118 lines
3.5 KiB
Tcl
118 lines
3.5 KiB
Tcl
# See the file LICENSE for redistribution information.
|
|
#
|
|
# Copyright (c) 1996-2002
|
|
# Sleepycat Software. All rights reserved.
|
|
#
|
|
# $Id: log003.tcl,v 11.28 2002/04/29 20:07:54 sue 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
|
|
}
|
|
}
|