blob: ccb5eea926f85141140c28e8a571ab517de65b1d (
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
|
# See the file LICENSE for redistribution information.
#
# Copyright (c) 2000-2009 Oracle. All rights reserved.
#
# $Id$
#
# TEST fop005
# TEST Test of DB->remove()
# TEST Formerly test080.
# TEST Test use of dbremove with and without envs, with absolute
# TEST and relative paths, and with subdirectories.
proc fop005 { method args } {
source ./include.tcl
set tnum "005"
set args [convert_args $method $args]
set omethod [convert_method $method]
puts "Fop$tnum: ($method $args): Test of DB->remove()"
# Determine full path
set curdir [pwd]
cd $testdir
set fulldir [pwd]
cd $curdir
set reldir $testdir
# If we are using an env, then skip this test.
# It needs its own.
set eindex [lsearch -exact $args "-env"]
if { $eindex != -1 } {
incr eindex
set env [lindex $args $eindex]
puts "Skipping fop$tnum for env $env"
return
}
cleanup $testdir NULL
# Set up absolute and relative pathnames, and a subdirectory.
set subdira A
set filename fop$tnum.db
set extentname __dbq.$filename.0
set paths [list $fulldir $reldir]
set files [list "$filename $extentname"\
"$subdira/$filename $subdira/$extentname"]
foreach path $paths {
foreach fileset $files {
set filename [lindex $fileset 0]
set extentname [lindex $fileset 1]
# Loop through test using the following options:
# 1. no environment, not in transaction
# 2. with environment, not in transaction
# 3. remove with auto-commit
# 4. remove in committed transaction
# 5. remove in aborted transaction
foreach op "noenv env auto commit abort" {
file mkdir $testdir/$subdira
if { $op == "noenv" } {
set file $path/$filename
set extentfile $path/$extentname
set env NULL
set envargs ""
} else {
set file $filename
set extentfile $extentname
set largs " -txn"
if { $op == "env" } {
set largs ""
}
set env [eval {berkdb_env -create \
-home $path} $largs]
set envargs " -env $env "
error_check_good \
env_open [is_valid_env $env] TRUE
}
puts "\tFop$tnum: dbremove with $op\
in path $path"
puts "\t\tFop$tnum.a.1: Create file $file"
set db [eval {berkdb_open -create -mode 0644} \
$omethod $envargs $args {$file}]
error_check_good db_open [is_valid_db $db] TRUE
# Use a 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 [chop_data $method $data]] 0
error_check_good dbclose [$db close] 0
check_file_exist $file $env $path 1
if { [is_queueext $method] == 1 } {
check_file_exist \
$extentfile $env $path 1
}
# Use berkdb dbremove for non-txn tests
# and $env dbremove for transactional tests
puts "\t\tFop$tnum.a.2: Remove file"
if { $op == "noenv" || $op == "env" } {
error_check_good remove_$op \
[eval {berkdb dbremove} \
$envargs $file] 0
} elseif { $op == "auto" } {
error_check_good remove_$op \
[eval {$env dbremove} \
-auto_commit $file] 0
} else {
# $op is "abort" or "commit"
set txn [$env txn]
error_check_good remove_$op \
[eval {$env dbremove} \
-txn $txn $file] 0
error_check_good txn_$op [$txn $op] 0
}
puts "\t\tFop$tnum.a.3: Check that file is gone"
# File should now be gone, unless the op is an
# abort. Check extent files if necessary.
if { $op != "abort" } {
check_file_exist $file $env $path 0
if { [is_queueext $method] == 1 } {
check_file_exist \
$extentfile $env $path 0
}
} else {
check_file_exist $file $env $path 1
if { [is_queueext $method] == 1 } {
check_file_exist \
$extentfile $env $path 1
}
}
if { $env != "NULL" } {
error_check_good envclose [$env close] 0
}
env_cleanup $path
check_file_exist $file $env $path 0
}
}
}
}
|
