gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge remote branch 'kc/new/bug_5386' into kcmaster

This commit is contained in:
Chris Cormack 2010-11-12 06:41:25 +13:00
parent 235cf872a5 e3322f732e
commit af1d829031
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
t/00-load.t
View File

@ -3,23 +3,22 @@
use strict;
use warnings;
use Test::More;
use Path::Class;
use File::Spec;
use File::Find;
my $lib = dir('C4')->absolute->resolve;
my $lib = File::Spec->rel2abs('C4');
find({
bydepth => 1,
no_chdir => 1,
wanted => sub {
my $m = $_;
return unless $m =~ s/[.]pm$//;
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
$m =~ s{^.*/C4/}{C4/};
$m =~ s{/}{::}g;
use_ok($m) || BAIL_OUT("***** PROBLEMS LOADING FILE '$m'");
return unless $m =~ s/[.]pm$//;
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
$m =~ s{^.*/C4/}{C4/};
$m =~ s{/}{::}g;
use_ok($m) || BAIL_OUT("***** PROBLEMS LOADING FILE '$m'");
},
}, $lib);
done_testing();