1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
set test "arith"
if {![installtest_p]} { untested $test; return }
foreach runtime [get_runtime_list] {
set test "arith"
set args "--vp=0"
if {$runtime != ""} {
lappend test "($runtime)"
set args "--runtime=$runtime"
}
spawn stap -DMAXNESTING=5 $srcdir/$subdir/arith.stp $args
set ok 0
expect {
-timeout 150
-re {passes: [0-9]* failures: 0} { incr ok }
timeout { fail "$test (timeout)" }
eof { }
}
catch { close }
catch { wait }
if {$ok == 1} { pass "$test" } { fail "$test" }
}
|
