Jonathan Druart
41a8005d10
We should remove the debug statements or use Koha::Logger when we want to keep it. Test plan: Confirm that occurrences of remaining occurrences of DEBUG need to be kept (historical scripts for instance) Confirm that the occurrences removed by this patch can be removed Confirm that the occurrences replaced by Koha::Logger are correct Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com> Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl> Looks good to me, noting a few minor points on BZ. JD amended patch: replace "warn #Finished" with "#warn Finished", and put the statement on a single line Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
59 lines
1.4 KiB
Perl
Executable file
59 lines
1.4 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
# This script is called by the pre-commit git hook to test modules compile
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use threads; # used for parallel
|
|
use Test::More;
|
|
use Test::Strict;
|
|
use Parallel::ForkManager;
|
|
use Sys::CPU;
|
|
|
|
use lib("misc/translator");
|
|
use lib("installer");
|
|
|
|
my @dirs = (
|
|
'acqui', 'admin',
|
|
'authorities', 'basket',
|
|
'catalogue', 'cataloguing',
|
|
'changelanguage.pl', 'circ',
|
|
'debian', 'docs',
|
|
'errors', 'fix-perl-path.PL', 'help.pl',
|
|
'installer', 'koha_perl_deps.pl',
|
|
'kohaversion.pl', 'labels',
|
|
'mainpage.pl', 'Makefile.PL',
|
|
'members', 'misc',
|
|
'offline_circ', 'opac',
|
|
'patroncards', 'reports',
|
|
'reserve', 'reviews',
|
|
'rewrite-config.PL', 'rotating_collections',
|
|
'serials', 'services',
|
|
'skel', 'suggestion',
|
|
'svc', 'tags',
|
|
'tools', 'virtualshelves'
|
|
);
|
|
|
|
$Test::Strict::TEST_STRICT = 0;
|
|
$Test::Strict::TEST_SKIP = [ 'misc/kohalib.pl' ];
|
|
|
|
my $ncpu;
|
|
if ( $ENV{KOHA_PROVE_CPUS} ) {
|
|
$ncpu = $ENV{KOHA_PROVE_CPUS} ; # set number of cpus to use
|
|
} else {
|
|
$ncpu = Sys::CPU::cpu_count();
|
|
}
|
|
|
|
my $pm = Parallel::ForkManager->new($ncpu);
|
|
|
|
foreach my $d (@dirs) {
|
|
$pm->start and next; # do the fork
|
|
|
|
all_perl_files_ok($d);
|
|
|
|
$pm->finish; # do the exit in the child process
|
|
}
|
|
|
|
$pm->wait_all_children;
|
|
|
|
done_testing();
|