Import BSDDB 4.7.25 (as of svn r89086)
This commit is contained in:
Zachary Ware
225
test/backup.tcl
Normal file
225
test/backup.tcl
Normal file
@@ -0,0 +1,225 @@
|
||||
# See the file LICENSE for redistribution information.
|
||||
#
|
||||
# Copyright (c) 2007,2008 Oracle. All rights reserved.
|
||||
#
|
||||
# $Id: backup.tcl,v 1.5 2008/01/08 20:58:53 bostic Exp $
|
||||
#
|
||||
# TEST backup
|
||||
# TEST Test of hotbackup functionality.
|
||||
# TEST
|
||||
# TEST Do all the of the following tests with and without
|
||||
# TEST the -c (checkpoint) option. Make sure that -c and
|
||||
# TEST -d (data_dir) are not allowed together.
|
||||
# TEST
|
||||
# TEST (1) Test that plain and simple hotbackup works.
|
||||
# TEST (2) Test with -data_dir (-d).
|
||||
# TEST (3) Test updating an existing hot backup (-u).
|
||||
# TEST (4) Test with absolute path.
|
||||
# TEST (5) Test with DB_CONFIG (-D), setting log_dir (-l)
|
||||
# TEST and data_dir (-d).
|
||||
# TEST (6) DB_CONFIG and update.
|
||||
# TEST (7) Repeat hot backup (non-update) with DB_CONFIG and
|
||||
# TEST existing directories.
|
||||
|
||||
proc backup { {nentries 1000} } {
|
||||
source ./include.tcl
|
||||
global util_path
|
||||
|
||||
set omethod "-btree"
|
||||
set testfile "foo.db"
|
||||
set backupdir "backup"
|
||||
|
||||
# Set up small logs so we quickly create more than one.
|
||||
set log_size 20000
|
||||
set env_flags " -create -txn -home $testdir -log_max $log_size"
|
||||
set db_flags " -create $omethod -auto_commit $testfile "
|
||||
|
||||
foreach option { checkpoint nocheckpoint } {
|
||||
if { $option == "checkpoint" } {
|
||||
set c "c"
|
||||
set msg "with checkpoint"
|
||||
} else {
|
||||
set c ""
|
||||
set msg "without checkpoint"
|
||||
}
|
||||
puts "Backuptest $msg."
|
||||
|
||||
env_cleanup $testdir
|
||||
env_cleanup $backupdir
|
||||
|
||||
set env [eval {berkdb_env} $env_flags]
|
||||
set db [eval {berkdb_open} -env $env $db_flags]
|
||||
set txn [$env txn]
|
||||
populate $db $omethod $txn $nentries 0 0
|
||||
$txn commit
|
||||
|
||||
# Backup directory is empty before hot backup.
|
||||
set files [glob -nocomplain $backupdir/*]
|
||||
error_check_good no_files [llength $files] 0
|
||||
|
||||
puts "\tBackuptest.a: Hot backup to directory $backupdir."
|
||||
if {[catch { eval exec $util_path/db_hotbackup\
|
||||
-${c}vh $testdir -b $backupdir } res ] } {
|
||||
error "FAIL: $res"
|
||||
}
|
||||
|
||||
set logfiles [glob $backupdir/log*]
|
||||
error_check_bad found_logs [llength $logfiles] 0
|
||||
error_check_good found_db [file exists $backupdir/$testfile] 1
|
||||
|
||||
error_check_good db_close [$db close] 0
|
||||
error_check_good env_close [$env close] 0
|
||||
env_cleanup $testdir
|
||||
|
||||
puts "\tBackuptest.b: Hot backup with data_dir."
|
||||
file mkdir $testdir/data1
|
||||
error_check_good db_data_dir\
|
||||
[file exists $testdir/data1/$testfile] 0
|
||||
|
||||
# Create a new env with data_dir.
|
||||
set env [eval {berkdb_env_noerr} $env_flags -data_dir data1]
|
||||
set db [eval {berkdb_open} -env $env $db_flags]
|
||||
set txn [$env txn]
|
||||
populate $db $omethod $txn $nentries 0 0
|
||||
$txn commit
|
||||
|
||||
# Check that data went into data_dir.
|
||||
error_check_good db_data_dir\
|
||||
[file exists $testdir/data1/$testfile] 1
|
||||
|
||||
# You may not specify both -d (data_dir) and -c (checkpoint).
|
||||
set msg2 "cannot specify -d and -c"
|
||||
if { $option == "checkpoint" } {
|
||||
catch {eval exec $util_path/db_hotbackup\
|
||||
-${c}vh $testdir -b $backupdir\
|
||||
-d $testdir/data1} res
|
||||
error_check_good c_and_d [is_substr $res $msg2] 1
|
||||
} else {
|
||||
if {[catch {eval exec $util_path/db_hotbackup\
|
||||
-${c}vh $testdir -b $backupdir\
|
||||
-d $testdir/data1} res] } {
|
||||
error "FAIL: $res"
|
||||
}
|
||||
# Check that logs and db are in backupdir.
|
||||
error_check_good db_backup\
|
||||
[file exists $backupdir/$testfile] 1
|
||||
set logfiles [glob $backupdir/log*]
|
||||
error_check_bad logs_backed_up [llength $logfiles] 0
|
||||
}
|
||||
|
||||
# Add more data and try the "update" flag.
|
||||
puts "\tBackuptest.c: Update existing hot backup."
|
||||
set txn [$env txn]
|
||||
populate $db $omethod $txn [expr $nentries * 2] 0 0
|
||||
$txn commit
|
||||
|
||||
if { $option == "checkpoint" } {
|
||||
catch {eval exec $util_path/db_hotbackup\
|
||||
-${c}vuh $testdir -b backup -d $testdir/data1} res
|
||||
error_check_good c_and_d [is_substr $res $msg2] 1
|
||||
} else {
|
||||
if {[catch {eval exec $util_path/db_hotbackup\
|
||||
-${c}vuh $testdir -b backup\
|
||||
-d $testdir/data1} res] } {
|
||||
error "FAIL: $res"
|
||||
}
|
||||
# There should be more log files now.
|
||||
set newlogfiles [glob $backupdir/log*]
|
||||
error_check_bad more_logs $newlogfiles $logfiles
|
||||
}
|
||||
|
||||
puts "\tBackuptest.d: Hot backup with full path."
|
||||
set fullpath [pwd]
|
||||
if { $option == "checkpoint" } {
|
||||
catch {eval exec $util_path/db_hotbackup\
|
||||
-${c}vh $testdir -b backup\
|
||||
-d $fullpath/$testdir/data1} res
|
||||
error_check_good c_and_d [is_substr $res $msg2] 1
|
||||
} else {
|
||||
if {[catch {eval exec $util_path/db_hotbackup\
|
||||
-${c}vh $testdir -b backup\
|
||||
-d $fullpath/$testdir/data1} res] } {
|
||||
error "FAIL: $res"
|
||||
}
|
||||
}
|
||||
|
||||
error_check_good db_close [$db close] 0
|
||||
error_check_good env_close [$env close] 0
|
||||
env_cleanup $testdir
|
||||
env_cleanup $backupdir
|
||||
|
||||
puts "\tBackuptest.e: Hot backup with DB_CONFIG."
|
||||
backuptest_makeconfig
|
||||
|
||||
set env [eval {berkdb_env_noerr} $env_flags]
|
||||
set db [eval {berkdb_open} -env $env $db_flags]
|
||||
set txn [$env txn]
|
||||
populate $db $omethod $txn $nentries 0 0
|
||||
$txn commit
|
||||
|
||||
if { $option == "checkpoint" } {
|
||||
catch {eval exec $util_path/db_hotbackup\
|
||||
-${c}vh $testdir -b $backupdir -l $testdir/logs\
|
||||
-d $testdir/data1} res
|
||||
error_check_good c_and_d [is_substr $res $msg2] 1
|
||||
} else {
|
||||
if {[catch {eval exec $util_path/db_hotbackup\
|
||||
-${c}vh $testdir -b $backupdir -l $testdir/logs\
|
||||
-d $testdir/data1} res] } {
|
||||
error "FAIL: $res"
|
||||
}
|
||||
# Check that logs and db are in backupdir.
|
||||
error_check_good db_backup\
|
||||
[file exists $backupdir/$testfile] 1
|
||||
set logfiles [glob $backupdir/log*]
|
||||
error_check_bad logs_backed_up [llength $logfiles] 0
|
||||
}
|
||||
|
||||
set txn [$env txn]
|
||||
populate $db $omethod $txn [expr $nentries * 2] 0 0
|
||||
$txn commit
|
||||
|
||||
puts "\tBackuptest.f:\
|
||||
Hot backup update with DB_CONFIG."
|
||||
if { $option == "checkpoint" } {
|
||||
catch {eval exec $util_path/db_hotbackup\
|
||||
-${c}vuh $testdir -b backup -l $testdir/logs\
|
||||
-d $testdir/data1} res
|
||||
error_check_good c_and_d [is_substr $res $msg2] 1
|
||||
} else {
|
||||
if {[catch {eval exec $util_path/db_hotbackup\
|
||||
-${c}vuh $testdir -b backup -l $testdir/logs\
|
||||
-d $testdir/data1} res] } {
|
||||
error "FAIL: $res"
|
||||
}
|
||||
# There should be more log files now.
|
||||
set newlogfiles [glob $backupdir/log*]
|
||||
error_check_bad more_logs $newlogfiles $logfiles
|
||||
}
|
||||
|
||||
# Repeat with directories already there to test cleaning.
|
||||
# We are not doing an update this time.
|
||||
puts "\tBackuptest.g:\
|
||||
Hot backup with DB_CONFIG (non-update)."
|
||||
if { [catch { eval exec $util_path/db_hotbackup\
|
||||
-${c}vh $testdir -b $backupdir -D } res] } {
|
||||
error "FAIL: $res"
|
||||
}
|
||||
|
||||
error_check_good db_close [$db close] 0
|
||||
error_check_good env_close [$env close] 0
|
||||
}
|
||||
}
|
||||
|
||||
proc backuptest_makeconfig { } {
|
||||
source ./include.tcl
|
||||
|
||||
file mkdir $testdir/logs
|
||||
file mkdir $testdir/data1
|
||||
|
||||
set cid [open $testdir/DB_CONFIG w]
|
||||
puts $cid "set_lg_dir logs"
|
||||
puts $cid "set_data_dir data1"
|
||||
close $cid
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user