diff options
Diffstat (limited to 'testsuite/systemtap.base')
| -rw-r--r-- | testsuite/systemtap.base/prologues.exp | 21 | ||||
| -rw-r--r-- | testsuite/systemtap.base/prologues.stp | 6 |
2 files changed, 27 insertions, 0 deletions
diff --git a/testsuite/systemtap.base/prologues.exp b/testsuite/systemtap.base/prologues.exp new file mode 100644 index 00000000..b349e839 --- /dev/null +++ b/testsuite/systemtap.base/prologues.exp @@ -0,0 +1,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 }
\ No newline at end of file diff --git a/testsuite/systemtap.base/prologues.stp b/testsuite/systemtap.base/prologues.stp new file mode 100644 index 00000000..fc32ccd9 --- /dev/null +++ b/testsuite/systemtap.base/prologues.stp @@ -0,0 +1,6 @@ +# These sys_ functions often display prologue sensitivity +probe syscall.read, syscall.write { + log (name . argstr) + if (num++ > 20) exit() +} +global num |