MySQL数据库

开发平台：
Visual C++

recd005.tcl：源码内容
							# See the file LICENSE for redistribution information.
#
# Copyright (c) 1996, 1997, 1998, 1999, 2000
#	Sleepycat Software.  All rights reserved.
#
#	$Id: recd005.tcl,v 11.27 2000/12/15 21:41:38 ubell Exp $
#
# Recovery Test 5.
# Make sure that we can do catastrophic recovery even if we open
# files using the same log file id.
proc recd005 { method args} {
	source ./include.tcl
	global rand_init
	set args [convert_args $method $args]
	set omethod [convert_method $method]
	puts "Recd005: $method catastropic recovery"
	berkdb srand $rand_init
	set testfile1 recd005.1.db
	set testfile2 recd005.2.db
	set eflags 
	    "-create -txn -lock_max 2000 -lock_max_objects 2000 -home $testdir"
	set tnum 0
	foreach sizes "{1000 10} {10 1000}" {
		foreach ops "{abort abort} {abort commit} {commit abort} 
		{commit commit}" {
			env_cleanup $testdir
			incr tnum
			set s1 [lindex $sizes 0]
			set s2 [lindex $sizes 1]
			set op1 [lindex $ops 0]
			set op2 [lindex $ops 1]
			puts "tRecd005.$tnum: $s1 $s2 $op1 $op2"
			puts "tRecd005.$tnum.a: creating environment"
			set env_cmd "berkdb env $eflags"
			set dbenv [eval $env_cmd]
			error_check_bad dbenv $dbenv NULL
			# Create the two databases.
			set oflags 
			    "-create -mode 0644 -env $dbenv $args $omethod"
			set db1 [eval {berkdb_open} $oflags $testfile1]
			error_check_bad db_open $db1 NULL
			error_check_good db_open [is_substr $db1 db] 1
			error_check_good db_close [$db1 close] 0
			set db2 [eval {berkdb_open} $oflags $testfile2]
			error_check_bad db_open $db2 NULL
			error_check_good db_open [is_substr $db2 db] 1
			error_check_good db_close [$db2 close] 0
			$dbenv close
			set dbenv [eval $env_cmd]
			puts "tRecd005.$tnum.b: Populating databases"
			do_one_file 
			    $testdir $method $dbenv $env_cmd $testfile1 $s1 $op1
			do_one_file 
			    $testdir $method $dbenv $env_cmd $testfile2 $s2 $op2
			puts "tRecd005.$tnum.c: Verifying initial population"
			check_file $testdir $env_cmd $testfile1 $op1
			check_file $testdir $env_cmd $testfile2 $op2
			# Now, close the environment (so that recovery will work
			# on NT which won't allow delete of an open file).
			reset_env $dbenv
			berkdb debug_check
			puts -nonewline 
			    "tRecd005.$tnum.d: About to run recovery ... "
			flush stdout
			set stat [catch 
			    {exec $util_path/db_recover -h $testdir -c} 
			    result]
			if { $stat == 1 } {
				error "Recovery error: $result."
			}
			puts "complete"
			# Substitute a file that will need recovery and try
			# running recovery again.
			if { $op1 == "abort" } {
				file copy -force $testdir/$testfile1.afterop 
				    $testdir/$testfile1
				move_file_extent $testdir $testfile1 
				    afterop copy
			} else {
				file copy -force $testdir/$testfile1.init 
				    $testdir/$testfile1
				move_file_extent $testdir $testfile1 init copy
			}
			if { $op2 == "abort" } {
				file copy -force $testdir/$testfile2.afterop 
				    $testdir/$testfile2
				move_file_extent $testdir $testfile2 
				    afterop copy
			} else {
				file copy -force $testdir/$testfile2.init 
				    $testdir/$testfile2
				move_file_extent $testdir $testfile2 init copy
			}
			berkdb debug_check
			puts -nonewline "tRecd005.$tnum.e:
			    About to run recovery on pre-op database ... "
			flush stdout
			set stat 
			    [catch {exec $util_path/db_recover 
			    -h $testdir -c} result]
			if { $stat == 1 } {
				error "Recovery error: $result."
			}
			puts "complete"
			set dbenv [eval $env_cmd]
			check_file $testdir $env_cmd $testfile1 $op1
			check_file $testdir $env_cmd $testfile2 $op2
			reset_env $dbenv
			puts "tRecd005.$tnum.f:
			    Verify db_printlog can read logfile"
			set tmpfile $testdir/printlog.out
			set stat [catch 
			    {exec $util_path/db_printlog -h $testdir 
			    > $tmpfile} ret]
			error_check_good db_printlog $stat 0
			fileremove $tmpfile
		}
	}
}
proc do_one_file { dir method env env_cmd filename num op } {
	source ./include.tcl
	set init_file $dir/$filename.t1
	set afterop_file $dir/$filename.t2
	set final_file $dir/$filename.t3
	# Save the initial file and open the environment and the first file
	file copy -force $dir/$filename $dir/$filename.init
	copy_extent_file $dir $filename init
	set oflags "-unknown -env $env"
	set db [eval {berkdb_open} $oflags $filename]
	# Dump out file contents for initial case
	set tflags ""
	open_and_dump_file $filename $env $tflags $init_file nop 
	    dump_file_direction "-first" "-next"
	set txn [$env txn]
	error_check_bad txn_begin $txn NULL
	error_check_good txn_begin [is_substr $txn $env] 1
	# Now fill in the db and the txnid in the command
	populate $db $method $txn $num 0 0
	# Sync the file so that we can capture a snapshot to test
	# recovery.
	error_check_good sync:$db [$db sync] 0
	file copy -force $dir/$filename $dir/$filename.afterop
	copy_extent_file $dir $filename afterop
	open_and_dump_file $testdir/$filename.afterop NULL $tflags 
	    $afterop_file nop dump_file_direction "-first" "-next"
	error_check_good txn_$op:$txn [$txn $op] 0
	if { $op == "commit" } {
		puts "ttFile $filename executed and committed."
	} else {
		puts "ttFile $filename executed and aborted."
	}
	# Dump out file and save a copy.
	error_check_good sync:$db [$db sync] 0
	open_and_dump_file $testdir/$filename NULL $tflags $final_file nop 
	    dump_file_direction "-first" "-next"
	file copy -force $dir/$filename $dir/$filename.final
	copy_extent_file $dir $filename final
	# If this is an abort, it should match the original file.
	# If this was a commit, then this file should match the
	# afterop file.
	if { $op == "abort" } {
		filesort $init_file $init_file.sort
		filesort $final_file $final_file.sort
		error_check_good 
		    diff(initial,post-$op):diff($init_file,$final_file) 
		    [filecmp $init_file.sort $final_file.sort] 0
	} else {
		filesort $afterop_file $afterop_file.sort
		filesort $final_file $final_file.sort
		error_check_good 
		    diff(post-$op,pre-commit):diff($afterop_file,$final_file) 
		    [filecmp $afterop_file.sort $final_file.sort] 0
	}
	error_check_good close:$db [$db close] 0
}
proc check_file { dir env_cmd filename op } {
	source ./include.tcl
	set init_file $dir/$filename.t1
	set afterop_file $dir/$filename.t2
	set final_file $dir/$filename.t3
	set tflags ""
	open_and_dump_file $testdir/$filename NULL $tflags $final_file nop 
	    dump_file_direction "-first" "-next"
	if { $op == "abort" } {
		filesort $init_file $init_file.sort
		filesort $final_file $final_file.sort
		error_check_good 
		    diff(initial,post-$op):diff($init_file,$final_file) 
		    [filecmp $init_file.sort $final_file.sort] 0
	} else {
		filesort $afterop_file $afterop_file.sort
		filesort $final_file $final_file.sort
		error_check_good 
		    diff(pre-commit,post-$op):diff($afterop_file,$final_file) 
		    [filecmp $afterop_file.sort $final_file.sort] 0
	}
}

						