[svn:parrot] r16951 - trunk/t/perl

[particle]

Author: particle
Date: Mon Feb 12 09:05:37 2007
New Revision: 16951

Modified:
   trunk/t/perl/Parrot_Distribution.t

Log:
[t]: add failing case to Parrot::Distribution tests
~ some *.t files are not perl files

Modified: trunk/t/perl/Parrot_Distribution.t
==============================================================================
--- trunk/t/perl/Parrot_Distribution.t  (original)
+++ trunk/t/perl/Parrot_Distribution.t  Mon Feb 12 09:05:37 2007
@@ -5,7 +5,7 @@
 use strict;
 use warnings;
 use lib qw( . lib ../lib ../../lib );
-use Test::More tests => 30;
+use Test::More tests => 31;
 use File::Spec;
 
 =head1 NAME
@@ -72,6 +72,7 @@
     ok( $d->perl_source_file_with_name('ops2c.pl'), 'Perl source file (.pl)' );
     ok( $d->perl_source_file_with_name('Distribution.pm'), 'Perl source file 
(.pm)' );
     ok( $d->perl_source_file_with_name('perlcritic.t'), 'Perl source file 
(.t)' );
+    ok( !$d->perl_source_file_with_name('p5rx.t'), 'Not a Perl source file 
(.t)' );
 }