Skip to content

Commit 4dd66bc

Browse files
xdelaruellexdelaruelle
committed
ts: test module-warn modulefile command
Signed-off-by: Xavier Delaruelle <[email protected]>
1 parent 0119dc0 commit 4dd66bc

File tree

8 files changed

+412
-0
lines changed

8 files changed

+412
-0
lines changed

‎testsuite/modulefiles.4/extra/.modulerc‎

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -18,5 +18,8 @@ if {[info exists env(TESTSUITE_EXTRA)]} {
1818
tag4 {
1919
module-tag xtfoo [file dirname $ModulesCurrentModulefile]/1.0
2020
}
21+
tag7 {
22+
module-warn --message {warning text} extra/1.0
23+
}
2124
}
2225
}

‎testsuite/modulefiles.4/extra/1.0‎

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -336,5 +336,8 @@ if {[info exists env(TESTSUITE_EXTRA)]} {
336336
tag6 {
337337
add-property name xtfoo
338338
}
339+
tag8 {
340+
module-warn --message {warning text} extra/1.0
341+
}
339342
}
340343
}

‎testsuite/modulefiles.4/warn/.modulerc‎

Lines changed: 50 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,50 @@
1+
#%Module
2+
if {[info exists env(TESTSUITE_WARN)]} {
3+
switch -- $env(TESTSUITE_WARN) {
4+
rc_simple {
5+
module-warn --message {Warning text printed} warn/1
6+
}
7+
rc_other_warning {
8+
module-warn --message {Warning text printed} warn/1
9+
}
10+
rc_with_forbidden {
11+
module-forbid warn/1
12+
module-warn --message {Warning text printed} warn/1
13+
}
14+
rc_with_nearly_forbidden {
15+
set tomorrow [clock format [expr {[clock seconds]+86400}] -format %Y-%m-%d]
16+
module-forbid --after $tomorrow warn/1
17+
module-warn --message {Warning text printed} warn/1
18+
}
19+
rc_bad1 {
20+
module-warn
21+
}
22+
rc_bad2 {
23+
module-warn warn/1
24+
}
25+
rc_bad3 {
26+
module-warn --message text
27+
}
28+
rc_bad4 {
29+
module-warn --message text --unk warn/1
30+
}
31+
user1 {
32+
module-warn --message text --user [module-info username] warn/1
33+
}
34+
user2 {
35+
module-warn --message text --not-user [module-info username] warn/1
36+
}
37+
time1 {
38+
module-warn --message text --after 2099-12-31 warn/1
39+
}
40+
time2 {
41+
module-warn --message text --before 2099-12-31 warn/1
42+
}
43+
long_text {
44+
module-warn --message {long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long} warn/1
45+
}
46+
new_line {
47+
module-warn --message "long long long long\nlong long long" warn/1
48+
}
49+
}
50+
}

‎testsuite/modulefiles.4/warn/1‎

Lines changed: 29 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,29 @@
1+
#%Module
2+
module-whatis warn/1
3+
module-help help
4+
if {[info exists env(TESTSUITE_WARN)]} {
5+
switch -- $env(TESTSUITE_WARN) {
6+
mf_simple {
7+
module-warn --message {Warning text printed} warn/1
8+
}
9+
mf_other_warning {
10+
module-warn --message {Warning text printed} warn/1
11+
reportWarning {other warning message}
12+
}
13+
rc_other_warning {
14+
reportWarning {other warning message}
15+
}
16+
mf_bad1 {
17+
module-warn
18+
}
19+
mf_bad2 {
20+
module-warn warn/1
21+
}
22+
mf_bad3 {
23+
module-warn --message text
24+
}
25+
mf_bad4 {
26+
module-warn --message text --unk warn/1
27+
}
28+
}
29+
}

‎testsuite/modulefiles.4/warn/2‎

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1 @@
1+
#%Module

‎testsuite/modules.50-cmds/700-module-warn.exp‎

