diff options
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | testsuite/systemtap.base/prologues.exp | 21 | ||||
| -rw-r--r-- | testsuite/systemtap.base/prologues.stp | 6 |
3 files changed, 31 insertions, 0 deletions
diff --git a/testsuite/ChangeLog b/testsuite/ChangeLog index 18226d54..1ff99ad4 100644 --- a/testsuite/ChangeLog +++ b/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2007-02-09 Frank Ch. Eigler <fche@elastic.org> + + * systemtap.base/prologue.*: New test case. + 2007-02-06 Josh Stone <joshua.i.stone@intel.com> * systemtap.base/deref.stp: Test kread with const sources. 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 |