blob: 2aa0e1e250194f51fbbb7b7b7062c861a8cca031 (
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
|
# See the file LICENSE for redistribution information.
#
# Copyright (c) 2000
# Sleepycat Software. All rights reserved.
#
# $Id: test075.tcl,v 11.9 2000/08/25 14:21:58 sue Exp $
#
# DB Test 75 (replacement)
# Test the DB->rename method.
proc test075 { method { tnum 75 } args } {
global errorCode
source ./include.tcl
set omethod [convert_method $method]
set args [convert_args $method $args]
puts "Test0$tnum: $method ($args): Test of DB->rename()"
# If we are using an env, then testfile should just be the db name.
# Otherwise it is the test directory and the name.
set eindex [lsearch -exact $args "-env"]
if { $eindex == -1 } {
set oldfile $testdir/test0$tnum-old.db
set newfile $testdir/test0$tnum.db
set env NULL
set renargs ""
} else {
set oldfile test0$tnum-old.db
set newfile test0$tnum.db
# File existence checks won't work in an env, since $oldfile
# and $newfile won't be in the current working directory.
# We use this to skip them, and turn our secondary check
# (opening the dbs and seeing that all is well) into the main
# one.
incr eindex
set env [lindex $args $eindex]
set renargs " -env $env"
}
# Make sure we're starting from a clean slate.
cleanup $testdir $env
if { $env == "NULL" } {
error_check_bad "$oldfile exists" [file exists $oldfile] 1
error_check_bad "$newfile exists" [file exists $newfile] 1
}
puts "\tTest0$tnum.a: Create/rename file"
puts "\t\tTest0$tnum.a.1: create"
set db [eval {berkdb_open -create -mode 0644} $omethod $args $oldfile]
error_check_good dbopen [is_valid_db $db] TRUE
if { $env == "NULL" } {
error_check_bad "$oldfile exists" [file exists $oldfile] 0
error_check_bad "$newfile exists" [file exists $newfile] 1
}
# The nature of the key and data are unimportant; use numeric key
# so record-based methods don't need special treatment.
set key 1
set data [pad_data $method data]
error_check_good dbput [$db put $key $data] 0
error_check_good dbclose [$db close] 0
puts "\t\tTest0$tnum.a.2: rename"
if { $env == "NULL" } {
error_check_bad "$oldfile exists" [file exists $oldfile] 0
error_check_bad "$newfile exists" [file exists $newfile] 1
}
error_check_good rename_file [eval {berkdb dbrename}\
$renargs $oldfile $newfile] 0
if { $env == "NULL" } {
error_check_bad "$oldfile exists" [file exists $oldfile] 1
error_check_bad "$newfile exists" [file exists $newfile] 0
}
puts "\t\tTest0$tnum.a.3: check"
# Open again with create to make sure we're not caching or anything
# silly. In the normal case (no env), we already know the file doesn't
# exist.
set odb [eval {berkdb_open -create -mode 0644} $omethod $args $oldfile]
set ndb [eval {berkdb_open -create -mode 0644} $omethod $args $newfile]
error_check_good odb_open [is_valid_db $odb] TRUE
error_check_good ndb_open [is_valid_db $ndb] TRUE
set odbt [$odb get $key]
set ndbt [$ndb get $key]
# The DBT from the "old" database should be empty, not the "new" one.
error_check_good odbt_empty [llength $odbt] 0
error_check_bad ndbt_empty [llength $ndbt] 0
error_check_good ndbt [lindex [lindex $ndbt 0] 1] $data
error_check_good odb_close [$odb close] 0
error_check_good ndb_close [$ndb close] 0
if { $env != "NULL" } {
puts "\tTest0$tnum: External environment present; \
skipping remainder"
return
}
# Now there's both an old and a new. Rename the "new" to the "old"
# and make sure that fails.
#
# XXX Ideally we'd do this test even when there's an external
# environment, but that env has errpfx/errfile set now. :-(
puts "\tTest0$tnum.b: Make sure rename fails instead of overwriting"
set ret [catch {eval {berkdb dbrename} $renargs $newfile $oldfile} res]
error_check_bad rename_overwrite $ret 0
error_check_good rename_overwrite_ret [is_substr $errorCode EEXIST] 1
# Verify and then start over from a clean slate.
verify_dir $testdir "\tTest0$tnum.c: "
cleanup $testdir $env
error_check_bad "$oldfile exists" [file exists $oldfile] 1
error_check_bad "$newfile exists" [file exists $newfile] 1
set oldfile test0$tnum-old.db
set newfile test0$tnum.db
puts "\tTest0$tnum.d: Create/rename file in environment"
set env [berkdb env -create -home $testdir]
error_check_good env_open [is_valid_env $env] TRUE
error_check_bad "$oldfile exists" [file exists $oldfile] 1
error_check_bad "$newfile exists" [file exists $newfile] 1
puts "\t\tTest0$tnum.d.1: create"
set db [eval {berkdb_open -create -mode 0644} -env $env\
$omethod $args $oldfile]
error_check_good dbopen [is_valid_db $db] TRUE
# We need to make sure that it didn't create/rename into the
# current directory.
error_check_bad "$oldfile exists" [file exists $oldfile] 1
error_check_bad "$newfile exists" [file exists $newfile] 1
error_check_bad "$testdir/$oldfile exists"\
[file exists $testdir/$oldfile] 0
error_check_bad "$testdir/$newfile exists"\
[file exists $testdir/$newfile] 1
error_check_good dbput [$db put $key $data] 0
error_check_good dbclose [$db close] 0
puts "\t\tTest0$tnum.d.2: rename"
error_check_good rename_file [berkdb dbrename -env $env\
$oldfile $newfile] 0
error_check_bad "$oldfile exists" [file exists $oldfile] 1
error_check_bad "$newfile exists" [file exists $newfile] 1
error_check_bad "$testdir/$oldfile exists"\
[file exists $testdir/$oldfile] 1
error_check_bad "$testdir/$newfile exists"\
[file exists $testdir/$newfile] 0
puts "\t\tTest0$tnum.d.3: check"
# Open again with create to make sure we're not caching or anything
# silly.
set odb [eval {berkdb_open -create -mode 0644} -env $env\
$omethod $args $oldfile]
set ndb [eval {berkdb_open -create -mode 0644} -env $env\
$omethod $args $newfile]
error_check_good odb_open [is_valid_db $odb] TRUE
error_check_good ndb_open [is_valid_db $ndb] TRUE
set odbt [$odb get $key]
set ndbt [$ndb get $key]
# The DBT from the "old" database should be empty, not the "new" one.
error_check_good odbt_empty [llength $odbt] 0
error_check_bad ndbt_empty [llength $ndbt] 0
error_check_good ndbt [lindex [lindex $ndbt 0] 1] $data
error_check_good odb_close [$odb close] 0
error_check_good ndb_close [$ndb close] 0
# XXX
# We need to close and reopen the env since berkdb_open has
# set its errfile/errpfx, and we can't unset that.
error_check_good env_close [$env close] 0
set env [berkdb env -home $testdir]
error_check_good env_open2 [is_valid_env $env] TRUE
puts "\tTest0$tnum.e:\
Make sure rename fails instead of overwriting in env"
set ret [catch {eval {berkdb dbrename} -env $env $newfile $oldfile} res]
error_check_bad rename_overwrite $ret 0
error_check_good rename_overwrite_ret [is_substr $errorCode EEXIST] 1
error_check_good env_close [$env close] 0
puts "\tTest0$tnum succeeded."
}
|
