summaryrefslogtreecommitdiffstats
path: root/testsuite/systemtap.apps/tcl.exp
diff options
context:
space:
mode:
authorStan Cox <scox@redhat.com>2010-01-10 21:43:17 -0500
committerStan Cox <scox@redhat.com>2010-01-10 21:43:17 -0500
commitc116c31bfdaec3c9d5adbe892d8a1d145b6fcfc2 (patch)
tree287df109d91ec436d0ab2ef771446cd75d1e4c38 /testsuite/systemtap.apps/tcl.exp
parent392e08b73a6febb831fa73454466e8aba4237a6d (diff)
downloadsystemtap-steved-c116c31bfdaec3c9d5adbe892d8a1d145b6fcfc2.tar.gz
systemtap-steved-c116c31bfdaec3c9d5adbe892d8a1d145b6fcfc2.tar.xz
systemtap-steved-c116c31bfdaec3c9d5adbe892d8a1d145b6fcfc2.zip
Pull set of semaphore into its own function.
* tapsets.cxx (uprobe_derived_probe_group::emit_module_decls): Move sdt_sem_address from standalone to stap_uprobes. Remove sdt_sem_tid. In emitted function stap_uprobe_change_plus distinguish VM_EXEC/VM_WRITE cases, use sdt_sem_address member, move setting of semaphores to new emitted function stap_uprobe_change_semaphore_plus. (stap_uprobe_process_found): Call stap_uprobe_change_semaphore_plus. (stap_uprobe_mmap_found): Likewise. * stap-postgres.stp (postgresrelease): New. Sync to current upstream version. * stap-tcl.sh: Check if wget failed. * stap-tcl.stp: Check for skipped probes. * xulrunner.exp: Check if wget failed.
Diffstat (limited to 'testsuite/systemtap.apps/tcl.exp')
-rw-r--r--testsuite/systemtap.apps/tcl.exp5
1 files changed, 4 insertions, 1 deletions
diff --git a/testsuite/systemtap.apps/tcl.exp b/testsuite/systemtap.apps/tcl.exp
index c95fa5e0..4c4a4342 100644
--- a/testsuite/systemtap.apps/tcl.exp
+++ b/testsuite/systemtap.apps/tcl.exp
@@ -54,6 +54,7 @@ expect {
-timeout 1000
-re {^OK [^\r\n]*[\r\n]} { incr ok; exp_continue }
-re {^KO [^\r\n]*[\r\n]} { incr ko; exp_continue }
+ -re {^ERROR: Skipped[^\r\n]*[\r\n]} { incr xok; exp_continue }
-re {^ERROR[^\r\n]*[\r\n]} { incr ko; exp_continue }
-re {^[^\r\n]*[\r\n]} { incr lines; exp_continue }
timeout { fail "$test (timeout)" }
@@ -66,4 +67,6 @@ if {$ok == 14 && $ko == 0} {
} else {
fail "$test ($ok $ko $lines)"
}
-
+if {$xok == 1} {
+ xfail "$test (skipped probes)"
+}