t/TEST: Don't bail if fails in t/base unless minitest

[perl5.git] / t / TEST

diff --git a/t/TEST b/t/TEST
index 701b44e..3c00b5e 100755 (executable)
--- a/t/TEST
+++ b/t/TEST
@@ -40,11 +40,9 @@ my %abs = (
           '../cpan/IPC-Cmd' => 1,
           '../cpan/IPC-SysV' => 1,
           '../cpan/Locale-Codes' => 1,
-          '../cpan/Log-Message' => 1,
           '../cpan/Module-Build' => 1,
           '../cpan/Module-Load' => 1,
           '../cpan/Module-Load-Conditional' => 1,
-          '../cpan/Object-Accessor' => 1,
           '../cpan/Package-Constants' => 1,
           '../cpan/Parse-CPAN-Meta' => 1,
           '../cpan/Pod-Simple' => 1,
@@ -750,8 +748,11 @@ EOT
        if (defined $failure) {
            print "${te}$failure\n";
            $::bad_files = $::bad_files + 1;
-           if ($test =~ /^base/) {
-               die "Failed a basic test ($test) -- cannot continue.\n";
+           if ($test =~ /^base/ && ! defined &DynaLoader::boot_DynaLoader) {
+               # Die if running under minitest (no DynaLoader).  Otherwise
+               # keep going, as  we know that Perl basically works, or we
+               # would not have been able to actually compile it all the way.
+               die "Failed a basic test ($test) under minitest -- cannot continue.\n";
            }
            $failed_tests{$test} = 1;
        }