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


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19


verbose "Test test_001.exp: level [info level]"
verbose "Global tools: [uplevel #0 set szCurrentTestDirectory]"

appendQueue test_003.exp=1
prependQueue test_003.exp=2 test_003.exp=3
verbose "Context: [info context]"
runtest test_003.exp=R0
appendQueue test_003.exp=A0
prependQueue test_003.exp=A2 test_003.exp=A3

namespace Common {
    incr iCount
    verbose "Counter is $iCount"
    if {$iCount < 5} {
	prependQueue test_001.exp
    }
    pass "test_001.exp: iCount - $iCount"
}