testsuite/systemtap.base/bench.exp


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

set test "bench"

if {![installtest_p]} {untested $test; return}

spawn stap -tu $srcdir/$subdir/bench.stp
set ok 0
expect {
    -timeout 180
    -re {probe[^\r]*\r} { incr ok; exp_continue }
    timeout { fail "$test (timeout)" }
    eof { }
}
wait
if {$ok > 10} { pass "$test ($ok)" } { fail "$test ($ok)" }