This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Revert change #31489.
[perl5.git] / t / mro / basic.t
index be7e3dd..e679275 100644 (file)
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
 use strict;
 use warnings;
 
-require q(./test.pl); plan(tests => 27);
+require q(./test.pl); plan(tests => 21);
 
 {
     package MRO_A;
 
 {
     package MRO_A;
@@ -147,44 +147,3 @@ is(eval { MRO_N->testfunc() }, 123);
     undef @ISACLEAR::ISA;
     ok(eq_array(mro::get_linear_isa('ISACLEAR'),[qw/ISACLEAR/]));
 }
     undef @ISACLEAR::ISA;
     ok(eq_array(mro::get_linear_isa('ISACLEAR'),[qw/ISACLEAR/]));
 }
-
-{
-    {
-        package ISACLEAR2;
-        our @ISA = qw/XX YY ZZ/;
-    }
-
-    # baseline
-    ok(eq_array(mro::get_linear_isa('ISACLEAR2'),[qw/ISACLEAR2 XX YY ZZ/]));
-
-    # delete @ISA
-    delete $ISACLEAR2::{ISA};
-    ok(eq_array(mro::get_linear_isa('ISACLEAR2'),[qw/ISACLEAR2/]));
-}
-
-# another destructive test, undef the ISA glob
-{
-    {
-        package ISACLEAR3;
-        our @ISA = qw/XX YY ZZ/;
-    }
-    # baseline
-    ok(eq_array(mro::get_linear_isa('ISACLEAR3'),[qw/ISACLEAR3 XX YY ZZ/]));
-
-    undef *ISACLEAR3::ISA;
-    ok(eq_array(mro::get_linear_isa('ISACLEAR3'),[qw/ISACLEAR3/]));
-}
-
-# This is how Class::Inner does it
-{
-    {
-        package ISACLEAR4;
-        our @ISA = qw/XX YY ZZ/;
-    }
-    # baseline
-    ok(eq_array(mro::get_linear_isa('ISACLEAR4'),[qw/ISACLEAR4 XX YY ZZ/]));
-
-    delete $ISACLEAR4::{ISA};
-    delete $::{ISACLEAR4::};
-    ok(eq_array(mro::get_linear_isa('ISACLEAR4'),[qw/ISACLEAR4/]));
-}