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
if {[info exists env(TESTSUITE_VARIANT)]} {
switch -- $env(TESTSUITE_VARIANT) {
1 {
variant foo val1 val2 val3 {val 4}
variant --default 2 bar 1 2 3
variant {1-bar} {} v*l1 val2
set vrlist {foo default bar default {1-bar} { ef*ult} {f* o} { ef*ult}}
}
2 {
set vrlist {foo default bar {de *ult}}
}
bool1 {
variant --boolean foo
set vrlist {foo default}
}
}
foreach {name fbval} $vrlist {
append-path TS0 "$name=[getvariant $name]"
append-path TS1 "$name=[getvariant $name $fbval]"
}
proc ModulesHelp {} {
foreach name [lsort [array names ::ModuleVariant]] {
puts stderr "$name=[getvariant $name]"
}
}
proc ModulesTest {} {
foreach name [lsort [array names ::ModuleVariant]] {
puts stderr "$name=[getvariant $name]"
}
return 1
}
}
|
