@@ -, +, @@ Parallel::ForkManager --- C4/Installer/PerlDependencies.pm | 10 +++++++ debian/control | 2 ++ t/db_dependent/00-strict.t | 64 ++++++++++++++++++++++++++++++++-------- 3 files changed, 64 insertions(+), 12 deletions(-) mode change 100644 => 100755 t/db_dependent/00-strict.t --- a/C4/Installer/PerlDependencies.pm +++ a/C4/Installer/PerlDependencies.pm @@ -862,6 +862,16 @@ our $PERL_DEPS = { 'required' => '0', 'min_ver' => '0.07', }, + 'Parallel::ForkManager' => { + usage => 'Core', + required => 0, + min_ver => '0.75', + }, + 'Sys::CPU' => { + usage => 'Core', + required => 0, + min_ver => '0.52', + }, }; 1; --- a/debian/control +++ a/debian/control @@ -92,6 +92,7 @@ Build-Depends: libalgorithm-checkdigits-perl, libnet-z3950-zoom-perl, libnumber-format-perl, libopenoffice-oodoc-perl, + libparallel-forkmanager-perl, libpath-tiny-perl, libpdf-api2-perl, libpdf-api2-simple-perl, @@ -110,6 +111,7 @@ Build-Depends: libalgorithm-checkdigits-perl, libsoap-lite-perl, libstring-random-perl, libswagger2-perl (>= 0.59), + libsys-cpu-perl libtemplate-perl, libtemplate-plugin-htmltotext-perl, libtemplate-plugin-json-escape-perl, --- a/t/db_dependent/00-strict.t +++ a/t/db_dependent/00-strict.t @@ -1,24 +1,64 @@ +#!/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 File::Spec; -use File::Find; +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', - 'edithelp.pl', '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', - 'sms', 'suggestion', 'svc', 'tags', 'tools', 'virtualshelves' ); +my @dirs = ( + 'acqui', 'admin', + 'authorities', 'basket', + 'catalogue', 'cataloguing', + 'changelanguage.pl', 'circ', + 'debian', 'docs', + 'edithelp.pl', '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', 'sms', + 'suggestion', 'svc', + 'tags', 'tools', + 'virtualshelves' +); $Test::Strict::TEST_STRICT = 0; -$Test::Strict::TEST_SKIP = [ 'misc/kohalib.pl', 'sms/sms_listen_windows_start.pl', 'misc/plack/koha.psgi' ]; +$Test::Strict::TEST_SKIP = [ + 'misc/kohalib.pl', 'sms/sms_listen_windows_start.pl', + 'misc/plack/koha.psgi' +]; + +my $ncpu; +if ( $ENV{KOHA_JENKINS} ) { + $ncpu = 2; # works fastest on kc.org jenkins box +} else { + $ncpu = Sys::CPU::cpu_count(); +} + +my $pm = new Parallel::ForkManager($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; -all_perl_files_ok(@dirs); +done_testing(); --