testsuite/systemtap.samples/arith.exp


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

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

spawn stap -DMAXNESTING=5 $srcdir/$subdir/arith.stp
set ok 0
expect {
    -timeout 150
    -re {passes: [0-9]* failures: 0} { incr ok }
    timeout { fail "$test (timeout)" }
    eof { }
}
closewait
if {$ok == 1} { pass "$test" } { fail "$test" }