give CMOP::Object a real meta method, and simplify some things

[gitmo/Class-MOP.git] / t / 303_RT_39001_fix.t

diff --git a/t/303_RT_39001_fix.t b/t/303_RT_39001_fix.t
index 51e355e..210d715 100644 (file)
--- 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";