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
|
##############################################################################
# Modules Revision 3.0
# Providing a flexible user environment
#
# File: modules.30-cache/%M%
# Revision: %I%
# First Edition: 2022/11/12
# Last Mod.: %U%, %G%
#
# Authors: Xavier Delaruelle, xavier.delaruelle@cea.fr
#
# Description: Testuite testsequence
# Command: cacheclear
# Modulefiles:
# Sub-Command:
#
# Comment: %C{
# Test cacheclear sub-command
# }C%
#
##############################################################################
# no modulepath defined
unsetenv_path_var MODULEPATH
set tserr "$error_msgs: $msg_nomodpath"
testouterr_cmd sh cacheclear ERR $tserr
# empty modulepath
setenv_path_var MODULEPATH {}
testouterr_cmd sh cacheclear OK {}
# create modulepaths for tests
set mp1 $env(HOME)/mp1
set mp2 $env(HOME)/mp2
set mp1cache $mp1/.modulecache
set mp2cache $mp2/.modulecache
set mpunk $env(HOME)/mpunk
set mpfile $mp1/foo
file mkdir $mp1
file mkdir $mp2
# 2 modulepath set, cachefile found in first
create_dummy_cachefile $mp1
setenv_path_var MODULEPATH $mp1:$mp2
set tserr [msg_delete $mp1cache]
set tsfileerr [couldnotopen_nofile $mp1cache]
testouterrfile_cmd sh cacheclear OK $tserr $mp1cache $tsfileerr
# 2 modulepath set, cachefile found in both
create_dummy_cachefile $mp1
create_dummy_cachefile $mp2
set tserr [msg_delete $mp1cache]\n[msg_delete $mp2cache]
testouterr_cmd sh cacheclear OK $tserr
testouterr_cmd sh cacheclear OK {}
file delete $mp1
file delete $mp2
skip_if_quick_mode
file mkdir $mp1
file mkdir $mp2
close [open $mpfile w]
# silent mode
create_dummy_cachefile $mp1
create_dummy_cachefile $mp2
testouterr_cmd sh {cacheclear -s} OK {}
testouterr_cmd sh cacheclear OK {}
# verbose mode
create_dummy_cachefile $mp1
create_dummy_cachefile $mp2
set tserr [msg_delete $mp1cache]\n[msg_delete $mp2cache]
testouterr_cmd sh {cacheclear -v} OK $tserr
testouterr_cmd sh cacheclear OK {}
# unexistent modulepath, then cache to delete in next path
setenv_path_var MODULEPATH $mpunk:$mp2
create_dummy_cachefile $mp2
set tserr [msg_delete $mp2cache]
testouterr_cmd sh cacheclear OK $tserr
# modulepath is a file, then cache to delete in next path
setenv_path_var MODULEPATH $mpfile:$mp2
create_dummy_cachefile $mp2
set tserr [msg_delete $mp2cache]
testouterr_cmd sh cacheclear OK $tserr
# cannot test access if cannot change file permission
if {!$is_file_perms_editable} {
send_user "\tskipping access tests as file permissions cannot be changed\n"
# cannot test access if superuser privileges are in use
} elseif {$tcl_platform(user) eq "root"} {
send_user "\tskipping access tests as tests are run by superuser\n"
# cannot test access if restricted file permissions have no effect
} elseif {$is_locked_dir_file_readable && $is_locked_file_readable} {
send_user "\tskipping access tests as locked files or directories are still readable\n"
} else {
set nowrite_perms ugo-w
set noread_perms ugo-r
set nosearch_perms ugo-x
# first modulepath not writable, no modulecache in it
setenv_path_var MODULEPATH $mp1:$mp2
create_dummy_cachefile $mp2
change_file_perms $mp1 $nowrite_perms
set tserr [msg_delete $mp2cache]
testouterr_cmd sh cacheclear OK $tserr
restore_file_perms $mp1
# first modulepath not writable, modulecache in it
create_dummy_cachefile $mp1
create_dummy_cachefile $mp2
change_file_perms $mp1 $nowrite_perms
set tserr [msg_delete $mp1cache $warn_cache_nowritable]\n\n[msg_delete $mp2cache]
testouterr_cmd sh cacheclear OK $tserr
restore_file_perms $mp1
file delete $mp1cache
# first modulepath not writable, modulecache in it but not writable also
create_dummy_cachefile $mp1
create_dummy_cachefile $mp2
change_file_perms $mp1 $nowrite_perms
change_file_perms $mp1cache $nowrite_perms
set tserr [msg_delete $mp1cache $warn_cache_nowritable]\n\n[msg_delete $mp2cache]
testouterr_cmd sh cacheclear OK $tserr
restore_file_perms $mp1
restore_file_perms $mp1cache
file delete $mp1cache
# both modulepath not writable, modulecache in them but not writable also
create_dummy_cachefile $mp1
create_dummy_cachefile $mp2
change_file_perms $mp1 $nowrite_perms
change_file_perms $mp2 $nowrite_perms
change_file_perms $mp1cache $nowrite_perms
change_file_perms $mp2cache $nowrite_perms
set tserr [msg_delete $mp1cache $warn_cache_nowritable]\n\n[msg_delete $mp2cache $warn_cache_nowritable]
testouterr_cmd sh cacheclear OK $tserr
restore_file_perms $mp1
restore_file_perms $mp2
restore_file_perms $mp1cache
restore_file_perms $mp2cache
file delete $mp1cache
file delete $mp2cache
# modulepath writable, no modulecache in first path
create_dummy_cachefile $mp2
set tserr [msg_delete $mp2cache]
testouterr_cmd sh cacheclear OK $tserr
# modulepath writable, modulecache in first path not writable
create_dummy_cachefile $mp1
create_dummy_cachefile $mp2
change_file_perms $mp1cache $nowrite_perms
set tserr [msg_delete $mp1cache]\n[msg_delete $mp2cache]
testouterr_cmd sh cacheclear OK $tserr
# first modulepath not readable, second module not searchable
create_dummy_cachefile $mp1
create_dummy_cachefile $mp2
change_file_perms $mp1 $noread_perms
change_file_perms $mp2 $nosearch_perms
set tserr [msg_delete $mp1cache]
testouterr_cmd sh cacheclear OK $tserr
restore_file_perms $mp1
restore_file_perms $mp2
file delete $mp2cache
# check expected siteconfig file is installed
set is_stderr_tty [siteconfig_isStderrTty]
if {$is_stderr_tty} {
# test a file delete failure by faking modulepath directory is writable
setenv_var TESTSUITE_ENABLE_SITECONFIG_CACHECLEAR_DELETE 1
create_dummy_cachefile $mp1
create_dummy_cachefile $mp2
change_file_perms $mp1 $nowrite_perms
set tserr [msg_delete $mp1cache "$error_msgs: error deleting \"$mp1cache\": permission denied"]\n\n[msg_delete $mp2cache]
testouterr_cmd sh cacheclear ERR $tserr
restore_file_perms $mp1
file delete $mp1cache
unsetenv_var TESTSUITE_ENABLE_SITECONFIG_CACHECLEAR_DELETE
}
}
#
# Cleanup
#
file delete $mpfile
file delete $mp1
file delete $mp2
reset_test_env
|
