Lines 13-24
find({
Link Here
|
13 |
wanted => sub { |
13 |
wanted => sub { |
14 |
my $m = $_; |
14 |
my $m = $_; |
15 |
return unless $m =~ s/[.]pm$//; |
15 |
return unless $m =~ s/[.]pm$//; |
|
|
16 |
$m =~ s{^.*/C4/}{C4/}; |
17 |
$m =~ s{/}{::}g; |
16 |
return if $m =~ /Auth_with_ldap/; # Dont test this, it will fail on use |
18 |
return if $m =~ /Auth_with_ldap/; # Dont test this, it will fail on use |
17 |
return if $m =~ /Cache/; # Cache modules are a WIP, add the tests back when we are using them more |
19 |
return if $m =~ /Cache/; # Cache modules are a WIP, add the tests back when we are using them more |
18 |
return if $m =~ /SIP/; # SIP modules will not load clean |
20 |
return if $m =~ /SIP/; # SIP modules will not load clean |
19 |
$m =~ s{^.*/C4/}{C4/}; |
21 |
return if $m =~ /C4::VirtualShelves$/; # Requires a DB |
20 |
$m =~ s{/}{::}g; |
22 |
return if $m =~ /C4::Auth$/; # DB |
21 |
use_ok($m) || BAIL_OUT("***** PROBLEMS LOADING FILE '$m'"); |
23 |
return if $m =~ /C4::Tags$/; # DB |
|
|
24 |
return if $m =~ /C4::Service/; # DB |
25 |
return if $m =~ /C4::Auth_with_cas/; # DB |
26 |
return if $m =~ /C4::BackgroundJob/; # DB |
27 |
return if $m =~ /C4::UploadedFile/; # DB |
28 |
return if $m =~ /C4::Reports::Guided/; # DB |
29 |
return if $m =~ /C4::VirtualShelves::Page/; # DB |
30 |
use_ok($m) || BAIL_OUT("***** PROBLEMS LOADING FILE '$m'"); |
22 |
}, |
31 |
}, |
23 |
}, $lib); |
32 |
}, $lib); |
24 |
done_testing(); |
33 |
done_testing(); |