This is about 50% of the way towards making

[gitmo/Moose.git] / t / 050_metaclasses / 015_metarole.t

diff --git a/t/050_metaclasses/015_metarole.t b/t/050_metaclasses/015_metarole.t
index e7ae77b..120f332 100644 (file)
--- a/t/050_metaclasses/015_metarole.t
+++ b/t/050_metaclasses/015_metarole.t
@@ -331,15 +331,10 @@ use Moose::Util::MetaRole;
         q{... and My::Class5->meta() still does Role::Foo} );
 }
 
-SKIP:
-{
-    skip
-        'These tests will fail until Moose::Meta::Class->_fix_metaclass_incompatibility is much smarter.',
-        2;
 {
     package My::Class6;
     use Moose;
-
+    local $::D =1;
     Moose::Util::MetaRole::apply_metaclass_roles(
         for_class       => 'My::Class6',
         metaclass_roles => ['Role::Bar'],
@@ -354,7 +349,6 @@ SKIP:
     ok( My::Class6->meta()->meta()->does_role('Role::Foo'),
         q{... and My::Class6->meta() does Role::Foo because it extends My::Class} );
 }
-}
 
 # This is the hack needed to work around the
 # _fix_metaclass_incompatibility problem. You must call extends()