1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
set test "bench"
if {![installtest_p]} {untested $test; return}
foreach runtime [get_runtime_list] {
set test "bench"
if {$runtime != ""} {
lappend test "($runtime)"
spawn stap -tu $srcdir/$subdir/bench.stp --runtime=$runtime
} else {
spawn stap -tu $srcdir/$subdir/bench.stp
}
set ok 0
expect {
-timeout 180
-re {^[^\r\n]+, hits: [0-9]+[^\r\n]+\r\n} { incr ok; exp_continue }
timeout { fail "$test (timeout)" }
eof { }
}
catch { close }; catch { wait }
if {$ok >= 18} { pass "$test" } { fail "$test ($ok)" }
}
|
