[svn:DBD-Pg] r10574 - DBD-Pg/trunk/t

[turnstep]

Author: turnstep
Date: Wed Jan 16 20:07:43 2008
New Revision: 10574

Modified:
   DBD-Pg/trunk/t/99_perlcritic.t

Log:
Let's check the included file as well.


Modified: DBD-Pg/trunk/t/99_perlcritic.t
==============================================================================
--- DBD-Pg/trunk/t/99_perlcritic.t      (original)
+++ DBD-Pg/trunk/t/99_perlcritic.t      Wed Jan 16 20:07:43 2008
@@ -23,7 +23,7 @@
 }
 else {
        opendir my $dir, 't' or die qq{Could not open directory 't': $!\n};
-       @testfiles = map { "t/$_" } grep { /^\d+\w+\.t$/ } readdir $dir;
+       @testfiles = map { "t/$_" } grep { /^.+\.(t|pl)$/ } readdir $dir;
        closedir $dir;
        plan tests => [EMAIL PROTECTED];
 }
@@ -140,6 +140,9 @@
                        }
                }
 
+               ## Skip included file package warning
+               next if $policy =~ /RequireExplicitPackage/ and $filename =~ 
/setup/;
+
                $vios++;
                my $l = $v->location();
                my $line = $l->[0];