X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F050_metaclasses%2Ffailing%2F040_moose_nonmoose_metatrait_init_order.t;fp=t%2F050_metaclasses%2Ffailing%2F040_moose_nonmoose_metatrait_init_order.t;h=0000000000000000000000000000000000000000;hb=c47cf41554416ee1828eab17d31342a53aaa0839;hp=309937febf30c9d6e55e65ac32ef4443dbad574f;hpb=9864f0e4ba233c5f30ad6dc7c484ced43d883d27;p=gitmo%2FMouse.git

diff --git a/t/050_metaclasses/failing/040_moose_nonmoose_metatrait_init_order.t b/t/050_metaclasses/failing/040_moose_nonmoose_metatrait_init_order.t
deleted file mode 100644
index 309937f..0000000
--- a/t/050_metaclasses/failing/040_moose_nonmoose_metatrait_init_order.t
+++ /dev/null
@@ -1,28 +0,0 @@
-use strict;
-use warnings;
-{
-    package My::Role;
-    use Mouse::Role;
-}
-{
-    package SomeClass;
-    use Mouse -traits => 'My::Role';
-}
-{
-    package SubClassUseBase;
-    use base qw/SomeClass/;
-}
-{
-    package SubSubClassUseBase;
-    use base qw/SubClassUseBase/;
-}
-
-use Test::More tests => 2;
-use Mouse::Util qw/find_meta does_role/;
-
-my $subsubclass_meta = Mouse->init_meta( for_class => 'SubSubClassUseBase' );
-ok does_role($subsubclass_meta, 'My::Role'),
-    'SubSubClass metaclass does role from grandparent metaclass';
-my $subclass_meta = find_meta('SubClassUseBase');
-ok does_role($subclass_meta, 'My::Role'),
-    'SubClass metaclass does role from parent metaclass';