diff options
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/ChangeLog | 2 | ||||
| -rw-r--r-- | testsuite/systemtap.base/utrace_p4.exp | 9 |
2 files changed, 11 insertions, 0 deletions
diff --git a/testsuite/ChangeLog b/testsuite/ChangeLog index 86fd83c7..a2382148 100644 --- a/testsuite/ChangeLog +++ b/testsuite/ChangeLog @@ -1,5 +1,7 @@ 2008-04-18 David Smith <dsmith@redhat.com> + * systemtap.base/utrace_p4.exp: Added exec probe test. + * buildok/utrace01.stp: Removed. * buildok/utrace02.stp: Ditto. * buildok/utrace03.stp: Ditto. diff --git a/testsuite/systemtap.base/utrace_p4.exp b/testsuite/systemtap.base/utrace_p4.exp index 35a3ba15..eb6ea685 100644 --- a/testsuite/systemtap.base/utrace_p4.exp +++ b/testsuite/systemtap.base/utrace_p4.exp @@ -53,6 +53,7 @@ set clone_script {"probe process(\"/bin/ls\").clone { print(\"ls clone\") }"} set death_script {"probe process(\"/bin/ls\").death { print(\"ls death\") }"} set syscall_script {"probe process(\"/bin/ls\").syscall { printf(\"|%d\", \$syscall) }"} set syscall_return_script {"probe process(\"/bin/ls\").syscall.return { printf(\"|%d\", \$syscall) }"} +set exec_script {"probe process(\"/bin/ls\").exec { print(\"ls exec\") }"} # Try to find utrace_attach symbol in /proc/kallsyms set path "/proc/kallsyms" @@ -95,3 +96,11 @@ if {$utrace_support_found == 0} { # Try compiling a syscall return script stap_compile $TEST_NAME 1 $syscall_return_script } + +set TEST_NAME "UTRACE_P4_05" +if {$utrace_support_found == 0} { + untested "$TEST_NAME : no kernel utrace support found" +} else { + # Try compiling an exec script + stap_compile $TEST_NAME 1 $exec_script +} |