226 lines
6.7 KiB
Tcl
226 lines
6.7 KiB
Tcl
# 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
|
|
}
|
|
|