diff options
author | David Smith <dsmith@redhat.com> | 2010-04-06 13:17:15 -0500 |
---|---|---|
committer | David Smith <dsmith@redhat.com> | 2010-04-06 13:17:15 -0500 |
commit | 602eddb22e42fd0ae51549240f54a247d13afe17 (patch) | |
tree | 28470660f76d1df1b62ce82e7063e056ba95ed5a /testsuite/systemtap.base | |
parent | dd3d6ed1d4187da281fac6c344ebe765274325bc (diff) | |
download | systemtap-steved-602eddb22e42fd0ae51549240f54a247d13afe17.tar.gz systemtap-steved-602eddb22e42fd0ae51549240f54a247d13afe17.tar.xz systemtap-steved-602eddb22e42fd0ae51549240f54a247d13afe17.zip |
Added atomic_read() embedded-C function and tests.
* tapset/atomic.stp: Added atomic_read().
* testsuite/buildok/atomic.stp: Added atomic_read() compile test.
* testsuite/systemtap.base/atomic.exp: Added atomic_read() tests.
* testsuite/lib/stap_run_error.exp (stap_run_error): Logs stap command and
tries to ensure inferior process is killed.
Diffstat (limited to 'testsuite/systemtap.base')
-rw-r--r-- | testsuite/systemtap.base/atomic.exp | 86 |
1 files changed, 74 insertions, 12 deletions
diff --git a/testsuite/systemtap.base/atomic.exp b/testsuite/systemtap.base/atomic.exp index ef1647e0..5de2b9d4 100644 --- a/testsuite/systemtap.base/atomic.exp +++ b/testsuite/systemtap.base/atomic.exp @@ -2,6 +2,10 @@ set test "atomic" if {![installtest_p]} {untested $test; return} +# +# First test atomic_long_read() +# + set script_template { probe begin { print("systemtap starting probe\n") @@ -10,32 +14,32 @@ set script_template { probe end { print("systemtap ending probe\n") - printf("%%d\n", atomic_long_read(%s)) + printf("%%d\n", %s_read(%s)) } } # First try reading from address 0, which should fail. set test "atomic1" set error {kernel read fault at 0x[^\r]+} -set script [format $script_template "0"] -stap_run_error $test 1 $error "" -e $script +set script [format $script_template "atomic_long" "0"] +stap_run_error $test 1 $error "0\r\n" -e $script # Try reading from address -1 (top of memory), which should fail. set test "atomic2" -set script [format $script_template "-1"] -stap_run_error $test 1 $error "" -e $script +set script [format $script_template "atomic_long" "-1"] +stap_run_error $test 1 $error "0\r\n" -e $script # Try reading from address 3, which should fail (if nothing else # because it isn't aligned properly). set test "atomic3" -set script [format $script_template "3"] -stap_run_error $test 1 $error "" -e $script +set script [format $script_template "atomic_long" "3"] +stap_run_error $test 1 $error "0\r\n" -e $script # Since we want to fail semi-gracefully (no compile errors), if we # don't have atomic_long_t support on this kernel (no # ATOMIC_LONG_INIT) the testcase will compile, but fail. -set script_module_template { +set atomic_long_script_module_template { %%{ #include <asm/atomic.h> #ifdef ATOMIC_LONG_INIT @@ -53,7 +57,7 @@ set script_module_template { #endif %%} - function get_atomic_addr:long() + function get_atomic_long_addr:long() %%{ THIS->__retvalue = (long)&stp_atomic_struct.a; %%} @@ -65,17 +69,75 @@ set script_module_template { probe end { print("systemtap ending probe\n") - printf("%%d\n", atomic_long_read(get_atomic_addr() + %s)) + printf("%%d\n", atomic_long_read(get_atomic_long_addr() + %s)) } } set test "atomic4" -set script [format $script_module_template "0"] +set script [format $atomic_long_script_module_template "0"] stap_run_error $test 0 $error "5\r\n" -ge $script # We should be able to check for trying to read the atomic_long_t with # bad alignment here, but it succeeds on {x86, x86_64} and fails on # ia64. Since it doesn't fail consistently, we'll comment this out. #set test "atomic5" -#set script [format $script_module_template "3"] +#set script [format $atomic_long_script_module_template "3"] +#stap_run_error $test 1 $error "" -ge $script + +# +# Now test atomic_read() +# + +# First try reading from address 0, which should fail. +set test "atomic5" +set error {kernel read fault at 0x[^\r]+} +set script [format $script_template "atomic" "0"] +stap_run_error $test 1 $error "0\r\n" -e $script + +# Try reading from address -1 (top of memory), which should fail. +set test "atomic6" +set script [format $script_template "atomic" "-1"] +stap_run_error $test 1 $error "0\r\n" -e $script + +# Try reading from address 3, which should fail (if nothing else +# because it isn't aligned properly). +set test "atomic7" +set script [format $script_template "atomic" "3"] +stap_run_error $test 1 $error "0\r\n" -e $script + +set atomic_script_module_template { + %%{ + #include <asm/atomic.h> + struct { + ulong barrier1; + atomic_t a; + ulong barrier2; + } stp_atomic_struct = { ULONG_MAX, ATOMIC_INIT(5), ULONG_MAX }; + %%} + + function get_atomic_addr:long() + %%{ + THIS->__retvalue = (long)&stp_atomic_struct.a; + %%} + + probe begin { + print("systemtap starting probe\n") + exit() + } + + probe end { + print("systemtap ending probe\n") + printf("%%d\n", atomic_read(get_atomic_addr() + %s)) + } +} + +set test "atomic8" +set script [format $atomic_script_module_template "0"] +stap_run_error $test 0 $error "5\r\n" -ge $script + +# We should be able to check for trying to read the atomic_t with +# bad alignment here, but it succeeds on {x86, x86_64} and fails on +# ia64. Since it doesn't fail consistently, we'll comment this out. +#set test "atomic9" +#set script [format $atomic_script_module_template "3"] #stap_run_error $test 1 $error "" -ge $script |