Author: paultcochrane
Date: Thu Mar 15 11:03:25 2007
New Revision: 17493
Modified:
trunk/t/codingstd/perlcritic.t
trunk/t/perl/Parrot_Distribution.t
Log:
[t] Removed trailing whitespace (part 3)
Modified: trunk/t/codingstd/perlcritic.t
==============================================================================
--- trunk/t/codingstd/perlcritic.t (original)
+++ trunk/t/codingstd/perlcritic.t Thu Mar 15 11:03:25 2007
@@ -114,9 +114,9 @@
'CodeLayout::UseParrotCoda' => 1,
'CodeLayout::ProhibitDuplicateCoda' => 1,
'CodeLayout::ProhibitTrailingWhitespace' => 1,
- 'CodeLayout::ProhibitHardTabs' =>
+ 'CodeLayout::ProhibitHardTabs' =>
{ allow_leading_tabs => 0 },
- 'CodeLayout::RequireTidyCode' =>
+ 'CodeLayout::RequireTidyCode' =>
{ perltidyrc => $perl_tidy_conf },
'Subroutines::RequireFinalReturn' => 1,
);
@@ -177,13 +177,13 @@
my $policy = $violation->policy();
$policy =~ s/^Perl::Critic::Policy:://;
push @{$violations{$policy}}, $violation->to_string();
- }
+ }
}
foreach my $policy ( sort keys %violations ) {
my @violations = @{$violations{$policy}};
- ok ( ! @violations, $policy)
- or diag( "Policy: $policy failed in " . scalar @violations .
+ ok ( ! @violations, $policy)
+ or diag( "Policy: $policy failed in " . scalar @violations .
" files:\n" . join ("\n", @violations) );
}
Modified: trunk/t/perl/Parrot_Distribution.t
==============================================================================
--- trunk/t/perl/Parrot_Distribution.t (original)
+++ trunk/t/perl/Parrot_Distribution.t Thu Mar 15 11:03:25 2007
@@ -84,7 +84,7 @@
{
my @perl_exemption_regexp;
my @perl_files = $d->get_perl_language_files();
- ok( ( @perl_exemption_regexp = $d->get_perl_exemption_regexp ),
+ ok( ( @perl_exemption_regexp = $d->get_perl_exemption_regexp ),
'Got perl exemption regexp');
# check that exemptions found match those expected
my @perl_exemptions;
@@ -100,7 +100,7 @@
push @exemptions_in_perl_list, $file->path
if (map $file->path =~ m/$_/, @perl_exemption_regexp);
}
- ok( ( !scalar @exemptions_in_perl_list ),
+ ok( ( !scalar @exemptions_in_perl_list ),
'No exemptions in Perl source list');
if ( scalar @exemptions_in_perl_list ) {
for my $exemption ( @exemptions_in_perl_list ) {
