We should fail two times for each test sub not invoked

[perl/modules/Sub-Op.git] / t / 11-existing.t

diff --git a/t/11-existing.t b/t/11-existing.t
index 0339bc850b391436f5fe1d7beb6bf97071f58562..c45a71b464ca7e9dabd24ff59271964f4bb48094 100644 (file)
--- a/t/11-existing.t
+++ b/t/11-existing.t
@@ -18,6 +18,9 @@ our $called;
 {
  local $/ = "####\n";
  while (<DATA>) {
+  chomp;
+  s/\s*$//;
+
   my ($code, $params)           = split /----\s*/, $_;
   my ($names, $ret, $exp, $seq) = split /\s*#\s*/, $params;
 
@@ -64,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;
   }
  }
 }