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