diff options
Diffstat (limited to 'testsuite')
-rw-r--r-- | testsuite/ChangeLog | 5 | ||||
-rw-r--r-- | testsuite/systemtap.base/warnings.exp | 16 | ||||
-rw-r--r-- | testsuite/systemtap.base/warnings.stp | 9 |
3 files changed, 30 insertions, 0 deletions
diff --git a/testsuite/ChangeLog b/testsuite/ChangeLog index 7d400487..5e04e64f 100644 --- a/testsuite/ChangeLog +++ b/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-10-05 Frank Ch. Eigler <fche@elastic.org> + + PR 1119. + * systemtap.base/warnings.*: New test. + 2007-10-05 Martin Hunt <hunt@redhat.com> * buildok/aux_syscalls-embedded.stp: Add all embedded diff --git a/testsuite/systemtap.base/warnings.exp b/testsuite/systemtap.base/warnings.exp new file mode 100644 index 00000000..90409d18 --- /dev/null +++ b/testsuite/systemtap.base/warnings.exp @@ -0,0 +1,16 @@ +set test "warnings" + +spawn stap -p4 $srcdir/$subdir/warnings.stp +set ok 0 +expect { + -re {^WARNING:[^\r\n]*\r\n} { incr ok; exp_continue } + -re {^[^\r\n]*.ko\r\n} { incr ok; exp_continue } + timeout { fail "$test (timeout)" } + eof { } +} +wait +if {$ok == 6} { + pass $test +} else { + fail $test +} diff --git a/testsuite/systemtap.base/warnings.stp b/testsuite/systemtap.base/warnings.stp new file mode 100644 index 00000000..a0ce8d8d --- /dev/null +++ b/testsuite/systemtap.base/warnings.stp @@ -0,0 +1,9 @@ +# PR 1119 + +global elide_me1 + +function elide_me2 () {} + +function foo:long () { elide_me3 = 1 } + +probe never { elide_me4 = 1; (elide_me5+5); print (foo()) } |