|
eval "use File::Find::Rule::BOM;" ;
plan skip_all => "skip the no BOM test because $@" if $@;
my @foo = File::Find::Rule->bom->in( 'lib' , 't' , 'xt' );
ok( scalar ( @foo ) == 0, 'No BOM' )
or diag( join ( "\t" , map { "'$_' has BOM." } @foo ));
done_testing;
|