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
199
200
201
202
203
204
205
206
|
##############################################################################
# Modules Revision 3.0
# Providing a flexible user environment
#
# File: modules.30-cache/%M%
# Revision: %I%
# First Edition: 2022/11/27
# Last Mod.: %U%, %G%
#
# Authors: Xavier Delaruelle, xavier.delaruelle@cea.fr
#
# Description: Testuite testsequence
# Command: avail
# Modulefiles:
# Sub-Command:
#
# Comment: %C{
# Test erroneous cachefile
# }C%
#
##############################################################################
skip_if_quick_mode
# ensure avail tests are made using in depth mode
setenv_var MODULES_AVAIL_INDEPTH 1
# ensure avail tests have implicit default enabled
setenv_var MODULES_IMPLICIT_DEFAULT 1
# ensure auto symbolic versions are set for these tests
setenv_var MODULES_ADVANCED_VERSION_SPEC 1
# generate content in modulepaths
lassign [create_simple_module_setup $mp1] dir_list file_list
array set file_arr $file_list
setenv_var MODULEPATH $mp1
# cache with an unknown command
set fid [open $mp1cache w]
puts $fid "#%Module$cache_mcookie_version
modulefile-content foo/1.0 1000000000 #%Module {#%Module
module-whatis foo/1.0
setenv FOO 1}
modulerc-content foo/.modulerc #%Module {#%Module
module-version foo/1.0 sym}
unk
modulefile-content bar/1.0 1000000000 #%Module #%Module
modulefile-content bar/2.0 1000000000 #%Module {#%Module
module-whatis bar/2.0
setenv BAR 1}
modulerc-content bar/.modulerc #%Module {#%Module
module-version bar/2.0 sym}"
close $fid
set cacheerr [msg_cacheerr {invalid command name "unk"} unk $mp1cache 7]
set tserr_avail "$mp1:
bar/1.0
bar/2.0
foo/1.0(sym)"
testouterr_cmd sh {avail -t} OK $tserr_avail
set tserr ".*
[escre $cacheerr]
.*"
testouterr_cmd_re sh {avail -D -t} ERR $tserr
set tserr_whatis "$modlin [escre $mp1] $modlin
\\s+foo/1.0: foo/1.0"
testouterr_cmd_re sh {whatis} OK $tserr_whatis
set ans_load1 [list]
lappend ans_load1 [list set FOO 1]
lappend ans_load1 [list set __MODULES_LMALTNAME foo/1.0&foo/sym&as|foo/default&as|foo/latest]
lappend ans_load1 [list set _LMFILES_ $mp1/foo/1.0]
lappend ans_load1 [list set LOADEDMODULES foo/1.0]
lappend ans_load1 [list ERR]
testouterr_cmd sh {load foo/1.0} $ans_load1 $cacheerr
set ans_load2 [list]
lappend ans_load2 [list set __MODULES_LMALTNAME bar/2.0&as|bar/default&as|bar/latest]
lappend ans_load2 [list set _LMFILES_ $mp1/bar/2.0]
lappend ans_load2 [list set LOADEDMODULES bar/2.0]
lappend ans_load2 [list ERR]
testouterr_cmd sh {load bar/2.0} $ans_load2 $cacheerr
# cache with a command with bad args
set fid [open $mp1cache w]
puts $fid "#%Module$cache_mcookie_version
modulefile-content foo/1.0 1000000000 #%Module {#%Module
module-whatis foo/1.0
setenv FOO 1}
modulerc-content foo/.modulerc #%Module {#%Module
module-version foo/1.0 sym}
modulefile-content bar/1.0 1000000000 #%Module #%Module extraarg
modulefile-content bar/2.0 1000000000 #%Module {#%Module
module-whatis bar/2.0
setenv BAR 1}
modulerc-content bar/.modulerc #%Module {#%Module
module-version bar/2.0 sym}"
close $fid
set cacheerr [msg_cacheerr {wrong # args: should be "modulefile-content mod mtime header content"} {modulefile-content bar/1.0 1000000000 #%Module #%Module extraarg} $mp1cache 7 {invoked from within}]
testouterr_cmd sh {avail -t} OK $tserr_avail
set tserr ".*
[escre $cacheerr]
.*"
testouterr_cmd_re sh {avail -D -t} ERR $tserr
testouterr_cmd_re sh {whatis} OK $tserr_whatis
testouterr_cmd sh {load foo/1.0} $ans_load1 $cacheerr
testouterr_cmd sh {load bar/2.0} $ans_load2 $cacheerr
# cache with unbalanced curly brace
set fid [open $mp1cache w]
puts $fid "#%Module$cache_mcookie_version
modulefile-content foo/1.0 1000000000 #%Module {#%Module
module-whatis foo/1.0
setenv FOO 1}
modulerc-content foo/.modulerc #%Module {#%Module
module-version foo/1.0 sym}
modulefile-content bar/1.0 1000000000 #%Module {#%Module
modulefile-content bar/2.0 1000000000 #%Module {#%Module
module-whatis bar/2.0
setenv BAR 1}
modulerc-content bar/.modulerc #%Module {#%Module
module-version bar/2.0 sym}"
close $fid
set cacheerr [escre [msg_cacheerr {missing close-brace: possible unbalanced brace in comment} "modulefile-content bar/1.0 1000000000 #%Module \{<EXM>" $mp1cache 7]]
testouterr_cmd sh {avail -t} OK $tserr_avail
set tserr ".*
$cacheerr
.*"
testouterr_cmd_re sh {avail -D -t} ERR $tserr
testouterr_cmd_re sh {whatis} OK $tserr_whatis
testouterr_cmd_re sh {load foo/1.0} $ans_load1 $cacheerr
testouterr_cmd_re sh {load bar/2.0} $ans_load2 $cacheerr
# cache with unbalanced quote
set fid [open $mp1cache w]
puts $fid "#%Module$cache_mcookie_version
modulefile-content foo/1.0 1000000000 #%Module {#%Module
module-whatis foo/1.0
setenv FOO 1}
modulerc-content foo/.modulerc #%Module {#%Module
module-version foo/1.0 sym}
modulefile-content bar/1.0 1000000000 #%Module \"#%Module
modulefile-content bar/2.0 1000000000 #%Module {#%Module
module-whatis bar/2.0
setenv BAR 1}
modulerc-content bar/.modulerc #%Module {#%Module
module-version bar/2.0 sym}"
close $fid
set cacheerr [escre [msg_cacheerr {missing "} {modulefile-content bar/1.0 1000000000 #%Module "<EXM>} $mp1cache 7]]
testouterr_cmd sh {avail -t} OK $tserr_avail
set tserr ".*
$cacheerr
.*"
testouterr_cmd_re sh {avail -D -t} ERR $tserr
testouterr_cmd_re sh {whatis} OK $tserr_whatis
testouterr_cmd_re sh {load foo/1.0} $ans_load1 $cacheerr
testouterr_cmd_re sh {load bar/2.0} $ans_load2 $cacheerr
# duplicate modulefile and modulerc entries
set fid [open $mp1cache w]
puts $fid "#%Module$cache_mcookie_version
modulefile-content foo/1.0 1000000000 #%Module {#%Module
module-whatis foo/1.0
setenv FOO 1}
modulefile-content foo/1.0 1000000000 #%Module {#%Module
module-whatis foo/2.0
setenv FOO 2}
modulerc-content foo/.modulerc #%Module {#%Module
module-version foo/1.0 sym}
modulerc-content foo/.modulerc #%Module {#%Module
module-version foo/1.0 oth}
modulefile-content bar/1.0 1000000000 #%Module #%Module
modulefile-content bar/2.0 1000000000 #%Module {#%Module
module-whatis bar/2.0
setenv BAR 1}
modulerc-content bar/.modulerc #%Module {#%Module
module-version bar/2.0 sym}"
close $fid
set tserr_avail "$mp1:
bar/1.0
bar/2.0(sym)
foo/1.0(oth)"
testouterr_cmd sh {avail -t} OK $tserr_avail
set ans_load1 [list]
lappend ans_load1 [list set FOO 2]
lappend ans_load1 [list set __MODULES_LMALTNAME foo/1.0&foo/oth&as|foo/default&as|foo/latest]
lappend ans_load1 [list set _LMFILES_ $mp1/foo/1.0]
lappend ans_load1 [list set LOADEDMODULES foo/1.0]
testouterr_cmd sh {load foo/1.0} $ans_load1 {}
#
# Cleanup
#
file delete $mp1cache
# delete created files and dirs
delete_module_setup $mp1 [array names file_arr] $dir_list
reset_test_env
|
