diff options
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 } } } |