]> git.vpit.fr Git - perl/modules/Sub-Op.git/commitdiff
We should fail two times for each test sub not invoked
authorVincent Pit <vince@profvince.com>
Mon, 4 Jan 2010 13:29:07 +0000 (14:29 +0100)
committerVincent Pit <vince@profvince.com>
Mon, 4 Jan 2010 13:29:07 +0000 (14:29 +0100)
t/10-base.t
t/11-existing.t

index b5ce7317d85c165fdbc37b0240fd4b8e8f6f439b..2acce9a8a4fca9a02ff2972eeb7aee78db8c12fb 100644 (file)
@@ -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;
   }
  }
 }
index ecc673ef7738745f6d94bff143f8d2410f4f9ac2..c45a71b464ca7e9dabd24ff59271964f4bb48094 100644 (file)
@@ -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;
   }
  }
 }