From: Vincent Pit <vince@profvince.com>
Date: Mon, 4 Jan 2010 13:29:07 +0000 (+0100)
Subject: We should fail two times for each test sub not invoked
X-Git-Tag: v0.02~7
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=ed2a5a35c26bfa677e6d2bc5586068b9a28735dc;p=perl%2Fmodules%2FSub-Op.git

We should fail two times for each test sub not invoked
---

diff --git a/t/10-base.t b/t/10-base.t
index b5ce731..2acce9a 100644
--- a/t/10-base.t
+++ b/t/10-base.t
@@ -71,7 +71,7 @@ our $called;
 
   is $called, $calls, "@names: the hook was called the right number of times";
   if ($called < $calls) {
-   fail for $called + 1 .. $calls;
+   fail, fail for $called + 1 .. $calls;
   }
  }
 }
diff --git a/t/11-existing.t b/t/11-existing.t
index ecc673e..c45a71b 100644
--- a/t/11-existing.t
+++ b/t/11-existing.t
@@ -67,7 +67,7 @@ our $called;
 
   is $called, $calls, "@names: the hook was called the right number of times";
   if ($called < $calls) {
-   fail for $called + 1 .. $calls;
+   fail, fail for $called + 1 .. $calls;
   }
  }
 }