1 files changed, 48 insertions, 0 deletions
diff --git a/contrib/bluegnu2.0.3/testsuite/T/env.iexp b/contrib/bluegnu2.0.3/testsuite/T/env.iexp
new file mode 100644
index 0000000..ca29e5f
--- /dev/null
+++ b/contrib/bluegnu2.0.3/testsuite/T/env.iexp
@@ -0,0 +1,48 @@
+
+puts "======= Environment (Start) ======="
+
+foreach item [lsort [array names env]] {
+    if [catch {puts "   env($item)=$env($item)"} szErrMsg] {
+	puts "******* >> msg      : $szErrMsg"
+	puts "******* >> errorInfo: [uplevel #0 set errorInfo]"
+	puts "******* >> errorCode: [uplevel #0 set errorCode]"
+    }
+}
+
+foreach info [list {info locals} \
+	{info globals} {uplevel #0 info globals} \
+	{info vars}] {
+    puts "=== Command: $info"
+    foreach item [lsort [eval $info]] {
+	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]"
+	    }
+    }
+    }
+}
+
+foreach info [list {namespace all} \
+	{namespace children} {namespace parent} \
+	classes commands context level library locals \
+	objects patchlevel procs script tclversion] {
+    puts "=== info $info"
+    foreach item [lsort [eval info $info]] {
+	puts "   $item"
+    }
+}
+
+puts "argv: [set argv]"
+puts "szTestName: [set szTestName]"
+catch {puts "lTestName : $lTestName"}
+$szTestName pass
+puts [$szTestName <<]
+
+#runtest ::E0 env.iexp
+puts "======= Environment (End) ======="