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
|
#%Module
# alias and function should be set
set-alias alfoo {echo foo1}
set-function funcfoo {echo foo1}
# other environment changes should be ignored
setenv FOO value
append-path BAR value
chdir /tmp
x-resource my-prog*my-ress:true
# module command should be ignored
module load foo/1.0
# system should be ignored
if {[system $env(TESTSUITEDIR)/systest] eq {123}} {
puts stderr {command has been executed}
}
# getenv should be operational and environment variable is found defined
if {[getenv FOO] eq {value}} {
set-alias algetenv {echo getenv ok}
}
# is-avail/is-loaded should be ok
if {[is-avail foo/1.0]} {
set-alias alisavail {echo is-avail ok}
}
if {[is-loaded refresh/2.0]} {
set-alias alisloaded2 {echo is-loaded ok}
}
if {[info exists env(TESTSUITE_REFRESH)]} {
switch -- $env(TESTSUITE_REFRESH) {
break0 - break1 {
break
}
badcmd1 {
unk
}
continue1 {
continue
}
exit1 {
exit
}
}
}
# fetch module-info data
set-alias alspec "echo [module-info specified]"
set-alias alcmd "echo [module-info command]"
set-alias altags "echo [module-info tags]"
set-alias almode "echo [module-info mode]"
if {[module-info mode] in {load refresh}} {
# puts to the result channel should be effective in refresh mode
puts prestdout "echo pre [module-info name]"
puts "echo [module-info name]"
}
|
