testsuite/systemtap.base/prologues.exp


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

set test "prologues -P"
set ok 0
spawn stap -P $srcdir/$subdir/prologues.stp
expect {
    -re {read[^\r\n]*\r\n} { incr ok; exp_continue }
    -re {write[^\r\n]*\r\n} { incr ok; exp_continue }
    eof
}
wait
if {$ok > 10} { pass $test } else { fail $test }

set test "prologues no-P"
set ok 0
spawn stap $srcdir/$subdir/prologues.stp
expect {
    -re {read[^\r\n]*\r\n} { incr ok; exp_continue }
    -re {write[^\r\n]*\r\n} { incr ok; exp_continue }
    eof
}
wait
if {$ok > 10} { pass $test } else { fail $test }