X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=t%2F00-load.t;h=e372e90b6dd7c1a693a44e1043a3d9f46b3129f2;hb=5d6c092921919526ade501facb1220f8a108a08f;hp=da9008d5482321adb0beeed9ccc3c6c66f86c7cc;hpb=030a108d19c6eedbc16914e6917b4949a2cc1b74;p=koha_fer diff --git a/t/00-load.t b/t/00-load.t index da9008d548..e372e90b6d 100644 --- a/t/00-load.t +++ b/t/00-load.t @@ -12,23 +12,24 @@ find({ 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 =~ /Cache/; # Cache modules are a WIP, add the tests back when we are using them more - 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::Record/; # DB - return if $m =~ /C4::Reports::Guided/; # DB - return if $m =~ /C4::Serials/; # DB - return if $m =~ /C4::VirtualShelves::Page/; # DB + 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); @@ -43,7 +44,7 @@ find( 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::SearchEngine/; # Koha::SearchEngine::* are experimental use_ok($m) || BAIL_OUT("***** PROBLEMS LOADING FILE '$m'"); }, },