diff options
| author | hunt <hunt> | 2007-09-21 19:06:31 +0000 |
|---|---|---|
| committer | hunt <hunt> | 2007-09-21 19:06:31 +0000 |
| commit | 387e9f1c0f722108a2569cb0bd5e45b236b800a7 (patch) | |
| tree | 16015c69bf14662d776ec62d451abd1f8b46186b /testsuite/lib/stap_run2.exp | |
| parent | 02c58b37bf42cf32026e4326040c694e6fbcaad8 (diff) | |
| download | systemtap-steved-387e9f1c0f722108a2569cb0bd5e45b236b800a7.tar.gz systemtap-steved-387e9f1c0f722108a2569cb0bd5e45b236b800a7.tar.xz systemtap-steved-387e9f1c0f722108a2569cb0bd5e45b236b800a7.zip | |
2007-09-21 Martin Hunt <hunt@redhat.com>
* lib/stap_run2.exp (stap_run2): Use send_log()
instead of puts to save failure context in the log.
Diffstat (limited to 'testsuite/lib/stap_run2.exp')
| -rw-r--r-- | testsuite/lib/stap_run2.exp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/testsuite/lib/stap_run2.exp b/testsuite/lib/stap_run2.exp index 123736f1..9849aefb 100644 --- a/testsuite/lib/stap_run2.exp +++ b/testsuite/lib/stap_run2.exp @@ -22,9 +22,9 @@ proc stap_run2 { TEST_NAME args } { set expected [split $::result_string "\n"] foreach line [split $res "\n"] { if {![string equal $line [lindex $expected $n]]} { - puts "line [expr $n + 1]: expected \"[lindex $expected $n]\"" - puts "Got \"$line\"" fail "$TEST_NAME" + send_log "line [expr $n + 1]: expected \"[lindex $expected $n]\"\n" + send_log "Got \"$line\"\n" return } incr n |