testsuite/systemtap.base/warnings.exp


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

set test "warnings"

spawn stap -p4 $srcdir/$subdir/warnings.stp
set ok 0
expect {
    -timeout 30
    -re {^WARNING:[^\r\n]*\r\n} { incr ok; exp_continue }
    -re {^[^\r\n]*.ko\r\n} { incr ok; exp_continue }
    -re {^[^\r]*source:[^\r\n]*\r\n} {exp_continue}
    -re {^[^\r\n]*\^[^\r\n]*\r\n} {exp_continue}
    timeout { fail "$test (timeout)" }
    eof { }
}
wait
if {$ok == 14} {
    pass $test
} else {
    fail "$test ($ok)"
}