diff options
| author | Frank Ch. Eigler <fche@elastic.org> | 2007-10-01 15:13:21 -0400 |
|---|---|---|
| committer | Frank Ch. Eigler <fche@elastic.org> | 2007-10-01 15:13:21 -0400 |
| commit | 98c93842a8e6470ca5b81c270b2114e17f889cd4 (patch) | |
| tree | 16f3bdb8bf5d5e0add015b8e2bc8b56e989ba1cf /testsuite/systemtap.syscall | |
| parent | c80c6eae0a46b2a177f0d9a5312f226004e8b5b8 (diff) | |
| parent | b71a5cbb7521034d43523096c890e5d9bd05e79c (diff) | |
| download | systemtap-steved-98c93842a8e6470ca5b81c270b2114e17f889cd4.tar.gz systemtap-steved-98c93842a8e6470ca5b81c270b2114e17f889cd4.tar.xz systemtap-steved-98c93842a8e6470ca5b81c270b2114e17f889cd4.zip | |
Merge branch 'master' of git://sources.redhat.com/git/systemtap
Diffstat (limited to 'testsuite/systemtap.syscall')
| -rw-r--r-- | testsuite/systemtap.syscall/ChangeLog | 5 | ||||
| -rwxr-xr-x | testsuite/systemtap.syscall/test.tcl | 14 |
2 files changed, 12 insertions, 7 deletions
diff --git a/testsuite/systemtap.syscall/ChangeLog b/testsuite/systemtap.syscall/ChangeLog index c8953b80..9811a707 100644 --- a/testsuite/systemtap.syscall/ChangeLog +++ b/testsuite/systemtap.syscall/ChangeLog @@ -1,3 +1,8 @@ +2007-10-01 Martin Hunt <hunt@redhat.com> + + * test.tcl (run_one_test): Append newlines when + using send_log(). + 2007-09-25 Martin Hunt <hunt@redhat.com> * test.tcl (run_one_test): Fix unsupported results. diff --git a/testsuite/systemtap.syscall/test.tcl b/testsuite/systemtap.syscall/test.tcl index 5d1db2a3..fe16358d 100755 --- a/testsuite/systemtap.syscall/test.tcl +++ b/testsuite/systemtap.syscall/test.tcl @@ -89,27 +89,27 @@ proc run_one_test {filename flags} { } else { set result "FAIL $testname" send_log "$testname FAILED. output of \"$cmd\" was:" - send_log "------------------------------------------" + send_log "\n------------------------------------------\n" send_log $output - send_log "------------------------------------------" - send_log "RESULTS: (\'*\' = MATCHED EXPECTED)" + send_log "\n------------------------------------------\n" + send_log "RESULTS: (\'*\' = MATCHED EXPECTED)\n" set i 0 foreach line [split $output "\n"] { if {[regexp "${testname}: " $line]} { if {[regexp $results($i) $line]} { - send_log "*$line" + send_log "*$line\n" incr i if {$i >= $ind} {break} } else { - send_log "$line" + send_log "$line\n" } } } if {$i < $ind} { - send_log "--------- EXPECTED and NOT MATCHED ----------" + send_log "--------- EXPECTED and NOT MATCHED ----------\n" } for {} {$i < $ind} {incr i} { - send_log "$results($i)" + send_log "$results($i)\n" } } cleanup |