blob: 030a5b7c6e065eafb229dc59fc67da158f6ca79e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
|
# See the file LICENSE for redistribution information.
#
# Copyright (c) 2007-2009 Oracle. All rights reserved.
#
# $Id$
#
# 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
}
|
