From 38070723b06baf781ef18e2516e33e6bdbe18d8f Mon Sep 17 00:00:00 2001
From: Wenji Huang <wenji.huang@oracle.com>
Date: Mon, 14 Sep 2009 10:05:08 +0800
Subject: PR10608: mark test cases untested once compilation failed

* testsuite/systemtap.syscall/syscall.exp: Simplify logic things.
* testsuite/systemtap.syscall/test.tcl: Check compilation result.
* testsuite/systemtap.base/utrace_syscall_args.exp: Change fail to
  untested.
---
 testsuite/systemtap.syscall/syscall.exp | 24 ++++--------------------
 1 file changed, 4 insertions(+), 20 deletions(-)

(limited to 'testsuite/systemtap.syscall/syscall.exp')

diff --git a/testsuite/systemtap.syscall/syscall.exp b/testsuite/systemtap.syscall/syscall.exp
index 22e9dc07..a4978997 100644
--- a/testsuite/systemtap.syscall/syscall.exp
+++ b/testsuite/systemtap.syscall/syscall.exp
@@ -32,17 +32,9 @@ proc test_procedure {} {
     if {$do_64_bit_pass} {
 	foreach filename [lsort [glob $pattern]] {
 	    set testname [file tail [string range $filename 0 end-2]]
-	    if {![installtest_p]} { untested $testname; continue }
+	    if {![installtest_p]} { untested "64-bit $testname"; continue }
 	    send_log "Testing 64-bit ${testname}\n"
-	    set res [run_one_test $filename $flags]
-	    if {$res == "PASS"} {
-		pass "$testname"
-	    } elseif {$res == "UNSUPP"} {
-		unsupported "$testname not supported on this arch"
-	    } else {
-		fail "64-bit $testname"
-		send_log "$res\n"
-	    }
+	    run_one_test $filename $flags 64
 	}
     }
 
@@ -56,17 +48,9 @@ proc test_procedure {} {
     if {$do_32_bit_pass} {
 	foreach filename [lsort [glob $pattern]] {
 	    set testname [file tail [string range $filename 0 end-2]]
-	    if {![installtest_p]} { untested $testname; continue }
+	    if {![installtest_p]} { untested "32-bit $testname"; continue }
 	    send_log "Testing 32-bit ${testname}\n"
-	    set res [run_one_test $filename $flags]
-	    if {$res == "PASS"} {
-		pass "32-bit $testname"
-	    } elseif {$res == "UNSUPP"} {
-		unsupported "$testname not supported on this arch"
-	    } else {
-		fail "32-bit $testname"
-		send_log "$res\n"
-	    }
+	    run_one_test $filename $flags 32
 	}
     }
 }
-- 
cgit