diff options
Diffstat (limited to 'contrib/bluegnu2.0.3/testsets/BlueGnu/namespaceVariables.itcl')
-rw-r--r-- | contrib/bluegnu2.0.3/testsets/BlueGnu/namespaceVariables.itcl | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/contrib/bluegnu2.0.3/testsets/BlueGnu/namespaceVariables.itcl b/contrib/bluegnu2.0.3/testsets/BlueGnu/namespaceVariables.itcl deleted file mode 100644 index c1143dc..0000000 --- a/contrib/bluegnu2.0.3/testsets/BlueGnu/namespaceVariables.itcl +++ /dev/null @@ -1,36 +0,0 @@ -# -# 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 |