|
Lines 17-23
Link Here
|
| 17 |
|
17 |
|
| 18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
| 19 |
|
19 |
|
|
|
20 |
$| = 1; |
| 20 |
use Test::More; |
21 |
use Test::More; |
|
|
22 |
use Test::Warn; |
| 21 |
use File::Spec; |
23 |
use File::Spec; |
| 22 |
use File::Find; |
24 |
use File::Find; |
| 23 |
|
25 |
|
|
Lines 42-50
find({
Link Here
|
| 42 |
|
44 |
|
| 43 |
$m =~ s{^.*/C4/}{C4/}; |
45 |
$m =~ s{^.*/C4/}{C4/}; |
| 44 |
$m =~ s{/}{::}g; |
46 |
$m =~ s{/}{::}g; |
| 45 |
return if $m =~ /Auth_with_ldap/; # Dont test this, it will fail on use |
47 |
if ($m eq "C4::External::BakerTaylor") { |
| 46 |
return if $m =~ /SIPServer/; # SIP Server module has old package usage |
48 |
warning_like { eval "use $m; 1;" } |
| 47 |
use_ok($m) || BAIL_OUT("***** PROBLEMS LOADING FILE '$m'"); |
49 |
qr/Too late to run INIT block at .*C4\/External\/BakerTaylor.pm line 42/i, |
|
|
50 |
"use $m; -- Expected warnings"; |
| 51 |
} |
| 52 |
elsif ($m eq "C4::SIP::SIPServer") { |
| 53 |
warning_like { eval "use $m; 1;" } |
| 54 |
qr/UNIVERSAL->import is deprecated and will be removed in a future perl/i, |
| 55 |
"use $m; -- Expected warnings"; |
| 56 |
} |
| 57 |
elsif ($m eq "C4::Barcodes") { |
| 58 |
warning_like { eval "use $m; 1;" } |
| 59 |
qr/Too late to run INIT block at .*C4\/Barcodes\/hbyymmincr.pm line 41/i, |
| 60 |
"use $m; -- Expected warnings"; |
| 61 |
} |
| 62 |
elsif ($m eq "C4::Tags") { |
| 63 |
warning_like { eval "use $m; 1;" } |
| 64 |
qr/Too late to run INIT block at .*C4\/Tags.pm line 75/i, |
| 65 |
"use $m; -- Expected warnings"; |
| 66 |
} |
| 67 |
else { |
| 68 |
warning_is { eval "use $m; 1;" } '',"use $m;"; |
| 69 |
} |
| 48 |
}, |
70 |
}, |
| 49 |
}, $lib); |
71 |
}, $lib); |
| 50 |
|
72 |
|
| 51 |
- |
|
|