diff options
Diffstat (limited to 't')
-rw-r--r-- | t/mro/basic.t | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/t/mro/basic.t b/t/mro/basic.t index 1ecfd213a0..c6f25429b8 100644 --- a/t/mro/basic.t +++ b/t/mro/basic.t @@ -3,7 +3,7 @@ use strict; use warnings; -BEGIN { require q(./test.pl); } plan(tests => 50); +BEGIN { require q(./test.pl); } plan(tests => 51); require mro; @@ -312,3 +312,11 @@ is(eval { MRO_N->testfunc() }, 123); ok 'Extra::TSpouse'->isa('Class::Trait::Base'), 'a isa b after undef *a::ISA and @a::ISA modification'; } + +{ + # Deleting $package::{ISA} + # Broken in 5.10.0; fixed in 5.13.7 + @Blength::ISA = 'Bladd'; + delete $Blength::{ISA}; + ok !Blength->isa("Bladd"), 'delete $package::{ISA}'; +} |