test/process.tcl


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

Assert when we are running {{} {
    Start process A {
        puts hello
    }
}}
Assert we are running
Step

Assert when we are running {{} {
    On process A {
        puts whup
    }
}}

for {set i 0} {$i < 1000} {incr i} {
    Step
}