blob: c1143dcf60998759599411a10e7b47174ed1e705 (
plain)
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
|
#
# This test script prints the namespace variables
# pass the the test script when available varibale matches the expected
# and visa versa
#
proc checkVars {} {
set lExpectedVars [list \
bTestCase \
iArgs lArgs \
szID szName \
szScriptName szTool \
szTestCase szTestCaseID szTestCaseArgs \
]
set lVars [uplevel info vars]
note "Available Variable:"
foreach v [lsort $lVars] {
if {[lsearch [info globals] $v] < 0} {
note "[format %15s $v] = >[uplevel set $v]<"
if {[lsearch $lExpectedVars $v] >= 0} {
pass "Available variable >$v< in list of expected"
} else {
fail "Available variable >$v< NOT in list of expected"
}
}
}
foreach v $lExpectedVars {
if {[lsearch $lVars $v] >= 0} {
pass "Expected variable >$v< in list of available"
} else {
fail "Expected variable >$v< NOT in list of available"
}
}
}
checkVars
|
