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
|
#%Module
if {[info exists env(TESTSUITE_VARIANT)]} {
switch -- $env(TESTSUITE_VARIANT) {
1 {
variant foo val1 val2 val3
variant bar 1 2 3
module-whatis [module-info name]
}
2 {
variant --default val2 foo val1 val2 val3
variant --default 2 bar 1 2 3
module-whatis [module-info name]
}
3 {
variant foo val1 val2 val3
variant bar 1 2 3
module-whatis "[module-info name] $ModuleVariant(foo)-$ModuleVariant(bar)"
}
4 {
variant --default val2 foo val1 val2 val3
variant --default 2 bar 1 2 3
module-whatis "[module-info name] [getvariant foo]-[getvariant bar]"
}
5 {
variant foo val1 val2 val3
variant bar 1 2 3
module-whatis "[module-info name] $ModuleVariant(baz)"
}
6 {
module-whatis "[module-info name] [getvariant foo]-$ModuleVariant(bar)"
variant --default val2 foo val1 val2 val3
variant --default 2 bar 1 2 3
}
7 {
variant foo
module-whatis "[module-info name] [getvariant foo]"
}
8 {
variant --default
module-whatis "[module-info name] [getvariant foo]"
}
coll30 - coll31 {
variant --default val1 foo val1 val2 val3
variant bar 1 2 3
}
10 {
variant baz val1 val2 val3
}
aliassym1 - aliassym2 - aliassym3 - aliassym4 - aliassym5 - aliassym6 - aliassym7 {
variant --default val2 foo val1 val2 val3
variant bar 1 2 3
}
aliassym8 {
variant --default val2 foo val1 val2 val3
variant bar 1 2 3
setenv TS1 [module-info alias variant/6.0 bar=1 foo=val2]
setenv TS2 [module-info version variant/6.0 bar=1 foo=val2]
setenv TS3 [module-info symbols variant/6.0 bar=1 foo=val2]
}
aliassym9 {
variant --default val2 foo val1 val2 val3
variant bar 1 2 3
setenv TS1 [module-info alias {variant/6.0 bar=1 foo=val2}]
setenv TS2 [module-info version {variant/6.0 bar=1 foo=val2}]
setenv TS3 [module-info symbols {variant/6.0 bar=1 foo=val2}]
}
info1 {
variant --default val2 foo val1 val2 val3
variant bar 1 2 3
lappend tslist [is-loaded variant]
lappend tslist [is-loaded variant bar=2]
lappend tslist [is-loaded variant bar=1]
lappend tslist [is-loaded variant foo=val2]
lappend tslist [is-loaded variant foo=val1]
lappend tslist [is-loaded variant bar=1 foo=val2]
lappend tslist [is-loaded variant bar=2 foo=val1]
lappend tslist [is-loaded variant bar=2 foo=val2]
lappend tslist [is-loaded variant/1.0]
lappend tslist [is-loaded variant@1:1]
lappend tslist [is-loaded variant/1.0 bar=2]
lappend tslist [is-loaded variant/1.0 bar=2 foo=val1]
lappend tslist [is-loaded variant@1 bar=2 foo=val2]
lappend tslist [is-loaded variant@1.0 bar=2 foo=val2]
setenv TS1 $tslist
}
info2 {
variant --default val2 foo val1 val2 val3
variant bar 1 2 3
lappend tslist [module-info loaded variant]
lappend tslist [module-info loaded {variant bar=2}]
lappend tslist [module-info loaded {variant bar=2 val=2}]
lappend tslist [module-info loaded variant/1.0]
lappend tslist [module-info loaded variant@1:2]
lappend tslist [module-info loaded {variant/1.0 bar=2}]
lappend tslist [module-info loaded {variant/1.0 bar=2 val=2}]
setenv TS1 [join $tslist :]
}
info3 {
variant --default val2 foo val1 val2 val3
variant bar 1 2 3
lappend tslist [is-avail variant]
lappend tslist [is-avail variant bar=2]
lappend tslist [is-avail variant bar=1]
lappend tslist [is-avail variant foo=val2]
lappend tslist [is-avail variant foo=val1]
lappend tslist [is-avail variant bar=1 foo=val2]
lappend tslist [is-avail variant bar=2 foo=val1]
lappend tslist [is-avail variant bar=2 foo=val2]
lappend tslist [is-avail variant/1.0]
lappend tslist [is-avail variant@1:1]
lappend tslist [is-avail variant/1.0 bar=2]
lappend tslist [is-avail variant/1.0 bar=2 foo=val1]
lappend tslist [is-avail variant@1 bar=2 foo=val2]
lappend tslist [is-avail variant@1.0 bar=2 foo=val2]
setenv TS1 $tslist
}
info4 {
variant --default val2 foo val1 val2 val3
variant bar 1 2 3
setenv TS1 [module-info tags]
}
info5 {
variant --default val2 foo val1 val2 val3
variant bar 1 2 3
setenv TS1 [module-info specified]
}
info6 {
variant --default val2 foo val1 val2 val3
variant bar 1 2 3
setenv TS1 [module-info name]
}
version1 {
variant version 1.0 1.1 1.2
variant --default val2 foo val1 val2 val3
variant bar 1 2 3
}
coll35 {
variant --boolean bar
}
list2 {
variant foo val1 val2
}
list1 {
variant --boolean foo
}
bool1 {
variant --boolean foo
variant --boolean bar
module-whatis [module-info name]
}
free3 {
variant foo
module-whatis [module-info name]
}
}
}
|
