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
|
#%Module
if {[info exists env(TESTSUITE_VARIANT)]} {
switch -- $env(TESTSUITE_VARIANT) {
1 - 10 - 11 - 12 {
variant foo val1 val2 val3
variant bar 1 2 3
}
2 {
variant --default val2 foo val1 val2 val3
variant --default 2 bar 1 2 3
puts stderr [module-info specified]
}
3 {
variant {b?r } {} v*l1 val2
variant {f* o} val1 val2 {v?l1 }
}
bool8 {
variant --boolean foo
puts stderr [module-info specified]
}
}
setenv TS0 [lsort [array names ModuleVariant]]
foreach name [lsort [array names ModuleVariant]] {
append-path TS1 "$name=$ModuleVariant($name)"
}
append-path TS2 [join [lsort [array names ModuleVariant]] -]
switch -- $env(TESTSUITE_VARIANT) {
11 {
setenv TS3 /path/to/module-[getvariant foo]
}
12 {
setenv TS3 /path/to/module-$ModuleVariant(foo)
}
}
proc ModulesHelp {} {
foreach name [lsort [array names ::ModuleVariant]] {
puts stderr "$name=$::ModuleVariant($name)"
}
}
proc ModulesTest {} {
foreach name [lsort [array names ::ModuleVariant]] {
puts stderr "$name=$::ModuleVariant($name)"
}
return 1
}
}
|
