blob: 9a1aa544701934a56b4d09bf76e57ec0955789bd (
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
|
# See the file LICENSE for redistribution information.
#
# Copyright (c) 2000-2009 Oracle. All rights reserved.
#
# $Id$
#
# TEST fop002.tcl
# TEST Test file system operations in the presence of bad permissions.
proc fop002 { method args } {
source ./include.tcl
set args [convert_args $method $args]
set omethod [convert_method $method]
env_cleanup $testdir
puts "\nFop002: ($method) File system ops and permissions."
if { $is_windows_test == 1 } {
puts "\tSkipping permissions test for Windows platform."
return
}
# Create database with -rw-r--r-- permissions.
set perms "0644"
set testfile $testdir/a.db
set destfile $testdir/b.db
set db [eval \
{berkdb_open -create} $omethod $args -mode $perms $testfile]
error_check_good db_open [is_valid_db $db] TRUE
error_check_good db_put [$db put 1 [chop_data $method a]] 0
error_check_good db_close [$db close] 0
# Eliminate all read and write permission, and try to execute
# file ops. They should fail.
set res [exec chmod 0000 $testfile]
error_check_good remove_permissions [llength $res] 0
# Put remove last on the list of ops since it should succeed
# at the end of the test, removing the test file.
set ops [list open_create open rename remove]
set rdonly 0
puts "\tFop002.a: Test with neither read nor write permission."
foreach op $ops {
puts "\t\tFop002.a: Testing $op for failure."
switch $op {
open {
test_$op $testfile $omethod $args $rdonly 1
}
rename {
test_$op $testfile $destfile 1
}
open_create {
test_$op $testfile $omethod $args 1
}
remove {
test_$op $testfile 1
}
}
}
# Change permissions to read-only.
puts "\tFop002.b: Test with read-only permission."
set rdonly 1
set res [exec chmod 0444 $testfile]
error_check_good set_readonly [llength $res] 0
foreach op $ops {
puts "\t\tFop002.b: Testing $op for success."
switch $op {
open {
test_$op $testfile $omethod $args $rdonly 0
}
rename {
test_$op $testfile $destfile 0
# Move it back so later tests work
test_$op $destfile $testfile 0
}
open_create {
puts "\t\tSkipping open_create with read-only."
}
remove {
test_$op $testfile 0
}
}
}
}
proc test_remove { testfile {expectfail 0} } {
catch { berkdb dbremove $testfile } res
if { $expectfail == 1 } {
error_check_good remove_err $res "db remove:permission denied"
} else {
error_check_good remove $res 0
}
}
proc test_rename { testfile destfile {expectfail 0} } {
catch { berkdb dbrename $testfile $destfile } res
if { $expectfail == 1 } {
error_check_good rename_err $res "db rename:permission denied"
} else {
error_check_good rename $res 0
}
}
proc test_open_create { testfile omethod args {expectfail 0} } {
set stat [catch { set db \
[eval {berkdb_open -create} $omethod $args $testfile]} res]
if { $expectfail == 1 } {
error_check_good open_create_err $res \
"db open:permission denied"
} else {
error_check_good open_create $stat 0
# Since we succeeded, we have to close the db.
error_check_good db_close [$db close] 0
}
}
proc test_open { testfile omethod args {readonly 0} {expectfail 0} } {
if { $readonly == 1 } {
set stat [catch {set db \
[eval {berkdb_open -rdonly} $omethod $args $testfile]} res]
} else {
set stat [catch {set db [berkdb_open $omethod $testfile]} res]
}
if { $expectfail == 1 } {
error_check_good open_err $res \
"db open:permission denied"
} else {
error_check_good db_open $stat 0
error_check_good db_close [$db close] 0
}
}
|
