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
22
23
24
25
26
27
28
29
30

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

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