Victor Grousset/tuxayo
81df6dbe64
Now perltidy.t will check 2958 files instead of 2954. Which matches with the 4 .PL files. Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io> Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
15 lines
392 B
Perl
Executable file
15 lines
392 B
Perl
Executable file
#!/usr/bin/perl
|
|
use Modern::Perl;
|
|
use Test::PerlTidy;
|
|
use Test::More;
|
|
|
|
my @files;
|
|
push @files, qx{git ls-files '*.pl' '*.PL' '*.pm' '*.t' ':(exclude)Koha/Schema/Result' ':(exclude)Koha/Schema.pm'};
|
|
push @files, qx{git ls-files svc opac/svc}; # Files without extension
|
|
|
|
plan tests => scalar @files;
|
|
|
|
for my $file (@files) {
|
|
chomp $file;
|
|
ok( Test::PerlTidy::is_file_tidy($file) );
|
|
}
|