contrib/bluegnu2.0.3/testsuite/T/test_002.exp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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"
    }
}