cf2eb49448
Since nobody is currently working on the zebra layer introduced by bug 8233, Solr won't never work. Some code has been introduced in 3.10 to prove several search engines can cohabit into Koha but no help/fund has been found to go ahead. It is useless to keep this code and to maintain an ambiguous situation. I think the indexes configuration page could be restore later if someone else introduces a new search engine into Koha. Test plan: Look at the code introduced by bug 8233 and verify all is removed. Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz> Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com> Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
54 lines
1.6 KiB
Perl
54 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::ILSDI::Services/; # 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
|
|
return if $m =~ /C4::Serials/; # needs context
|
|
return if $m =~ /C4::Search::History/; # needs context
|
|
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;
|
|
use_ok($m) || BAIL_OUT("***** PROBLEMS LOADING FILE '$m'");
|
|
},
|
|
},
|
|
$lib
|
|
);
|
|
|
|
|
|
done_testing();
|