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


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