17 lines
336 B
Perl
Executable File
17 lines
336 B
Perl
Executable File
#!/usr/bin/perl
|
|
use Modern::Perl;
|
|
use Test::PerlTidy;
|
|
use Test::More;
|
|
use Test::NoWarnings;
|
|
|
|
use Koha::Devel::Files;
|
|
|
|
my $dev_files = Koha::Devel::Files->new( { context => 'tidy' } );
|
|
my @files = $dev_files->ls_perl_files;
|
|
|
|
plan tests => scalar(@files) + 1;
|
|
|
|
for my $file (@files) {
|
|
ok( Test::PerlTidy::is_file_tidy($file) );
|
|
}
|