diff options
Diffstat (limited to 'testsuite/systemtap.base/backtrace.exp')
| -rw-r--r-- | testsuite/systemtap.base/backtrace.exp | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/testsuite/systemtap.base/backtrace.exp b/testsuite/systemtap.base/backtrace.exp new file mode 100644 index 00000000..721d3214 --- /dev/null +++ b/testsuite/systemtap.base/backtrace.exp @@ -0,0 +1,32 @@ +set test "backtrace" + +if {![installtest_p]} { untested $test; return } + +set ok 0 +set ok2 0 +spawn stap $srcdir/$subdir/backtrace.stp +expect { + -timeout 30 + -re {^[^\r\n ]*\r\n} { incr ok; exp_continue } + -re {^ [^\r\n]*\r\n} { incr ok2; exp_continue } + eof { } + timeout { fail "$test (timeout)" } +} +catch { close }; wait +if {$ok == 3 && $ok2 >= $ok} then { pass "$test ($ok $ok2)" } else { fail "$test ($ok $ok2)" } + + +set test "backtrace-unwindsyms" + +set ok 0 +set ok2 0 +spawn stap $srcdir/$subdir/backtrace.stp -d kernel +expect { + -timeout 30 + -re {^[^\r\n ]*\r\n} { incr ok; exp_continue } + -re {^ [^\r\n]*\r\n} { incr ok2; exp_continue } + eof { } + timeout { fail "$test (timeout)" } +} +catch { close }; wait +if {$ok == 3 && $ok2 >= $ok} then { pass "$test ($ok $ok2)" } else { fail "$test ($ok $ok2)" } |