diff options
| author | Wenji Huang <wenji.huang@oracle.com> | 2009-09-14 10:05:08 +0800 |
|---|---|---|
| committer | Wenji Huang <wenji.huang@oracle.com> | 2009-09-14 10:05:08 +0800 |
| commit | 38070723b06baf781ef18e2516e33e6bdbe18d8f (patch) | |
| tree | 53b7a3cf4c657d748dd224deb251bf7665460c33 /testsuite/systemtap.syscall/syscall.exp | |
| parent | 22ce80766c4f31a218da1694569523eb68737faf (diff) | |
| download | systemtap-steved-38070723b06baf781ef18e2516e33e6bdbe18d8f.tar.gz systemtap-steved-38070723b06baf781ef18e2516e33e6bdbe18d8f.tar.xz systemtap-steved-38070723b06baf781ef18e2516e33e6bdbe18d8f.zip | |
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.
Diffstat (limited to 'testsuite/systemtap.syscall/syscall.exp')
| -rw-r--r-- | testsuite/systemtap.syscall/syscall.exp | 24 |
1 files changed, 4 insertions, 20 deletions
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 } } } |