summaryrefslogtreecommitdiffstats
path: root/testsuite/systemtap.base/probefunc.exp
diff options
context:
space:
mode:
authorfche <fche>2006-08-12 05:13:09 +0000
committerfche <fche>2006-08-12 05:13:09 +0000
commit814bc89d4635f101b2c0077598f31aad95ed15b7 (patch)
tree407a49dbaf446af4751f5068607a7fb8dad0611d /testsuite/systemtap.base/probefunc.exp
parent6b6d04673a1ef175821afc7d4fabdb496698e8e3 (diff)
downloadsystemtap-steved-814bc89d4635f101b2c0077598f31aad95ed15b7.tar.gz
systemtap-steved-814bc89d4635f101b2c0077598f31aad95ed15b7.tar.xz
systemtap-steved-814bc89d4635f101b2c0077598f31aad95ed15b7.zip
2006-08-12 Frank Ch. Eigler <fche@elastic.org>
* configure.ac, Makefile.am: Descend into testsuite/ directory. Remove local test logic. * configure, Makefile.in: Regenerated. * runtest.sh: Not yet removed. * HACKING: Update for new testsuite layout. 2006-08-12 Frank Ch. Eigler <fche@elastic.org> * all: Reorganized old pass-1..4 tests one dejagnu bucket. Moved over old pass-5 tests, except for disabled syscalls tests. * Makefile (installcheck): New target for running pass-1..5 tests against installed systemtap.
Diffstat (limited to 'testsuite/systemtap.base/probefunc.exp')
-rw-r--r--testsuite/systemtap.base/probefunc.exp58
1 files changed, 58 insertions, 0 deletions
diff --git a/testsuite/systemtap.base/probefunc.exp b/testsuite/systemtap.base/probefunc.exp
new file mode 100644
index 00000000..10190fc9
--- /dev/null
+++ b/testsuite/systemtap.base/probefunc.exp
@@ -0,0 +1,58 @@
+# Test cases for probefunc() function
+
+load_lib "stap_run.exp"
+
+proc grep {fd re } {
+ while {[gets $fd s] >= 0} {
+ if [regexp $re $s] {
+ return $s
+ }
+ }
+}
+
+proc sleep_one_sec {} {
+ after 1000;
+ return 0;
+}
+
+set systemtap_script {
+ global funcname
+ probe %s {
+ funcname = probefunc()
+ }
+ probe begin {
+ log("systemtap starting probe")
+ }
+ probe end {
+ log("systemtap ending probe")
+ printf("%%s\n", funcname)
+ }
+}
+
+# open /proc/kallsyms to get address for scheduler_tick symbol
+set symf "/proc/kallsyms"
+set symfd [open $symf r]
+set re "\\mscheduler_tick\\M"
+set rs [grep $symfd $re]
+set flds [split $rs " "]
+set addr [lindex $flds 0]
+close $symfd
+
+set prefix "probefunc:"
+
+# test probefunc() with kernel.statement()
+set output_string "\\mscheduler_tick\\M"
+set probepoint "kernel.statement(0x$addr)"
+set script [format $systemtap_script $probepoint]
+stap_run $prefix$probepoint sleep_one_sec $output_string -e $script
+
+# test probefunc() with kernel.function()
+set probepoint "kernel.function(\"scheduler_tick\")"
+set script [format $systemtap_script $probepoint]
+stap_run $prefix$probepoint sleep_one_sec $output_string -e $script
+
+# test probefunc() with kernel.inline()
+set output_string "\\mcontext_switch\\M"
+set probepoint "kernel.inline(\"context_switch\")"
+set script [format $systemtap_script $probepoint]
+stap_run $prefix$probepoint sleep_one_sec $output_string -e $script