|
Lines 12-34
find({
Link Here
|
| 12 |
no_chdir => 1, |
12 |
no_chdir => 1, |
| 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/}; |
16 |
$m =~ s{^.*/C4/}{C4/}; |
| 17 |
$m =~ s{/}{::}g; |
17 |
$m =~ s{/}{::}g; |
| 18 |
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 |
| 19 |
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 |
| 20 |
return if $m =~ /SIP/; # SIP modules will not load clean |
20 |
return if $m =~ /SIP/; # SIP modules will not load clean |
| 21 |
return if $m =~ /C4::VirtualShelves$/; # Requires a DB |
21 |
return if $m =~ /C4::VirtualShelves$/; # Requires a DB |
| 22 |
return if $m =~ /C4::Auth$/; # DB |
22 |
return if $m =~ /C4::Auth$/; # DB |
| 23 |
return if $m =~ /C4::Tags$/; # DB |
23 |
return if $m =~ /C4::Tags$/; # DB |
| 24 |
return if $m =~ /C4::Service/; # DB |
24 |
return if $m =~ /C4::Service/; # DB |
| 25 |
return if $m =~ /C4::Auth_with_cas/; # DB |
25 |
return if $m =~ /C4::Auth_with_cas/; # DB |
| 26 |
return if $m =~ /C4::BackgroundJob/; # DB |
26 |
return if $m =~ /C4::BackgroundJob/; # DB |
| 27 |
return if $m =~ /C4::UploadedFile/; # DB |
27 |
return if $m =~ /C4::UploadedFile/; # DB |
| 28 |
return if $m =~ /C4::Record/; # DB |
28 |
return if $m =~ /C4::Record/; # DB |
| 29 |
return if $m =~ /C4::Reports::Guided/; # DB |
29 |
return if $m =~ /C4::Reports::Guided/; # DB |
| 30 |
return if $m =~ /C4::Serials/; # DB |
30 |
return if $m =~ /C4::Serials/; # DB |
| 31 |
return if $m =~ /C4::VirtualShelves::Page/; # DB |
31 |
return if $m =~ /C4::VirtualShelves::Page/; # DB |
| 32 |
return if $m =~ /C4::Members::Statistics/; # DB |
32 |
return if $m =~ /C4::Members::Statistics/; # DB |
| 33 |
use_ok($m) || BAIL_OUT("***** PROBLEMS LOADING FILE '$m'"); |
33 |
use_ok($m) || BAIL_OUT("***** PROBLEMS LOADING FILE '$m'"); |
| 34 |
}, |
34 |
}, |
| 35 |
- |
|
|