Fix numbers
authorGreg Sabino Mullane <[email protected]>
Sun, 3 May 2009 17:59:49 +0000 (13:59 -0400)
committerGreg Sabino Mullane <[email protected]>
Sun, 3 May 2009 17:59:49 +0000 (13:59 -0400)
t/99_perlcritic.t

index b3ff7465e3cbdd201f5dc8681f971ec7f933ff07..982afb667d0da59c8511441dd789fb969c586042 100644 (file)
@@ -25,7 +25,7 @@ else {
        opendir my $dir, 't' or die qq{Could not open directory 't': $!\n};
        @testfiles = map { "t/$_" } grep { /^.+\.(t|pl)$/ } readdir $dir;
        closedir $dir;
-       plan tests => 4+@testfiles;
+       plan tests => 5+@testfiles;
 }
 ok(@testfiles, 'Found files in test directory');