diff options
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | testsuite/systemtap.base/skipped.exp | 21 |
2 files changed, 26 insertions, 0 deletions
diff --git a/testsuite/ChangeLog b/testsuite/ChangeLog index 96095b26..24f0cbdd 100644 --- a/testsuite/ChangeLog +++ b/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2008-11-21 Frank Ch. Eigler <fche@elastic.org> + + PR5689. + * systemtap.base/skipped.exp: New test. + 2008-11-19 Jim Keniston <jkenisto@us.ibm.com> * systemtap.context/num_args.stp: Added s390x case. diff --git a/testsuite/systemtap.base/skipped.exp b/testsuite/systemtap.base/skipped.exp new file mode 100644 index 00000000..8c491037 --- /dev/null +++ b/testsuite/systemtap.base/skipped.exp @@ -0,0 +1,21 @@ +set test "skip tracking" + +if {! [installtest_p]} { untested $test; return } + +set cpus [exec sh -c "grep ^processor /proc/cpuinfo | wc -l"] +if {$cpus < 2} { unsupported $test; return } + +set ok 0 +spawn stap -e "probe timer.s(5) {exit()} probe timer.profile,syscall.* {f++} global f" -DMAXTRYLOCK=0 -tu +expect { + -timeout 30 + -re {^WARNING: Number of errors: 0, skipped probes: [0-9]+\r\n} { incr ok; exp_continue } + -re {^WARNING: Skipped due to global .f. lock timeout: [0-9]+\r\n} { incr ok; exp_continue } + -re {^probe timer.profile[^\r\n]+, hits: [0-9]+[^\r\n]+\r\n} { incr ok; exp_continue } + eof { } + timeout { fail "$test (timeout)" } +} +catch {close} +catch {wait} + +if {$ok >= 3} { pass "$test ($cpus $ok)" } else { fail "$test ($cpus $ok)" } |