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
|
##############################################################################
# Modules Revision 3.0
# Providing a flexible user environment
#
# File: modules.50-cmds/%M%
# Revision: %I%
# First Edition: 2018/04/15
# Last Mod.: %U%, %G%
#
# Authors: Xavier Delaruelle, xavier.delaruelle@cea.fr
#
# Description: Testuite testsequence
# Command: load, unload, display, help, test
# Modulefiles: getenv/0.6
# Sub-Command:
#
# Comment: %C{
# Check the effect of 'getenv' command on value transmission to
# variable through the different modulefile evaluation mode
# }C%
#
##############################################################################
skip_if_quick_mode
set module "getenv/0.6"
set modulefile "$modpath/$module"
set modulefilere "$modpathre/$module"
#
# test load mode
#
set ans [list]
lappend ans [list unset TS5]
lappend ans [list set TS2 {}]
lappend ans [list set _LMFILES_ $modulefile]
lappend ans [list set LOADEDMODULES $module]
lappend ans [list set TS3 {}]
lappend ans [list unset TS4]
testouterr_cmd "sh" "load $module" $ans ""
# test with value set to variable prior to load
setenv_var TS1 "no"
set ans [list]
lappend ans [list unset TS5]
lappend ans [list set TS2 "no"]
lappend ans [list set _LMFILES_ $modulefile]
lappend ans [list set LOADEDMODULES $module]
lappend ans [list set TS3 "no"]
lappend ans [list unset TS4]
testouterr_cmd "sh" "load $module" $ans ""
#
# test unload mode
#
# test with module loaded
setenv_var TS1 "yes"
setenv_var TS2 "yes"
setenv_var TS3 "yes"
setenv_loaded_module $module $modulefile
set ans [list]
lappend ans [list set TS5 "yes"]
lappend ans [list unset TS2]
lappend ans [list unset _LMFILES_]
lappend ans [list unset LOADEDMODULES]
lappend ans [list unset TS3]
lappend ans [list set TS4 "yes"]
testouterr_cmd "sh" "unload $module" $ans ""
# test with module loaded but vanished env vars
unsetenv_var TS1
unsetenv_var TS2
unsetenv_var TS3
set ans [list]
lappend ans [list set TS5 {}]
lappend ans [list unset TS2]
lappend ans [list unset _LMFILES_]
lappend ans [list unset LOADEDMODULES]
lappend ans [list unset TS3]
lappend ans [list set TS4 {}]
testouterr_cmd "sh" "unload $module" $ans ""
# restore environment
unsetenv_loaded_module
#
# test display mode
#
# test without module loaded
set tserr "$modlin
$modulefilere:
setenv\t\tTS2 \\\$TS1
setenv\t\tTS3 \\\$TS1
unsetenv\tTS4 \\\$TS1
unsetenv\tTS5 \\\$TS4
$modlin"
testouterr_cmd_re "sh" "display $module" "" $tserr
# test with module loaded
setenv_var TS1 "yes"
setenv_var TS2 "yes"
setenv_var TS3 "yes"
setenv_loaded_module $module $modulefile
testouterr_cmd_re "sh" "display $module" "" $tserr
# restore environment
unsetenv_var TS1
unsetenv_var TS2
unsetenv_var TS3
unsetenv_loaded_module
#
# test help mode
#
set tserr "$modlin
Module Specific Help for $modulefilere:
$warn_msgs: Unable to find ModulesHelp in $modulefilere.
$modlin"
# test without module loaded
testouterr_cmd_re "sh" "help $module" "" $tserr
# test with module loaded
setenv_var TS1 "yes"
setenv_var TS2 "yes"
setenv_var TS3 "yes"
setenv_loaded_module $module $modulefile
testouterr_cmd_re "sh" "help $module" "" $tserr
# restore environment
unsetenv_var TS1
unsetenv_var TS2
unsetenv_var TS3
unsetenv_loaded_module
#
# test test mode
#
set tserr "$modlin
Module Specific Test for $modulefilere:
$warn_msgs: Unable to find ModulesTest in $modulefilere.
$modlin"
# test without module loaded
testouterr_cmd_re "sh" "test $module" "" $tserr
# test with module previously loaded
setenv_var TS1 "yes"
setenv_var TS2 "yes"
setenv_var TS3 "yes"
setenv_loaded_module $module $modulefile
testouterr_cmd_re "sh" "test $module" "" $tserr
# restore environment
unsetenv_var TS1
unsetenv_var TS2
unsetenv_var TS3
unsetenv_loaded_module
#
# Cleanup
#
reset_test_env
|
