16 lines
392 B
Perl
Executable File
16 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) );
|
|
}
|