@@ -, +, @@ --------- -- ugly INIT errors, etc. -- nice "Expected warnings" type messages on the ones that were noisy. --- t/00-load.t | 28 +++++++++++++++++++++++++--- 1 file changed, 25 insertions(+), 3 deletions(-) --- a/t/00-load.t +++ a/t/00-load.t @@ -17,7 +17,9 @@ use Modern::Perl; +$| = 1; use Test::More; +use Test::Warn; use File::Spec; use File::Find; @@ -42,9 +44,29 @@ find({ $m =~ s{^.*/C4/}{C4/}; $m =~ s{/}{::}g; - return if $m =~ /Auth_with_ldap/; # Dont test this, it will fail on use - return if $m =~ /SIPServer/; # SIP Server module has old package usage - use_ok($m) || BAIL_OUT("***** PROBLEMS LOADING FILE '$m'"); + if ($m eq "C4::External::BakerTaylor") { + warning_like { eval "use $m; 1;" } +qr/Too late to run INIT block at .*C4\/External\/BakerTaylor.pm line 42/i, + "use $m; -- Expected warnings"; + } + elsif ($m eq "C4::SIP::SIPServer") { + warning_like { eval "use $m; 1;" } +qr/UNIVERSAL->import is deprecated and will be removed in a future perl/i, + "use $m; -- Expected warnings"; + } + elsif ($m eq "C4::Barcodes") { + warning_like { eval "use $m; 1;" } +qr/Too late to run INIT block at .*C4\/Barcodes\/hbyymmincr.pm line 41/i, + "use $m; -- Expected warnings"; + } + elsif ($m eq "C4::Tags") { + warning_like { eval "use $m; 1;" } +qr/Too late to run INIT block at .*C4\/Tags.pm line 75/i, + "use $m; -- Expected warnings"; + } + else { + warning_is { eval "use $m; 1;" } '',"use $m;"; + } }, }, $lib); --