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
|
#%Module
variant --boolean foo
set-alias alfoo {echo foo2}
set-function funcfoo {echo foo2}
if {[is-loaded refresh/1.0]} {
set-alias alisloaded1 {echo is-loaded ok}
}
set-alias alspec "echo [module-info specified]"
set-alias altags "echo [module-info tags]"
if {[info exists env(TESTSUITE_REFRESH)]} {
switch -- $env(TESTSUITE_REFRESH) {
break0 - break2 {
break
}
badcmd2 {
unk
}
continue2 {
continue
}
exit2 {
exit
}
}
}
if {[module-info mode] in {load refresh}} {
puts prestdout "echo pre [module-info name]"
puts "echo [module-info name]"
}
|
