1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
2 use DBIx::Class::Optional::Dependencies -skip_all_without => 'test_whitespace';
8 use File::Glob 'bsd_glob';
10 use DBICTest ':GlobalLock';
12 # FIXME - temporary workaround for RT#82032, RT#82033
13 # also add all scripts (no extension) and some extra extensions
16 no warnings 'redefine';
18 $_[0] !~ /\./ || $_[0] =~ /\.(?:pm|pod|skip|bash|sql|json|proto)$/i || $_[0] =~ /::/;
21 *Test::EOL::_is_perl_module = $is_pm;
22 *Test::NoTabs::_is_perl_module = $is_pm;
25 my @pl_targets = qw/t xt lib script examples maint/;
26 Test::EOL::all_perl_files_ok({ trailing_whitespace => 1 }, @pl_targets);
27 Test::NoTabs::all_perl_files_ok(@pl_targets);
29 # check some non-"perl files" in the root separately
30 my @root_files = grep { -f $_ } bsd_glob('*');
32 # use .gitignore as a partial guide of what to skip
33 if (open(my $gi, '<', '.gitignore')) {
35 while (my $ln = <$gi>) {
36 next if $ln =~ /^\s*$/;
38 $skipnames->{$_}++ for bsd_glob($ln);
41 # these we want to check no matter what the above says
42 delete $skipnames->{qw(
52 @root_files = grep { ! $skipnames->{$_} } @root_files;
55 for my $fn (@root_files) {
56 Test::EOL::eol_unix_ok($fn, { trailing_whitespace => 1 });
57 Test::NoTabs::notabs_ok($fn) unless $fn eq 'MANIFEST'; # it is always tab infested
60 # FIXME - Test::NoTabs and Test::EOL declare 'no_plan' which conflicts with done_testing
61 # https://github.com/schwern/test-more/issues/14