[svn:parrot] r21750 - trunk/t/codingstd

[paultcochrane]

Author: paultcochrane
Date: Tue Oct  2 09:57:23 2007
New Revision: 21750

Modified:
   trunk/t/codingstd/fixme.t

Log:
[codingstd] Added number of failed files and number of failing instances
to output.


Modified: trunk/t/codingstd/fixme.t
==============================================================================
--- trunk/t/codingstd/fixme.t   (original)
+++ trunk/t/codingstd/fixme.t   Tue Oct  2 09:57:23 2007
@@ -38,6 +38,7 @@
 my $DIST = Parrot::Distribution->new;
 my @files = @ARGV ? @ARGV : $DIST->get_c_language_files();
 my @fixme;
+my %failed_files;
 
 foreach my $file (@files) {
 
@@ -52,12 +53,15 @@
         next unless /(FIXME|XXX|TODO)/;
 
         push @fixme, "file '$path', line $.: $1\n";
+        $failed_files{$path}++;
     }
     close $fh;
 }
 
+my $num_failed_files = scalar keys %failed_files;
 ok( !scalar(@fixme), 'FIXME strings' )
-    or diag( "FIXME strings found in " . scalar @fixme . " files:[EMAIL 
PROTECTED]" );
+    or diag( "FIXME strings found in " . scalar @fixme 
+        . " instances in " . $num_failed_files . " files:[EMAIL PROTECTED]" );
 
 # Local Variables:
 #   mode: cperl