diff options
| author | Petr Machata <pmachata@redhat.com> | 2012-10-27 19:34:03 +0200 |
|---|---|---|
| committer | Petr Machata <pmachata@redhat.com> | 2012-10-27 19:34:03 +0200 |
| commit | 201e33746e5f671bce3ddf732390010cf71d034b (patch) | |
| tree | 64eb8b9065a485bdc98666150beb29e8e537aff1 /testsuite | |
| parent | 1e339e00198972a75892d5073d47f090db5d77a2 (diff) | |
| download | ltrace-201e33746e5f671bce3ddf732390010cf71d034b.tar.gz | |
Show failed command in ltraceRun and ltrace_runtest
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/lib/ltrace.exp | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/testsuite/lib/ltrace.exp b/testsuite/lib/ltrace.exp index 34d61d7..6d71732 100644 --- a/testsuite/lib/ltrace.exp +++ b/testsuite/lib/ltrace.exp @@ -435,8 +435,9 @@ proc ltraceRun {args} { set command "exec env LD_LIBRARY_PATH=$LdPath $LTRACE -o $logfile $args" verbose $command - if { [catch {eval $command}] } { + if {[catch {eval $command}] } { fail "test case execution failed" + send_error -- $command send_error -- $::errorInfo } @@ -627,10 +628,12 @@ proc ltrace_runtest { args } { lappend LTRACE_OPTIONS "-o" lappend LTRACE_OPTIONS "$file" verbose "LTRACE_OPTIONS = $LTRACE_OPTIONS" + set command "exec sh -c {export LD_LIBRARY_PATH=$LD_LIBRARY_PATH_; \ + $LTRACE $LTRACE_OPTIONS $BIN $LTRACE_ARGS;exit}" #ltrace the PUT. - if { [catch "exec sh -c {export LD_LIBRARY_PATH=$LD_LIBRARY_PATH_; \ - $LTRACE $LTRACE_OPTIONS $BIN $LTRACE_ARGS;exit}" output] } { + if {[catch $command output]} { fail "test case execution failed" + send_error -- $command send_error -- $::errorInfo } |