ff7fdd79bb
Several patterns were being skipped unnecessarily in t/00-load.t: * C4::Cache* - no longer exists * C4::Record - no longer requires database * C4::Serials - no longer requires database To test: 1) Unset KOHA_CONF and/or shut down MySQL. 2) Run `prove t/00-load.t` 3) If the test passes, the patch is good. Signed-off-by: Chris Cormack <chris@bigballofwax.co.nz> 144 tests passing. Signed-off-by: Jonathan Druart <jonathan.druart@biblibre.com> Signed-off-by: Jared Camins-Esakov <jcamins@cpbibliography.com>
53 lines
1.6 KiB
Perl
53 lines
1.6 KiB
Perl
# This script is called by the pre-commit git hook to test modules compile
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Test::More;
|
|
use File::Spec;
|
|
use File::Find;
|
|
|
|
my $lib = File::Spec->rel2abs('C4');
|
|
find({
|
|
bydepth => 1,
|
|
no_chdir => 1,
|
|
wanted => sub {
|
|
my $m = $_;
|
|
return unless $m =~ s/[.]pm$//;
|
|
$m =~ s{^.*/C4/}{C4/};
|
|
$m =~ s{/}{::}g;
|
|
return if $m =~ /Auth_with_ldap/; # Dont test this, it will fail on use
|
|
return if $m =~ /SIP/; # SIP modules will not load clean
|
|
return if $m =~ /C4::VirtualShelves$/; # Requires a DB
|
|
return if $m =~ /C4::Auth$/; # DB
|
|
return if $m =~ /C4::Tags$/; # DB
|
|
return if $m =~ /C4::Service/; # DB
|
|
return if $m =~ /C4::Auth_with_cas/; # DB
|
|
return if $m =~ /C4::BackgroundJob/; # DB
|
|
return if $m =~ /C4::UploadedFile/; # DB
|
|
return if $m =~ /C4::Reports::Guided/; # DB
|
|
return if $m =~ /C4::VirtualShelves::Page/; # DB
|
|
return if $m =~ /C4::Members::Statistics/; # DB
|
|
use_ok($m) || BAIL_OUT("***** PROBLEMS LOADING FILE '$m'");
|
|
},
|
|
}, $lib);
|
|
|
|
$lib = File::Spec->rel2abs('Koha');
|
|
find(
|
|
{
|
|
bydepth => 1,
|
|
no_chdir => 1,
|
|
wanted => sub {
|
|
my $m = $_;
|
|
return unless $m =~ s/[.]pm$//;
|
|
$m =~ s{^.*/Koha/}{Koha/};
|
|
$m =~ s{/}{::}g;
|
|
return if $m =~ /Koha::SearchEngine/; # Koha::SearchEngine::* are experimental
|
|
return if $m =~ /Koha::Cache::Memcached/; # optional dependency
|
|
use_ok($m) || BAIL_OUT("***** PROBLEMS LOADING FILE '$m'");
|
|
},
|
|
},
|
|
$lib
|
|
);
|
|
|
|
|
|
done_testing();
|