Imported Upstream version 1.112

1 files changed, 8 insertions, 6 deletions

diff --git a/t/00-load.t b/t/00-load.t
index 43061b9..a246465 100644
--- a/t/00-load.t
+++ b/t/00-load.t
@@ -4,13 +4,15 @@ use Test::More;
 use File::Find;
 
 my @modules;
-find( sub { push @modules, $File::Find::name if /\.pm$/ }, 'blib/lib' );
+find( sub { push @modules, $File::Find::name if /\.pm$/ }, 'lib' );
 
 plan tests => scalar @modules;
 
-use_ok($_)
-    for reverse sort map { s!/!::!g; s/\.pm$//; s/^blib::lib:://; $_ }
-    @modules;
-
-diag("Tested Test::Database $Test::Database::VERSION, Perl $], $^X");
+@modules = reverse sort map { s!/!::!g; s/\.pm$//; s/^lib:://; $_ } @modules;
 
+# load in isolation
+local $ENV{PERL5LIB} = join $Config::Config{path_sep} || ';', @INC;
+for my $module (@modules) {
+    `$^X -M$module -e1`;
+    is( $? >> 8, 0, "perl -M$module -e1" );
+}