testsuite/systemtap.bpf :: tests should return, not exit 0

diff --git a/testsuite/systemtap.bpf/bpf-asm.exp b/testsuite/systemtap.bpf/bpf-asm.exp
index 13b89767a1d2569d2802f9ecf1d277a5d486cf63..bddf9e9dc7a451922eb4397d84cc202b6c401b74 100644 (file)
--- a/testsuite/systemtap.bpf/bpf-asm.exp
+++ b/testsuite/systemtap.bpf/bpf-asm.exp
@@ -7,7 +7,7 @@ set testdir "$srcdir/$subdir/asm_tests"
 # This testcase stalls on s390x, skip it there
 if { "$::tcl_platform(machine)" == "s390x" } {
    untested "bpf-asm.exp"
-   exit 0
+   return
 }
 
 proc stapbpf_run { TEST_NAME args } {

diff --git a/testsuite/systemtap.bpf/bpf.exp b/testsuite/systemtap.bpf/bpf.exp
index f6c2216333318aef578531e98f6e4bbc8ae90edc..9773bac095e02c2f272bc17e7d46139617c3f355 100644 (file)
--- a/testsuite/systemtap.bpf/bpf.exp
+++ b/testsuite/systemtap.bpf/bpf.exp
@@ -10,13 +10,13 @@ set testdir "$srcdir/$subdir/bpf_tests"
 # Skip irrelevant environment.
 if {![bpf_p]} {
     untested "bpf.exp"
-    exit 0
+    return
 }
 
 # This testcase takes long time on s390x and fails after that.  Skip it.
 if { "$::tcl_platform(machine)" == "s390x" } {
    untested "bpf.exp"
-   exit 0
+   return
 }
 
 # All tests should start by printing "BEGIN". If OUTPUT_STR is "", then