diff options
| author | David Smith <dsmith@redhat.com> | 2008-11-12 12:29:36 -0600 |
|---|---|---|
| committer | David Smith <dsmith@redhat.com> | 2008-11-12 12:29:36 -0600 |
| commit | 4b9d5d765ac51edf11bb0254c1506f6ce52b705b (patch) | |
| tree | 7e0b5b67b4d1408da939f3bd2e32979b763eb3a4 /testsuite/systemtap.context/num_args.tcl | |
| parent | c6d8a0336977714bda6b6eda3e6ed4917ce34c87 (diff) | |
| download | systemtap-steved-4b9d5d765ac51edf11bb0254c1506f6ce52b705b.tar.gz systemtap-steved-4b9d5d765ac51edf11bb0254c1506f6ce52b705b.tar.xz systemtap-steved-4b9d5d765ac51edf11bb0254c1506f6ce52b705b.zip | |
Improved error handling of num_args.tcl testcase.
2008-11-12 David Smith <dsmith@redhat.com>
* systemtap.context/num_args.tcl: Improved error handling of
testcase.
Diffstat (limited to 'testsuite/systemtap.context/num_args.tcl')
| -rw-r--r-- | testsuite/systemtap.context/num_args.tcl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/testsuite/systemtap.context/num_args.tcl b/testsuite/systemtap.context/num_args.tcl index 48e83f4d..7d12b433 100644 --- a/testsuite/systemtap.context/num_args.tcl +++ b/testsuite/systemtap.context/num_args.tcl @@ -54,9 +54,12 @@ expect { timeout {fail "string function arguments -- $tag"} } } + -re "semantic error:" { + fail "function arguments -- $tag: compilation failed" + } eof {fail "function arguments -- $tag: unexpected timeout"} } exec kill -INT -[exp_pid] -close +catch close wait } |