From 387e9f1c0f722108a2569cb0bd5e45b236b800a7 Mon Sep 17 00:00:00 2001 From: hunt Date: Fri, 21 Sep 2007 19:06:31 +0000 Subject: [PATCH] 2007-09-21 Martin Hunt * lib/stap_run2.exp (stap_run2): Use send_log() instead of puts to save failure context in the log. --- testsuite/ChangeLog | 5 +++++ testsuite/lib/stap_run2.exp | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/testsuite/ChangeLog b/testsuite/ChangeLog index ec9c74aa2..ea41e1113 100644 --- a/testsuite/ChangeLog +++ b/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-09-21 Martin Hunt + + * lib/stap_run2.exp (stap_run2): Use send_log() + instead of puts to save failure context in the log. + 2007-09-21 Frank Ch. Eigler * systemtap.base/optim.exp/stp: New test for rhbz# 300121. diff --git a/testsuite/lib/stap_run2.exp b/testsuite/lib/stap_run2.exp index 123736f1a..9849aefb0 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 -- 2.43.5