1 files changed, 20 insertions, 0 deletions
diff --git a/contrib/bluegnu2.0.3/testsuite/T/subT/test_002.exp b/contrib/bluegnu2.0.3/testsuite/T/subT/test_002.exp
new file mode 100644
index 0000000..a887fc9
--- /dev/null
+++ b/contrib/bluegnu2.0.3/testsuite/T/subT/test_002.exp
@@ -0,0 +1,20 @@
+
+puts "Test test_002.exp: level [info level]"
+puts "szTestName: [set szTestName]"
+puts "lTestName : $lTestName"
+
+namespace ::Common {
+    if [info exists i] {
+	if {[expr $i % 2]} {
+	    puts "    Remainder is 1 >$i<"
+	    incr i
+	    return
+	} else {
+	    puts "    Zero remainder >$i<"
+	    incr i
+	}
+	puts "         === End: $env(SHELL)"
+    } else {
+	puts "#### i doesn't exists"
+    }
+}