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

[fperrad at svn.parrot.org]

Author: fperrad
Date: Sat Jan 31 15:27:58 2009
New Revision: 36201
URL: https://trac.parrot.org/parrot/changeset/36201

Log:
[t] no need to skip generated files

Modified:
   trunk/t/codingstd/copyright.t
   trunk/t/codingstd/svn_id.t
   trunk/t/codingstd/trailing_space.t

Modified: trunk/t/codingstd/copyright.t
==============================================================================
--- trunk/t/codingstd/copyright.t	Sat Jan 31 15:00:44 2009	(r36200)
+++ trunk/t/codingstd/copyright.t	Sat Jan 31 15:27:58 2009	(r36201)
@@ -1,5 +1,5 @@
 #! perl
-# Copyright (C) 2007, The Perl Foundation.
+# Copyright (C) 2007-2009, The Perl Foundation.
 # $Id$
 
 use strict;
@@ -17,10 +17,10 @@
 =head1 SYNOPSIS
 
     # test all files
-    % prove t/codingstd/check_copyright.t
+    % prove t/codingstd/copyright.t
 
     # test specific files
-    % perl t/codingstd/check_copyright.t src/foo.c include/parrot/bar.h
+    % perl t/codingstd/copyright.t src/foo.c include/parrot/bar.h
 
 =head1 DESCRIPTION
 
@@ -35,7 +35,6 @@
 
 my $DIST = Parrot::Distribution->new;
 
-my $skip_files = $DIST->generated_files();
 my @c_files    = $DIST->get_c_language_files();
 my @perl_files = $DIST->get_perl_language_files();
 my @make_files = $DIST->get_make_language_files();
@@ -55,8 +54,6 @@
     # otherwise, use the relevant Parrot:: path method
     my $path = @ARGV ? $file : $file->path;
 
-    next if exists $skip_files->{$path};
-
     my $buf = $DIST->slurp($path);
 
     # does there exist a copyright statement at all?

Modified: trunk/t/codingstd/svn_id.t
==============================================================================
--- trunk/t/codingstd/svn_id.t	Sat Jan 31 15:00:44 2009	(r36200)
+++ trunk/t/codingstd/svn_id.t	Sat Jan 31 15:27:58 2009	(r36201)
@@ -35,7 +35,6 @@
 
 my $DIST = Parrot::Distribution->new;
 
-my $skip_files = $DIST->generated_files();
 my @c_files    = $DIST->get_c_language_files();
 my @perl_files = $DIST->get_perl_language_files();
 my @make_files = $DIST->get_make_language_files();
@@ -50,8 +49,6 @@
     # otherwise, use the relevant Parrot:: path method
     my $path = @ARGV ? $file : $file->path;
 
-    next if exists $skip_files->{$path};
-
     my $buf = $DIST->slurp($path);
 
     if ( $buf !~ m/\$Id

Modified: trunk/t/codingstd/trailing_space.t
==============================================================================
--- trunk/t/codingstd/trailing_space.t	Sat Jan 31 15:00:44 2009	(r36200)
+++ trunk/t/codingstd/trailing_space.t	Sat Jan 31 15:27:58 2009	(r36201)
@@ -1,5 +1,5 @@
 #! perl
-# Copyright (C) 2006-2007, The Perl Foundation.
+# Copyright (C) 2006-2009, The Perl Foundation.
 # $Id$
 
 use strict;
@@ -35,7 +35,6 @@
 
 my $DIST = Parrot::Distribution->new;
 
-my $skip_files = $DIST->generated_files();
 my @files = @ARGV ? @ARGV : (
     $DIST->get_c_language_files(),
     $DIST->get_perl_language_files(),
@@ -45,7 +44,6 @@
 Parrot::Test::Util::Runloop->testloop(
     name     => 'no trailing whitespace',
     files    => [@files],
-    skips    => $skip_files,
     per_line => sub { $_[0] !~ m{[ \t]$}m },
     diag_prefix => 'Trailing space or tab char found'
 );