The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more
|
#!perl
BEGIN {
unless ( $ENV {RELEASE_TESTING}) {
print qq{1..0 # SKIP these tests are for release candidate testing\n} ;
exit
}
}
eval "use Test::TrailingSpace" ;
if ($@)
{
plan skip_all => "Test::TrailingSpace required for trailing space test." ;
}
else
{
plan tests => 1;
}
my $finder = Test::TrailingSpace->new(
{
root => '.' ,
filename_regex => qr#\.(?:p[lm]|pod)\z# ,
},
);
$finder ->no_trailing_space(
"No trailing space was found."
);
|