diff options
Diffstat (limited to 'testsuite/systemtap.base')
| -rw-r--r-- | testsuite/systemtap.base/prologues.exp | 37 |
1 files changed, 21 insertions, 16 deletions
diff --git a/testsuite/systemtap.base/prologues.exp b/testsuite/systemtap.base/prologues.exp index b349e839..b0f6a5c6 100644 --- a/testsuite/systemtap.base/prologues.exp +++ b/testsuite/systemtap.base/prologues.exp @@ -1,21 +1,26 @@ 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 +if {! [installtest_p]} { untested $test } else { + 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 } } -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 +if {! [installtest_p]} { untested $test } else { + 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 } } -wait -if {$ok > 10} { pass $test } else { fail $test }
\ No newline at end of file + |