X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F303_RT_39001_fix.t;h=210d7153647e3449ae792088d165070c88fb12a4;hb=28a82ddae9835be042c809198885582ba32b9583;hp=51e355e80d3caa2e287294867ebbe727a0219f3a;hpb=59b510466ab075526c10a9c0555645b5f916ef02;p=gitmo%2FClass-MOP.git diff --git a/t/303_RT_39001_fix.t b/t/303_RT_39001_fix.t index 51e355e..210d715 100644 --- a/t/303_RT_39001_fix.t +++ b/t/303_RT_39001_fix.t @@ -25,6 +25,10 @@ throws_ok { use metaclass; } +# reset @ISA, so that calling methods like ->isa won't die (->meta does this +# if DEBUG_NO_META is set) +@Foo::ISA = (); + lives_ok { Foo->meta->superclasses('Bar'); } "regular subclass";