Actually exit when the child didn't succeed

diff --git a/t/10-good-no.t b/t/10-good-no.t
index 71d5668ba4f3a95ceff5564e1843d40be29da251..523fc4ba97e10698a55fa51e458abdaaad47ec90 100644 (file)
--- a/t/10-good-no.t
+++ b/t/10-good-no.t
@@ -26,6 +26,7 @@ unless ($success) {
  diag $stderr;
  diag "Failed to execute data file (error $err_code)";
  fail "Couldn't run test $_" for 1 .. $total + 1;
+ exit $total + 1;
 }
 
 my %fail;

diff --git a/t/11-good-use.t b/t/11-good-use.t
index 8cf224adefb128beca92911f5346ecfd1982030b..828b93362a7b732bf2451c8dfaaca487cba74aea 100644 (file)
--- a/t/11-good-use.t
+++ b/t/11-good-use.t
@@ -26,6 +26,7 @@ unless ($success) {
  diag $stderr;
  diag "Failed to execute data file (error $err_code)";
  fail "Couldn't run test $_" for 1 .. $total + 1;
+ exit $total + 1;
 }
 
 my %fail;

diff --git a/t/20-bad-no.t b/t/20-bad-no.t
index a5dfd2a20d8fe1493dacadc3b93eb923f0a668fe..f7acd5de45acfccf3b0883280b4ba4591e3bf1b7 100644 (file)
--- a/t/20-bad-no.t
+++ b/t/20-bad-no.t
@@ -26,6 +26,7 @@ unless ($success) {
  diag $stderr;
  diag "Failed to execute data file (error $err_code)";
  fail "Couldn't run test $_" for 1 .. $total + 1;
+ exit $total + 1;
 }
 
 my %fail = map { $_ => 1 } 1 .. $total;

diff --git a/t/21-bad-use.t b/t/21-bad-use.t
index 5993d246d55e1cd214f009e2742d1229eb56c042..dc2ca5af92c1e00a3f840b1587400ca879b429b3 100644 (file)
--- a/t/21-bad-use.t
+++ b/t/21-bad-use.t
@@ -26,6 +26,7 @@ unless ($success) {
  diag $stderr;
  diag "Failed to execute data file (error $err_code)";
  fail "Couldn't run test $_" for 1 .. $total + 1;
+ exit $total + 1;
 }
 
 my %fail;

diff --git a/t/30-scope.t b/t/30-scope.t
index 0174870ddbdf712bedf5669bf0af6ba36c4ed562..b9c71545dd1ede3a5627eea26f4c74a3a01ca944 100644 (file)
--- a/t/30-scope.t
+++ b/t/30-scope.t
@@ -25,6 +25,7 @@ unless ($success) {
  diag $stderr;
  diag "Failed to execute data file (error $err_code)";
  fail "Couldn't run test $_" for 1 .. $total + 1;
+ exit $total + 1;
 }
 
 my %fail = map { $_ => 1 } 2, 3, 5, 7;