Merge branch 'master' of ssh://sources.redhat.com/git/systemtap

* 'master' of ssh://sources.redhat.com/git/systemtap: (34 commits)
  Update the langref copyright notice
  Fix some probe examples in the language reference
  Remove automatic authorization of servers started by root as trusted signers.
  docs: add abnormal termination section to PROCESSING
  Remove unneeded header file
  Get the module to sign from -p4's stdout
  Move --unprivileged support news to the top.
  Firther updates to NEWS regarding signing and unprivileged users.
  Authorize new certificates created for servers started by root as authorized signers.
  2009-09-14  Dave Brolley  <brolley@redhat.com>
  Allow remaining process.* probes for unprivileged users.
  Use the sched_switch tracepoint if available.
  PR10608: mark test cases untested once compilation failed
  Make check.exp not sleep so much in test_installcheck.
  Make tracepoints.exp test more efficient by running as one giant script.
  Only test highest optimization for exelib.exp test.
  Replace small exelib.exp testcases with one jumbo testcase.
  Remove duplicate uprobe_derived_probe code
  Add semaphores for use with the forthcoming sdt marker checks.
  Add actual pc address to semantic error about inaccessible variables.
  ...

Conflicts:
	tapsets.cxx

1 files changed, 13 insertions, 8 deletions

diff --git a/testsuite/systemtap.syscall/test.tcl b/testsuite/systemtap.syscall/test.tcl
index 8a5801af..b9d3c0d9 100755
--- a/testsuite/systemtap.syscall/test.tcl
+++ b/testsuite/systemtap.syscall/test.tcl
@@ -26,19 +26,23 @@ proc bgerror {error} {
 }
 trap {cleanup_and_exit} SIGINT
 
-proc run_one_test {filename flags} {
+proc run_one_test {filename flags bits} {
     global dir current_dir
 
     set testname [file tail [string range $filename 0 end-2]]
-    set result "UNSUPP"
 
     if {[catch {exec mktemp -d [pwd]/staptestXXXXXX} dir]} {
 	puts stderr "Failed to create temporary directory: $dir"
 	cleanup
     }
 
-    target_compile $filename $dir/$testname executable $flags
-    
+    set res [target_compile $filename $dir/$testname executable $flags]
+    if { $res != "" } {
+      send_log "$bits-bit $testname : no corresponding devel environment found\n"
+      untested "$bits-bit $testname"
+      return
+    }
+
     set sys_prog "[file dirname [file normalize $filename]]/sys.stp"
     set cmd "stap --skip-badvars -c $dir/${testname} ${sys_prog}"
     
@@ -74,7 +78,8 @@ proc run_one_test {filename flags} {
     if {$ind == 0} {
 	# unsupported
 	cleanup
-	return $result
+	unsupported "$bits-bit $testname not supported on this arch"
+	return
     }
 
     set current_dir [pwd]
@@ -91,10 +96,9 @@ proc run_one_test {filename flags} {
 	}
     }
     if {$i >= $ind} {
-	set result "PASS"
 	# puts "PASS $testname"
+	pass "$bits-bit $testname"
     } else {
-	set result "FAIL $testname"
 	send_log "$testname FAILED. output of \"$cmd\" was:"
 	send_log "\n------------------------------------------\n"
 	send_log $output
@@ -118,7 +122,8 @@ proc run_one_test {filename flags} {
 	for {} {$i < $ind} {incr i} {
 	    send_log "$results($i)\n"
 	}
+	fail "$bits-bit $testname"
     }
     cleanup
-    return $result
+    return
 }