X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t-failing%2F050_metaclasses%2F016_metarole_w_metaclass_pm.t;fp=t%2F050_metaclasses%2Ffailing%2F016_metarole_w_metaclass_pm.t;h=00cf161a696723212a424ae5ba1966eb34a3d939;hb=fde8e43f95fe996fbc2a778aa259feeb04552171;hp=e8996241439a2ea12f47cda7929d226dfb9d2691;hpb=0bdc9d38dfd3de07aad929f6629f8fa65d434c27;p=gitmo%2FMouse.git

diff --git a/t/050_metaclasses/failing/016_metarole_w_metaclass_pm.t b/t-failing/050_metaclasses/016_metarole_w_metaclass_pm.t
similarity index 78%
rename from t/050_metaclasses/failing/016_metarole_w_metaclass_pm.t
rename to t-failing/050_metaclasses/016_metarole_w_metaclass_pm.t
index e899624..00cf161 100644
--- a/t/050_metaclasses/failing/016_metarole_w_metaclass_pm.t
+++ b/t-failing/050_metaclasses/016_metarole_w_metaclass_pm.t
@@ -1,9 +1,13 @@
 #!/usr/bin/perl
+# This is automatically generated by author/import-moose-test.pl.
+# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
+use t::lib::MooseCompat;
 
 use strict;
 use warnings;
 
-use Test::More tests => 8;
+use Test::More;
+$TODO = q{Mouse is not yet completed};
 
 use Mouse::Util::MetaRole;
 
@@ -62,23 +66,25 @@ BEGIN
 }
 
 {
-    Mouse::Util::MetaRole::apply_metaclass_roles(
-        for_class       => 'My::Class',
-        metaclass_roles => ['Role::Foo'],
+    Mouse::Util::MetaRole::apply_metaroles(
+        for             => 'My::Class',
+        class_metaroles => { class => ['Role::Foo'] },
     );
 
     ok( My::Class->meta()->meta()->does_role('Role::Foo'),
         'apply Role::Foo to My::Class->meta()' );
     has_superclass( My::Class->meta(), 'My::Meta::Class',
-                    'apply_metaclass_roles works with metaclass.pm' );
+                    'apply_metaroles works with metaclass.pm' );
 }
 
 {
-    Mouse::Util::MetaRole::apply_metaclass_roles(
-        for_class                 => 'My::Class2',
-        attribute_metaclass_roles => ['Role::Foo'],
-        method_metaclass_roles    => ['Role::Foo'],
-        instance_metaclass_roles  => ['Role::Foo'],
+    Mouse::Util::MetaRole::apply_metaroles(
+        for             => 'My::Class2',
+        class_metaroles => {
+            attribute => ['Role::Foo'],
+            method    => ['Role::Foo'],
+            instance  => ['Role::Foo'],
+        },
     );
 
     ok( My::Class2->meta()->attribute_metaclass()->meta()->does_role('Role::Foo'),
@@ -107,3 +113,5 @@ sub has_superclass {
 
     ok( $supers{$parent}, $desc );
 }
+
+done_testing;