1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
use warnings;
use strict;
use Test::More;
use File::Glob 'bsd_glob';
use Test::EOL 1.0 ();
use Test::NoTabs 0.9 ();
# FIXME - temporary workaround for RT#82032, RT#82033
# also add all scripts (no extension) and some extra extensions
# we want to check
{
no warnings 'redefine';
my $is_pm = sub {
$_[0] !~ /\./ || $_[0] =~ /\.(?:pm|pod|skip|bash|sql|json|proto)$/i || $_[0] =~ /::/;
};
*Test::EOL::_is_perl_module = $is_pm;
*Test::NoTabs::_is_perl_module = $is_pm;
}
my @pl_targets = qw/t lib examples/;
Test::EOL::all_perl_files_ok({ trailing_whitespace => 1 }, @pl_targets);
Test::NoTabs::all_perl_files_ok(@pl_targets);
# check some non-"perl files" in the root separately
# use .gitignore as a guide of what to skip
# (or do not test at all if no .gitignore is found)
if (open(my $gi, '<', '.gitignore')) {
my $skipnames;
while (my $ln = <$gi>) {
next if $ln =~ /^\s*$/;
chomp $ln;
$skipnames->{$_}++ for bsd_glob($ln);
}
# that we want to check anyway
delete $skipnames->{'META.yml'};
for my $fn (bsd_glob('*')) {
next if $skipnames->{$fn};
next unless -f $fn;
Test::EOL::eol_unix_ok($fn, { trailing_whitespace => 1 });
Test::NoTabs::notabs_ok($fn);
}
}
# FIXME - Test::NoTabs and Test::EOL declare 'no_plan' which conflicts with done_testing
# https://github.com/schwern/test-more/issues/14
#done_testing;
|
