diff options
Diffstat (limited to 'contrib/bluegnu2.0.3/testsuite/tools/env.exp')
-rw-r--r-- | contrib/bluegnu2.0.3/testsuite/tools/env.exp | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/contrib/bluegnu2.0.3/testsuite/tools/env.exp b/contrib/bluegnu2.0.3/testsuite/tools/env.exp deleted file mode 100644 index ebbe79f..0000000 --- a/contrib/bluegnu2.0.3/testsuite/tools/env.exp +++ /dev/null @@ -1,20 +0,0 @@ - -puts "======= Environment (Start) =======" - -foreach __item [lsort [list env]] { - if {[string compare $__item "__info"] == 0} continue - if [catch {puts " $__item=>[eval set $__item]<"} szErrMsg] { - if [regexp "variable is array" $szErrMsg] { - foreach __elem [lsort [array names $__item]] { - puts " ${__item}($__elem)=>[set ${__item}($__elem)]<" - } - } else { - puts "******* >> msg : $szErrMsg" - puts "******* >> errorInfo: [uplevel #0 set errorInfo]" - puts "******* >> errorCode: [uplevel #0 set errorCode]" - } - } -} - -pass env.exp -puts "======= Environment (End) =======" |