develooper Front page | perl.cvs.parrot | Postings from December 2008

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

From:
infinoid
Date:
December 1, 2008 14:19
Subject:
[svn:parrot] r33430 - trunk/t/codingstd
Message ID:
20081201221902.9ABA2CB9AF@x12.develooper.com
Author: infinoid
Date: Mon Dec  1 14:18:56 2008
New Revision: 33430

Modified:
   trunk/t/codingstd/c_cppcomments.t

Log:
[CAGE] c_cppcomments.t should skip lex files.

(The quote matching doesn't work very well with lex syntax.)

Modified: trunk/t/codingstd/c_cppcomments.t
==============================================================================
--- trunk/t/codingstd/c_cppcomments.t	(original)
+++ trunk/t/codingstd/c_cppcomments.t	Mon Dec  1 14:18:56 2008
@@ -34,6 +34,7 @@
 
 my $DIST = Parrot::Distribution->new();
 my @files = @ARGV ? @ARGV : $DIST->get_c_language_files();
+@files = grep { $_->name !~ /.l$/ } @files;
 
 
 Parrot::Test::Util::Runloop->testloop(



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About