diff --git a/t/00-load.t b/t/00-load.t index 6b3172c2e4..b5c7181f87 100644 --- a/t/00-load.t +++ b/t/00-load.t @@ -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(); -