Lines changed: 291 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,291 @@
1+
##############################################################################
2+
# Modules Revision 3.0
3+
# Providing a flexible user environment
4+
#
5+
# File: modules.50-cmds/%M%
6+
# Revision: %I%
7+
# First Edition: 2025/04/06
8+
# Last Mod.: %U%, %G%
9+
#
10+
# Authors: Xavier Delaruelle, [email protected]
11+
#
12+
# Description: Testuite testsequence
13+
# Command: load, unload, display, help, show, test,
14+
# refresh, whatis
15+
# Modulefiles: warn
16+
# Sub-Command:
17+
#
18+
# Comment: %C{
19+
# Test module-warn command
20+
# }C%
21+
#
22+
##############################################################################
23+
24+
set mp $modpath.4
25+
setenv_var MODULEPATH $mp
26+
27+
setenv_var MODULES_TAG_ABBREV auto-loaded=aL:loaded=L:hidden=H:hidden-loaded=H:forbidden=F:nearly-forbidden=nF:sticky=S:super-sticky=sS:keep-loaded=kL:warning=W
28+
29+
setenv_var TESTSUITE_WARN rc_simple
30+
set ans [list]
31+
lappend ans [list set _LMFILES_ $mp/warn/1]
32+
lappend ans [list set LOADEDMODULES warn/1]
33+
lappend ans [list set __MODULES_LMTAG warn/1&warning]
34+
set tserr [msg_load {warn/1 <W>} "$warn_msgs: Warning text printed"]
35+
testouterr_cmd bash {load warn/1} $ans $tserr
36+
37+
setenv_var TESTSUITE_WARN mf_simple
38+
testouterr_cmd bash {load warn/1} $ans $tserr
39+
40+
skip_if_quick_mode
41+
42+
43+
# display
44+
45+
setenv_var TESTSUITE_WARN rc_simple
46+
set tserr "$modlin
47+
$modpathre.4/warn/1:
48+
49+
module-whatis\twarn/1
50+
module-help\thelp
51+
$warn_msgs: Warning text printed
52+
$modlin"
53+
testouterr_cmd_re bash {display warn/1} OK $tserr
54+
55+
setenv_var TESTSUITE_WARN mf_simple
56+
set tserr "$modlin
57+
$modpathre.4/warn/1:
58+
59+
module-whatis\twarn/1
60+
module-help\thelp
61+
module-warn\t--message {Warning text printed} warn/1
62+
$warn_msgs: Warning text printed
63+
$modlin"
64+
testouterr_cmd_re bash {display warn/1} OK $tserr
65+
66+
67+
# help
68+
69+
setenv_var TESTSUITE_WARN rc_simple
70+
set tserr "$modlin
71+
Module Specific Help for $modpathre.4/warn/1:
72+
73+
help
74+
$warn_msgs: Warning text printed
75+
$modlin"
76+
testouterr_cmd_re bash {help warn/1} OK $tserr
77+
78+
setenv_var TESTSUITE_WARN mf_simple
79+
set tserr "$modlin
80+
Module Specific Help for $modpathre.4/warn/1:
81+
82+
help
83+
$warn_msgs: Warning text printed
84+
$modlin"
85+
testouterr_cmd_re bash {help warn/1} OK $tserr
86+
87+
88+
# test
89+
90+
setenv_var TESTSUITE_WARN rc_simple
91+
set tserr "$modlin
92+
Module Specific Test for $modpathre.4/warn/1:
93+
94+
$warn_msgs: Unable to find ModulesTest in $modpathre.4/warn/1.
95+
$warn_msgs: Warning text printed
96+
$modlin"
97+
testouterr_cmd_re bash {test warn/1} OK $tserr
98+
99+
setenv_var TESTSUITE_WARN mf_simple
100+
set tserr "$modlin
101+
Module Specific Test for $modpathre.4/warn/1:
102+
103+
$warn_msgs: Unable to find ModulesTest in $modpathre.4/warn/1.
104+
$warn_msgs: Warning text printed
105+
$modlin"
106+
testouterr_cmd_re bash {test warn/1} OK $tserr
107+
108+
109+
# whatis
110+
111+
setenv_var TESTSUITE_WARN rc_simple
112+
set tserr "$modlin $modpathre.4 $modlin
113+
\\s+warn/1: warn/1"
114+
testouterr_cmd_re bash {whatis warn/1} OK $tserr
115+
116+
setenv_var TESTSUITE_WARN mf_simple
117+
testouterr_cmd_re bash {whatis warn/1} OK $tserr
118+
119+
120+
# unload
121+
122+
setenv_loaded_module [list warn/1] [list $mp/warn/1]
123+
setenv_var __MODULES_LMTAG warn/1&warning
124+
125+
set ans [list]
126+
lappend ans [list unset _LMFILES_]
127+
lappend ans [list unset LOADEDMODULES]
128+
lappend ans [list unset __MODULES_LMTAG]
129+
testouterr_cmd bash {unload warn/1} $ans {}
130+
131+
132+
# refresh
133+
134+
setenv_var __MODULES_LMREFRESH warn/1
135+
136+
set ans [list]
137+
testouterr_cmd bash {refresh} $ans {}
138+
139+
unsetenv_loaded_module
140+
unsetenv_var __MODULES_LMTAG
141+
unsetenv_var __MODULES_LMREFRESH
142+
143+
144+
# other warning in modulefile
145+
146+
setenv_var TESTSUITE_WARN rc_other_warning
147+
set ans [list]
148+
lappend ans [list set _LMFILES_ $mp/warn/1]
149+
lappend ans [list set LOADEDMODULES warn/1]
150+
lappend ans [list set __MODULES_LMTAG warn/1&warning]
151+
set tserr [msg_load {warn/1 <W>} "$warn_msgs: other warning message" "$warn_msgs: Warning text printed"]
152+
testouterr_cmd bash {load warn/1} $ans $tserr
153+
154+
setenv_var TESTSUITE_WARN mf_other_warning
155+
testouterr_cmd bash {load warn/1} $ans $tserr
156+
157+
158+
# mix with forbidden tag
159+
160+
setenv_var TESTSUITE_WARN rc_with_forbidden
161+
162+
set tserr [err_accessdenied warn/1]
163+
testouterr_cmd bash {load warn/1} ERR $tserr
164+
165+
testouterr_cmd bash {display warn/1} ERR $tserr
166+
167+
168+
# mix with nearly-forbidden tag
169+
170+
setenv_var TESTSUITE_WARN rc_with_nearly_forbidden
171+
set tomorrow [clock format [expr {[clock seconds]+86400}] -format %Y-%m-%d]
172+
173+
set ans [list]
174+
lappend ans [list set _LMFILES_ $mp/warn/1]
175+
lappend ans [list set LOADEDMODULES warn/1]
176+
lappend ans [list set __MODULES_LMTAG warn/1&nearly-forbidden&warning]
177+
set tserr [msg_load {warn/1 <nF:W>} [err_accessnearlydenied $tomorrow] "$warn_msgs: Warning text printed"]
178+
testouterr_cmd bash {load warn/1} $ans $tserr
179+
180+
set tserr "$modlin
181+
$modpathre.4/warn/1:
182+
183+
module-whatis\twarn/1
184+
module-help\thelp
185+
[err_accessnearlydenied $tomorrow]
186+
$warn_msgs: Warning text printed
187+
$modlin"
188+
testouterr_cmd_re bash {display warn/1} OK $tserr
189+
190+
191+
# bad usages
192+
193+
setenv_var TESTSUITE_WARN rc_bad1
194+
195+
set ans [list]
196+
lappend ans [list set _LMFILES_ $mp/warn/1]
197+
lappend ans [list set LOADEDMODULES warn/1]
198+
lappend ans [list ERR]
199+
set line_num [expr {[cmpversion $tclsh_version 8.6] == -1 ? 2 : 20}]
200+
set tserr [escre [msg_moderr {No message specified in argument} {module-warn<EXM>} $mp/warn/.modulerc $line_num { }]]
201+
testouterr_cmd_re bash {load warn/1} $ans $tserr
202+
203+
setenv_var TESTSUITE_WARN rc_bad2
204+
205+
set line_num [expr {[cmpversion $tclsh_version 8.6] == -1 ? 2 : 23}]
206+
set tserr [escre [msg_moderr {No message specified in argument} {module-warn warn/1<EXM>} $mp/warn/.modulerc $line_num { }]]
207+
testouterr_cmd_re bash {load warn/1} $ans $tserr
208+
209+
setenv_var TESTSUITE_WARN rc_bad3
210+
211+
set line_num [expr {[cmpversion $tclsh_version 8.6] == -1 ? 2 : 26}]
212+
set tserr [escre [msg_moderr {No module specified in argument} {module-warn --message text<EXM>} $mp/warn/.modulerc $line_num { }]]
213+
testouterr_cmd_re bash {load warn/1} $ans $tserr
214+
215+
setenv_var TESTSUITE_WARN rc_bad4
216+
217+
set line_num [expr {[cmpversion $tclsh_version 8.6] == -1 ? 2 : 29}]
218+
set tserr [escre [msg_moderr {Invalid option '--unk'} {module-warn --message text --unk warn/1<EXM>} $mp/warn/.modulerc $line_num { }]]
219+
testouterr_cmd_re bash {load warn/1} $ans $tserr
220+
221+
setenv_var TESTSUITE_WARN mf_bad1
222+
set line_num [expr {[cmpversion $tclsh_version 8.6] == -1 ? 4 : 17}]
223+
set tserr [escre [msg_load warn/1 [msg_moderr {No message specified in argument} {module-warn<EXM>} $mp/warn/1 $line_num]]]
224+
testouterr_cmd_re bash {load warn/1} ERR $tserr
225+
226+
setenv_var TESTSUITE_WARN mf_bad2
227+
set line_num [expr {[cmpversion $tclsh_version 8.6] == -1 ? 4 : 20}]
228+
set tserr [escre [msg_load warn/1 [msg_moderr {No message specified in argument} {module-warn warn/1<EXM>} $mp/warn/1 $line_num]]]
229+
testouterr_cmd_re bash {load warn/1} ERR $tserr
230+
231+
setenv_var TESTSUITE_WARN mf_bad3
232+
set line_num [expr {[cmpversion $tclsh_version 8.6] == -1 ? 4 : 23}]
233+
set tserr [escre [msg_load warn/1 [msg_moderr {No module specified in argument} {module-warn --message text<EXM>} $mp/warn/1 $line_num]]]
234+
testouterr_cmd_re bash {load warn/1} ERR $tserr
235+
236+
setenv_var TESTSUITE_WARN mf_bad4
237+
set line_num [expr {[cmpversion $tclsh_version 8.6] == -1 ? 4 : 26}]
238+
set tserr [escre [msg_load warn/1 [msg_moderr {Invalid option '--unk'} {module-warn --message text --unk warn/1<EXM>} $mp/warn/1 $line_num]]]
239+
testouterr_cmd_re bash {load warn/1} ERR $tserr
240+
241+
242+
# user/time selection
243+
244+
setenv_var TESTSUITE_WARN user1
245+
246+
set ans [list]
247+
lappend ans [list set _LMFILES_ $mp/warn/1]
248+
lappend ans [list set LOADEDMODULES warn/1]
249+
lappend ans [list set __MODULES_LMTAG warn/1&warning]
250+
set tserr [msg_load {warn/1 <W>} "$warn_msgs: text"]
251+
testouterr_cmd bash {load warn/1} $ans $tserr
252+
253+
setenv_var TESTSUITE_WARN time2
254+
testouterr_cmd bash {load warn/1} $ans $tserr
255+
256+
setenv_var TESTSUITE_WARN user2
257+
258+
set ans [list]
259+
lappend ans [list set _LMFILES_ $mp/warn/1]
260+
lappend ans [list set LOADEDMODULES warn/1]
261+
testouterr_cmd bash {load warn/1} $ans {}
262+
263+
setenv_var TESTSUITE_WARN time1
264+
testouterr_cmd bash {load warn/1} $ans {}
265+
266+
267+
# long text
268+
269+
setenv_var TESTSUITE_WARN long_text
270+
271+
set ans [list]
272+
lappend ans [list set _LMFILES_ $mp/warn/1]
273+
lappend ans [list set LOADEDMODULES warn/1]
274+
lappend ans [list set __MODULES_LMTAG warn/1&warning]
275+
set tserr [msg_load {warn/1 <W>} "$warn_msgs: long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long long"]
276+
testouterr_cmd bash {load warn/1} $ans $tserr
277+
278+
279+
# text with newline
280+
281+
setenv_var TESTSUITE_WARN new_line
282+
283+
set tserr [msg_load {warn/1 <W>} "$warn_msgs: long long long long\nlong long long"]
284+
testouterr_cmd bash {load warn/1} $ans $tserr
285+
286+
287+
#
288+
# Cleanup
289+
#
290+
291+
reset_test_env

0 commit comments

Comments
 (0)