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

[turnstep]

Author: turnstep
Date: Sat Jan 19 11:04:02 2008
New Revision: 10617

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

Log:
Add in quick early test for better output.


Modified: DBD-Pg/trunk/t/99_perlcritic.t
==============================================================================
--- DBD-Pg/trunk/t/99_perlcritic.t      (original)
+++ DBD-Pg/trunk/t/99_perlcritic.t      Sat Jan 19 11:04:02 2008
@@ -25,8 +25,9 @@
        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 => [EMAIL PROTECTED];
+       plan tests => [EMAIL PROTECTED];
 }
+ok(@testfiles, 'Found files in test directory');
 
 ## Check the non-test files - just Pg.pm for now
 my $critic = Perl::Critic->new(-severity => 1);
@@ -151,7 +152,7 @@
                diag "Policy: $policy\n";
                diag "Source: $source\n\n";
        }
-       my $SPACE = ++$count < 10 ? ' ' : '';
+       my $SPACE = ++$count < 9 ? ' ' : '';
        if ($vios) {
                fail qq{${SPACE}Failed Perl::Critic tests for file "$filename": 
$vios};
        }