diff options
Diffstat (limited to 'contrib/bluegnu2.0.3/testsuite/T/test_002.exp')
| -rw-r--r-- | contrib/bluegnu2.0.3/testsuite/T/test_002.exp | 22 |
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" + } +} |