From: Vincent Pit <vince@profvince.com>
Date: Mon, 11 Aug 2008 19:16:26 +0000 (+0200)
Subject: Actually exit when the child didn't succeed
X-Git-Tag: v0.03~3
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=ea6d668ecc82cbd3be1f1beb8cc5e9599f3fae10;p=perl%2Fmodules%2Findirect.git

Actually exit when the child didn't succeed
---

diff --git a/t/10-good-no.t b/t/10-good-no.t
index 71d5668..523fc4b 100644
--- 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 8cf224a..828b933 100644
--- 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 a5dfd2a..f7acd5d 100644
--- 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 5993d24..dc2ca5a 100644
--- 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 0174870..b9c7154 100644
--- 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;