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.

diff --git a/testsuite/ChangeLog b/testsuite/ChangeLog
index ec9c74aa274b5c7f6c34946298431ffc96d4057a..ea41e1113188b153aed87ec59dfb62095d172235 100644 (file)
--- a/testsuite/ChangeLog
+++ b/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+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.
+
 2007-09-21  Frank Ch. Eigler  <fche@elastic.org>
 
        * 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 123736f1a25a15e5f89470a4882068ef649ea777..9849aefb09edebf408372a54bd8d7e610f285b22 100644 (file)
--- 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