2007-09-25 Martin Hunt <hunt@redhat.com>

	* test.tcl (run_one_test): Fix unsupported results.
	Send failure diffs to log.

1 files changed, 11 insertions, 11 deletions

diff --git a/testsuite/systemtap.syscall/test.tcl b/testsuite/systemtap.syscall/test.tcl
index 24a9642f..d323d411 100755
--- a/testsuite/systemtap.syscall/test.tcl
+++ b/testsuite/systemtap.syscall/test.tcl
@@ -66,9 +66,9 @@ proc run_one_test {filename flags} {
     }
 
     if {$ind == 0} {
-	puts "UNSUPP"
+	/* unsupported */
 	cleanup
-	return
+	return $result
     }
 
     set current_dir [pwd]
@@ -88,28 +88,28 @@ proc run_one_test {filename flags} {
 	puts "PASS $testname"
     } else {
 	set result "FAIL $testname"
-	puts "$testname FAILED. output of \"$cmd\" was:"
-	puts "------------------------------------------"
-	puts $output
-	puts "------------------------------------------"
-	puts "RESULTS: (\'*\' = MATCHED EXPECTED)"
+	send_log "$testname FAILED. output of \"$cmd\" was:"
+	send_log "------------------------------------------"
+	send_log $output
+	send_log "------------------------------------------"
+	send_log "RESULTS: (\'*\' = MATCHED EXPECTED)"
 	set i 0
 	foreach line [split $output "\n"] {
 	    if {[regexp "${testname}: " $line]} {
 		if {[regexp $results($i) $line]} {
-		    puts "*$line"
+		    send_log "*$line"
 		    incr i
 		    if {$i >= $ind} {break}
 		} else {
-		    puts "$line"
+		    send_log "$line"
 		}
 	    }
 	}
 	if {$i < $ind} {
-	    puts "--------- EXPECTED and NOT MATCHED ----------"
+	    send_log "--------- EXPECTED and NOT MATCHED ----------"
 	}
 	for {} {$i < $ind} {incr i} {
-	    puts "$results($i)"
+	    send_log "$results($i)"
 	}
     }
     cleanup