]> git.vpit.fr Git - perl/modules/Sub-Op.git/blobdiff - t/11-existing.t
We should fail two times for each test sub not invoked
[perl/modules/Sub-Op.git] / t / 11-existing.t
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;
   }
  }
 }