blob: 9f649496f68d4295f3913ae5a8f7029001279d47 (
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
|
# See the file LICENSE for redistribution information.
#
# Copyright (c) 2000-2002
# Sleepycat Software. All rights reserved.
#
# $Id: test080.tcl,v 11.16 2002/08/08 15:38:12 bostic Exp $
#
# TEST test080
# TEST Test of DB->remove()
proc test080 { method {tnum 80} args } {
source ./include.tcl
set args [convert_args $method $args]
set omethod [convert_method $method]
puts "Test0$tnum: Test of DB->remove()"
# Determine full path
set curdir [pwd]
cd $testdir
set fulldir [pwd]
cd $curdir
# Test both relative and absolute path
set paths [list $fulldir $testdir]
# If we are using an env, then skip this test.
# It needs its own.
set eindex [lsearch -exact $args "-env"]
set encargs ""
set args [split_encargs $args encargs]
if { $encargs != ""} {
puts "Skipping test080 for security"
return
}
if { $eindex != -1 } {
incr eindex
set e [lindex $args $eindex]
puts "Skipping test080 for env $e"
return
}
foreach path $paths {
set dbfile test0$tnum.db
set testfile $path/$dbfile
# Loop through test using the following remove options
# 1. no environment, not in transaction
# 2. with environment, not in transaction
# 3. rename with auto-commit
# 4. rename in committed transaction
# 5. rename in aborted transaction
foreach op "noenv env auto commit abort" {
# Make sure we're starting with a clean slate.
env_cleanup $testdir
if { $op == "noenv" } {
set dbfile $testfile
set e NULL
set envargs ""
} else {
if { $op == "env" } {
set largs ""
} else {
set largs " -txn"
}
set e [eval {berkdb_env -create -home $path} $largs]
set envargs "-env $e"
error_check_good env_open [is_valid_env $e] TRUE
}
puts "\tTest0$tnum: dbremove with $op in $path"
puts "\tTest0$tnum.a.1: Create file"
set db [eval {berkdb_open -create -mode 0644} $omethod \
$envargs $args {$dbfile}]
error_check_good db_open [is_valid_db $db] TRUE
# The nature of the key and data are unimportant;
# use numeric key to 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
error_check_good file_exists_before \
[file exists $testfile] 1
# Use berkdb dbremove for non-transactional tests
# and $env dbremove for transactional tests
puts "\tTest0$tnum.a.2: Remove file"
if { $op == "noenv" || $op == "env" } {
error_check_good remove_$op \
[eval {berkdb dbremove} $envargs $dbfile] 0
} elseif { $op == "auto" } {
error_check_good remove_$op \
[eval {$e dbremove} -auto_commit $dbfile] 0
} else {
# $op is "abort" or "commit"
set txn [$e txn]
error_check_good remove_$op \
[eval {$e dbremove} -txn $txn $dbfile] 0
error_check_good txn_$op [$txn $op] 0
}
puts "\tTest0$tnum.a.3: Check that file is gone"
# File should now be gone, except in the case of an abort.
if { $op != "abort" } {
error_check_good exists_after \
[file exists $testfile] 0
} else {
error_check_good exists_after \
[file exists $testfile] 1
}
if { $e != "NULL" } {
error_check_good env_close [$e close] 0
}
set dbfile test0$tnum-old.db
set testfile $path/$dbfile
}
}
}
|
