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, 20 insertions, 0 deletions
diff --git a/contrib/bluegnu2.0.3/testsuite/tools/env.exp b/contrib/bluegnu2.0.3/testsuite/tools/env.exp new file mode 100644 index 0000000..ebbe79f --- /dev/null +++ b/contrib/bluegnu2.0.3/testsuite/tools/env.exp @@ -0,0 +1,20 @@ + +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) =======" |