summaryrefslogtreecommitdiffstats
path: root/testsuite/systemtap.base/statement.exp
diff options
context:
space:
mode:
authorWenji Huang <wenji.huang@oracle.com>2009-08-05 22:58:46 -0400
committerWenji Huang <wenji.huang@oracle.com>2009-08-05 23:08:44 -0400
commit9b988eff8c29377e658606a85f371ceb9acfef7d (patch)
tree8d77c25244a3c1c7f6b78063791b29af93d777d4 /testsuite/systemtap.base/statement.exp
parent3d9889977397098d14c5be50f1dfef1c3eeb508f (diff)
downloadsystemtap-steved-9b988eff8c29377e658606a85f371ceb9acfef7d.tar.gz
systemtap-steved-9b988eff8c29377e658606a85f371ceb9acfef7d.tar.xz
systemtap-steved-9b988eff8c29377e658606a85f371ceb9acfef7d.zip
PR10294: support wider range for statement probe
* dwflpp.cxx (iterate_over_srcfile_lines): Add pattern parameter. * dwflpp.h (iterate_over_srcfile_lines): Ditto. * testsuite/systemtap.base/bz10294.c: Test case. * testsuite/systemtap.base/bz10294.stp: Ditto. * testsuite/systemtap.base/bz6905.exp: Deleted. * testsuite/systemtap.base/statement.exp: Merge bz10294 with bz6905.
Diffstat (limited to 'testsuite/systemtap.base/statement.exp')
-rw-r--r--testsuite/systemtap.base/statement.exp38
1 files changed, 38 insertions, 0 deletions
diff --git a/testsuite/systemtap.base/statement.exp b/testsuite/systemtap.base/statement.exp
new file mode 100644
index 00000000..d8fce8d8
--- /dev/null
+++ b/testsuite/systemtap.base/statement.exp
@@ -0,0 +1,38 @@
+set test bz6905
+
+catch {exec gcc -g -o $test $srcdir/$subdir/$test.c} err
+if {$err == "" && [file exists $test]} then { pass "$test compile" } else { fail "$test compile" }
+
+spawn stap -p2 $srcdir/$subdir/$test.stp
+set hint 0
+set probes 0
+expect {
+ -timeout 60
+ -re "# probes" { incr hint; exp_continue }
+ -re {process.*statement.*} { incr probes; exp_continue }
+ timeout { fail "$test (timeout)" }
+ eof { }
+}
+wait
+if { $hint == 1 && $probes > 0 } then { pass "$test -p2" } else { fail "$test -p2 ($probes)" }
+exec rm -f $test
+
+set test bz10294
+
+catch {exec gcc -g -o $test $srcdir/$subdir/$test.c} err
+if {$err == "" && [file exists $test]} then { pass "$test compile" } else { fail "$test compile" }
+
+spawn stap -p2 $srcdir/$subdir/$test.stp
+set hint 0
+set probes 0
+expect {
+ -timeout 60
+ -re "# probes" { incr hint; exp_continue }
+ -re {process.*statement.*} { incr probes; exp_continue }
+ timeout { fail "$test (timeout)" }
+ eof { }
+}
+wait
+if { $hint == 1 && $probes == 1 } then { pass "$test -p2" } else { fail "$test -p2 ($probes)" }
+exec rm -f $test
+