X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F050_metaclasses%2Ffailing%2F015_metarole.t;fp=t%2F050_metaclasses%2Ffailing%2F015_metarole.t;h=0000000000000000000000000000000000000000;hb=c104959dfd903f700dba1c5b9f1e2eea5ff853f0;hp=361a8b82c6f417527a92b7b0c4048418bf44f93a;hpb=5332f8d860c255b049e56dc5dfdaf9b4715e983a;p=gitmo%2FMouse.git

diff --git a/t/050_metaclasses/failing/015_metarole.t b/t/050_metaclasses/failing/015_metarole.t
deleted file mode 100644
index 361a8b8..0000000
--- a/t/050_metaclasses/failing/015_metarole.t
+++ /dev/null
@@ -1,667 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use lib 't/lib', 'lib';
-
-use Test::More tests => 91;
-use Test::Exception;
-
-use Mouse::Util::MetaRole;
-
-
-{
-    package My::Meta::Class;
-    use Mouse;
-    extends 'Mouse::Meta::Class';
-}
-
-{
-    package Role::Foo;
-    use Mouse::Role;
-    has 'foo' => ( is => 'ro', default => 10 );
-}
-
-{
-    package My::Class;
-
-    use Mouse;
-}
-
-{
-    package My::Role;
-    use Mouse::Role;
-}
-
-{
-    Mouse::Util::MetaRole::apply_metaclass_roles(
-        for_class       => My::Class->meta,
-        metaclass_roles => ['Role::Foo'],
-    );
-
-    ok( My::Class->meta()->meta()->does_role('Role::Foo'),
-        'apply Role::Foo to My::Class->meta()' );
-    is( My::Class->meta()->foo(), 10,
-        '... and call foo() on that meta object' );
-}
-
-{
-    Mouse::Util::MetaRole::apply_metaclass_roles(
-        for_class                 => 'My::Class',
-        attribute_metaclass_roles => ['Role::Foo'],
-    );
-
-    ok( My::Class->meta()->attribute_metaclass()->meta()->does_role('Role::Foo'),
-        q{apply Role::Foo to My::Class->meta()'s attribute metaclass} );
-    ok( My::Class->meta()->meta()->does_role('Role::Foo'),
-        '... My::Class->meta() still does Role::Foo' );
-
-    My::Class->meta()->add_attribute( 'size', is => 'ro' );
-    is( My::Class->meta()->get_attribute('size')->foo(), 10,
-        '... call foo() on an attribute metaclass object' );
-}
-
-{
-    Mouse::Util::MetaRole::apply_metaclass_roles(
-        for_class              => 'My::Class',
-        method_metaclass_roles => ['Role::Foo'],
-    );
-
-    ok( My::Class->meta()->method_metaclass()->meta()->does_role('Role::Foo'),
-        q{apply Role::Foo to My::Class->meta()'s method metaclass} );
-    ok( My::Class->meta()->meta()->does_role('Role::Foo'),
-        '... My::Class->meta() still does Role::Foo' );
-    ok( My::Class->meta()->attribute_metaclass()->meta()->does_role('Role::Foo'),
-        q{... My::Class->meta()'s attribute metaclass still does Role::Foo} );
-
-    My::Class->meta()->add_method( 'bar' => sub { 'bar' } );
-    is( My::Class->meta()->get_method('bar')->foo(), 10,
-        '... call foo() on a method metaclass object' );
-}
-
-{
-    Mouse::Util::MetaRole::apply_metaclass_roles(
-        for_class                      => 'My::Class',
-        wrapped_method_metaclass_roles => ['Role::Foo'],
-    );
-
-    ok( My::Class->meta()->wrapped_method_metaclass()->meta()->does_role('Role::Foo'),
-        q{apply Role::Foo to My::Class->meta()'s wrapped method metaclass} );
-    ok( My::Class->meta()->method_metaclass()->meta()->does_role('Role::Foo'),
-        '... My::Class->meta() still does Role::Foo' );
-    ok( My::Class->meta()->meta()->does_role('Role::Foo'),
-        '... My::Class->meta() still does Role::Foo' );
-    ok( My::Class->meta()->attribute_metaclass()->meta()->does_role('Role::Foo'),
-        q{... My::Class->meta()'s attribute metaclass still does Role::Foo} );
-
-    My::Class->meta()->add_after_method_modifier( 'bar' => sub { 'bar' } );
-    is( My::Class->meta()->get_method('bar')->foo(), 10,
-        '... call foo() on a wrapped method metaclass object' );
-}
-
-{
-    Mouse::Util::MetaRole::apply_metaclass_roles(
-        for_class              => 'My::Class',
-        instance_metaclass_roles => ['Role::Foo'],
-    );
-
-    ok( My::Class->meta()->instance_metaclass()->meta()->does_role('Role::Foo'),
-        q{apply Role::Foo to My::Class->meta()'s instance metaclass} );
-    ok( My::Class->meta()->meta()->does_role('Role::Foo'),
-        '... My::Class->meta() still does Role::Foo' );
-    ok( My::Class->meta()->attribute_metaclass()->meta()->does_role('Role::Foo'),
-        q{... My::Class->meta()'s attribute metaclass still does Role::Foo} );
-    ok( My::Class->meta()->method_metaclass()->meta()->does_role('Role::Foo'),
-        q{... My::Class->meta()'s method metaclass still does Role::Foo} );
-
-    is( My::Class->meta()->get_meta_instance()->foo(), 10,
-        '... call foo() on an instance metaclass object' );
-}
-
-{
-    Mouse::Util::MetaRole::apply_metaclass_roles(
-        for_class               => 'My::Class',
-        constructor_class_roles => ['Role::Foo'],
-    );
-
-    ok( My::Class->meta()->constructor_class()->meta()->does_role('Role::Foo'),
-        q{apply Role::Foo to My::Class->meta()'s constructor class} );
-    ok( My::Class->meta()->meta()->does_role('Role::Foo'),
-        '... My::Class->meta() still does Role::Foo' );
-    ok( My::Class->meta()->attribute_metaclass()->meta()->does_role('Role::Foo'),
-        q{... My::Class->meta()'s attribute metaclass still does Role::Foo} );
-    ok( My::Class->meta()->method_metaclass()->meta()->does_role('Role::Foo'),
-        q{... My::Class->meta()'s method metaclass still does Role::Foo} );
-    ok( My::Class->meta()->instance_metaclass()->meta()->does_role('Role::Foo'),
-        q{... My::Class->meta()'s instance metaclass still does Role::Foo} );
-
-    # Actually instantiating the constructor class is too freaking hard!
-    ok( My::Class->meta()->constructor_class()->can('foo'),
-        '... constructor class has a foo method' );
-}
-
-{
-    Mouse::Util::MetaRole::apply_metaclass_roles(
-        for_class              => 'My::Class',
-        destructor_class_roles => ['Role::Foo'],
-    );
-
-    ok( My::Class->meta()->destructor_class()->meta()->does_role('Role::Foo'),
-        q{apply Role::Foo to My::Class->meta()'s destructor class} );
-    ok( My::Class->meta()->meta()->does_role('Role::Foo'),
-        '... My::Class->meta() still does Role::Foo' );
-    ok( My::Class->meta()->attribute_metaclass()->meta()->does_role('Role::Foo'),
-        q{... My::Class->meta()'s attribute metaclass still does Role::Foo} );
-    ok( My::Class->meta()->method_metaclass()->meta()->does_role('Role::Foo'),
-        q{... My::Class->meta()'s method metaclass still does Role::Foo} );
-    ok( My::Class->meta()->instance_metaclass()->meta()->does_role('Role::Foo'),
-        q{... My::Class->meta()'s instance metaclass still does Role::Foo} );
-    ok( My::Class->meta()->constructor_class()->meta()->does_role('Role::Foo'),
-        q{... My::Class->meta()'s constructor class still does Role::Foo} );
-
-    # same problem as the constructor class
-    ok( My::Class->meta()->destructor_class()->can('foo'),
-        '... destructor class has a foo method' );
-}
-
-{
-    Mouse::Util::MetaRole::apply_metaclass_roles(
-        for_class                        => 'My::Role',
-        application_to_class_class_roles => ['Role::Foo'],
-    );
-
-    ok( My::Role->meta->application_to_class_class->meta->does_role('Role::Foo'),
-        q{apply Role::Foo to My::Role->meta's application_to_class class} );
-
-    is( My::Role->meta->application_to_class_class->new->foo, 10,
-        q{... call foo() on an application_to_class instance} );
-}
-
-{
-    Mouse::Util::MetaRole::apply_metaclass_roles(
-        for_class                        => 'My::Role',
-        application_to_role_class_roles => ['Role::Foo'],
-    );
-
-    ok( My::Role->meta->application_to_role_class->meta->does_role('Role::Foo'),
-        q{apply Role::Foo to My::Role->meta's application_to_role class} );
-    ok( My::Role->meta->application_to_class_class->meta->does_role('Role::Foo'),
-        q{... My::Role->meta's application_to_class class still does Role::Foo} );
-
-    is( My::Role->meta->application_to_role_class->new->foo, 10,
-        q{... call foo() on an application_to_role instance} );
-}
-
-{
-    Mouse::Util::MetaRole::apply_metaclass_roles(
-        for_class                           => 'My::Role',
-        application_to_instance_class_roles => ['Role::Foo'],
-    );
-
-    ok( My::Role->meta->application_to_instance_class->meta->does_role('Role::Foo'),
-        q{apply Role::Foo to My::Role->meta's application_to_instance class} );
-    ok( My::Role->meta->application_to_role_class->meta->does_role('Role::Foo'),
-        q{... My::Role->meta's application_to_role class still does Role::Foo} );
-    ok( My::Role->meta->application_to_class_class->meta->does_role('Role::Foo'),
-        q{... My::Role->meta's application_to_class class still does Role::Foo} );
-
-    is( My::Role->meta->application_to_instance_class->new->foo, 10,
-        q{... call foo() on an application_to_instance instance} );
-}
-
-{
-    Mouse::Util::MetaRole::apply_base_class_roles(
-        for_class => 'My::Class',
-        roles     => ['Role::Foo'],
-    );
-
-    ok( My::Class->meta()->does_role('Role::Foo'),
-        'apply Role::Foo to My::Class base class' );
-    is( My::Class->new()->foo(), 10,
-        '... call foo() on a My::Class object' );
-}
-
-{
-    package My::Class2;
-
-    use Mouse;
-}
-
-{
-    Mouse::Util::MetaRole::apply_metaclass_roles(
-        for_class                 => 'My::Class2',
-        metaclass_roles           => ['Role::Foo'],
-        attribute_metaclass_roles => ['Role::Foo'],
-        method_metaclass_roles    => ['Role::Foo'],
-        instance_metaclass_roles  => ['Role::Foo'],
-        constructor_class_roles   => ['Role::Foo'],
-        destructor_class_roles    => ['Role::Foo'],
-    );
-
-    ok( My::Class2->meta()->meta()->does_role('Role::Foo'),
-        'apply Role::Foo to My::Class2->meta()' );
-    is( My::Class2->meta()->foo(), 10,
-        '... and call foo() on that meta object' );
-    ok( My::Class2->meta()->attribute_metaclass()->meta()->does_role('Role::Foo'),
-        q{apply Role::Foo to My::Class2->meta()'s attribute metaclass} );
-    My::Class2->meta()->add_attribute( 'size', is => 'ro' );
-
-    is( My::Class2->meta()->get_attribute('size')->foo(), 10,
-        '... call foo() on an attribute metaclass object' );
-
-    ok( My::Class2->meta()->method_metaclass()->meta()->does_role('Role::Foo'),
-        q{apply Role::Foo to My::Class2->meta()'s method metaclass} );
-
-    My::Class2->meta()->add_method( 'bar' => sub { 'bar' } );
-    is( My::Class2->meta()->get_method('bar')->foo(), 10,
-        '... call foo() on a method metaclass object' );
-
-    ok( My::Class2->meta()->instance_metaclass()->meta()->does_role('Role::Foo'),
-        q{apply Role::Foo to My::Class2->meta()'s instance metaclass} );
-    is( My::Class2->meta()->get_meta_instance()->foo(), 10,
-        '... call foo() on an instance metaclass object' );
-
-    ok( My::Class2->meta()->constructor_class()->meta()->does_role('Role::Foo'),
-        q{apply Role::Foo to My::Class2->meta()'s constructor class} );
-    ok( My::Class2->meta()->constructor_class()->can('foo'),
-        '... constructor class has a foo method' );
-
-    ok( My::Class2->meta()->destructor_class()->meta()->does_role('Role::Foo'),
-        q{apply Role::Foo to My::Class2->meta()'s destructor class} );
-    ok( My::Class2->meta()->destructor_class()->can('foo'),
-        '... destructor class has a foo method' );
-}
-
-
-{
-    package My::Meta;
-
-    use Mouse::Exporter;
-    Mouse::Exporter->setup_import_methods( also => 'Mouse' );
-
-    sub init_meta {
-        shift;
-        my %p = @_;
-
-        Mouse->init_meta( %p, metaclass => 'My::Meta::Class' );
-    }
-}
-
-{
-    package My::Class3;
-
-    My::Meta->import();
-}
-
-
-{
-    Mouse::Util::MetaRole::apply_metaclass_roles(
-        for_class                 => 'My::Class3',
-        metaclass_roles           => ['Role::Foo'],
-    );
-
-    ok( My::Class3->meta()->meta()->does_role('Role::Foo'),
-        'apply Role::Foo to My::Class3->meta()' );
-    is( My::Class3->meta()->foo(), 10,
-        '... and call foo() on that meta object' );
-    ok( ( grep { $_ eq 'My::Meta::Class' } My::Class3->meta()->meta()->superclasses() ),
-        'apply_metaclass_roles() does not interfere with metaclass set via Mouse->init_meta()' );
-}
-
-{
-    package Role::Bar;
-    use Mouse::Role;
-    has 'bar' => ( is => 'ro', default => 200 );
-}
-
-{
-    package My::Class4;
-    use Mouse;
-}
-
-{
-    Mouse::Util::MetaRole::apply_metaclass_roles(
-        for_class                 => 'My::Class4',
-        metaclass_roles           => ['Role::Foo'],
-    );
-
-    ok( My::Class4->meta()->meta()->does_role('Role::Foo'),
-        'apply Role::Foo to My::Class4->meta()' );
-
-    Mouse::Util::MetaRole::apply_metaclass_roles(
-        for_class                 => 'My::Class4',
-        metaclass_roles           => ['Role::Bar'],
-    );
-
-    ok( My::Class4->meta()->meta()->does_role('Role::Bar'),
-        'apply Role::Bar to My::Class4->meta()' );
-    ok( My::Class4->meta()->meta()->does_role('Role::Foo'),
-        '... and My::Class4->meta() still does Role::Foo' );
-}
-
-{
-    package My::Class5;
-    use Mouse;
-
-    extends 'My::Class';
-}
-
-{
-    ok( My::Class5->meta()->meta()->does_role('Role::Foo'),
-        q{My::Class5->meta()'s does Role::Foo because it extends My::Class} );
-    ok( My::Class5->meta()->attribute_metaclass()->meta()->does_role('Role::Foo'),
-        q{My::Class5->meta()'s attribute metaclass also does Role::Foo} );
-    ok( My::Class5->meta()->method_metaclass()->meta()->does_role('Role::Foo'),
-        q{My::Class5->meta()'s method metaclass also does Role::Foo} );
-    ok( My::Class5->meta()->instance_metaclass()->meta()->does_role('Role::Foo'),
-        q{My::Class5->meta()'s instance metaclass also does Role::Foo} );
-    ok( My::Class5->meta()->constructor_class()->meta()->does_role('Role::Foo'),
-        q{My::Class5->meta()'s constructor class also does Role::Foo} );
-    ok( My::Class5->meta()->destructor_class()->meta()->does_role('Role::Foo'),
-        q{My::Class5->meta()'s destructor class also does Role::Foo} );
-}
-
-{
-    Mouse::Util::MetaRole::apply_metaclass_roles(
-        for_class       => 'My::Class5',
-        metaclass_roles => ['Role::Bar'],
-    );
-
-    ok( My::Class5->meta()->meta()->does_role('Role::Bar'),
-        q{apply Role::Bar My::Class5->meta()} );
-    ok( My::Class5->meta()->meta()->does_role('Role::Foo'),
-        q{... and My::Class5->meta() still does Role::Foo} );
-}
-
-{
-    package My::Class6;
-    use Mouse;
-
-    Mouse::Util::MetaRole::apply_metaclass_roles(
-        for_class       => 'My::Class6',
-        metaclass_roles => ['Role::Bar'],
-    );
-
-    extends 'My::Class';
-}
-
-{
-    ok( My::Class6->meta()->meta()->does_role('Role::Bar'),
-        q{apply Role::Bar My::Class6->meta() before extends} );
-    ok( My::Class6->meta()->meta()->does_role('Role::Foo'),
-        q{... and My::Class6->meta() does Role::Foo because My::Class6 extends My::Class} );
-}
-
-# This is the hack that used to be needed to work around the
-# _fix_metaclass_incompatibility problem. You called extends() (which
-# in turn calls _fix_metaclass_imcompatibility) _before_ you apply
-# more extensions in the subclass. We wabt to make sure this continues
-# to work in the future.
-{
-    package My::Class7;
-    use Mouse;
-
-    # In real usage this would go in a BEGIN block so it happened
-    # before apply_metaclass_roles was called by an extension.
-    extends 'My::Class';
-
-    Mouse::Util::MetaRole::apply_metaclass_roles(
-        for_class       => 'My::Class7',
-        metaclass_roles => ['Role::Bar'],
-    );
-}
-
-{
-    ok( My::Class7->meta()->meta()->does_role('Role::Bar'),
-        q{apply Role::Bar My::Class7->meta() before extends} );
-    ok( My::Class7->meta()->meta()->does_role('Role::Foo'),
-        q{... and My::Class7->meta() does Role::Foo because My::Class7 extends My::Class} );
-}
-
-{
-    package My::Class8;
-    use Mouse;
-
-    Mouse::Util::MetaRole::apply_metaclass_roles(
-        for_class                 => 'My::Class8',
-        metaclass_roles           => ['Role::Bar'],
-        attribute_metaclass_roles => ['Role::Bar'],
-    );
-
-    extends 'My::Class';
-}
-
-{
-    ok( My::Class8->meta()->meta()->does_role('Role::Bar'),
-        q{apply Role::Bar My::Class8->meta() before extends} );
-    ok( My::Class8->meta()->meta()->does_role('Role::Foo'),
-        q{... and My::Class8->meta() does Role::Foo because My::Class8 extends My::Class} );
-    ok( My::Class8->meta()->attribute_metaclass->meta()->does_role('Role::Bar'),
-        q{apply Role::Bar to My::Class8->meta()->attribute_metaclass before extends} );
-    ok( My::Class8->meta()->attribute_metaclass->meta()->does_role('Role::Foo'),
-        q{... and My::Class8->meta()->attribute_metaclass does Role::Foo because My::Class8 extends My::Class} );
-}
-
-
-{
-    package My::Class9;
-    use Mouse;
-
-    Mouse::Util::MetaRole::apply_metaclass_roles(
-        for_class                 => 'My::Class9',
-        attribute_metaclass_roles => ['Role::Bar'],
-    );
-
-    extends 'My::Class';
-}
-
-{
-    ok( My::Class9->meta()->meta()->does_role('Role::Foo'),
-        q{... and My::Class9->meta() does Role::Foo because My::Class9 extends My::Class} );
-    ok( My::Class9->meta()->attribute_metaclass->meta()->does_role('Role::Bar'),
-        q{apply Role::Bar to My::Class9->meta()->attribute_metaclass before extends} );
-    ok( My::Class9->meta()->attribute_metaclass->meta()->does_role('Role::Foo'),
-        q{... and My::Class9->meta()->attribute_metaclass does Role::Foo because My::Class9 extends My::Class} );
-}
-
-# This tests applying meta roles to a metaclass's metaclass. This is
-# completely insane, but is exactly what happens with
-# Fey::Meta::Class::Table. It's a subclass of Mouse::Meta::Class
-# itself, and then it _uses_ MouseX::ClassAttribute, so the metaclass
-# for Fey::Meta::Class::Table does a role.
-#
-# At one point this caused a metaclass incompatibility error down
-# below, when we applied roles to the metaclass of My::Class10. It's
-# all madness but as long as the tests pass we're happy.
-{
-    package My::Meta::Class2;
-    use Mouse;
-    extends 'Mouse::Meta::Class';
-
-    Mouse::Util::MetaRole::apply_metaclass_roles(
-        for_class       => 'My::Meta::Class2',
-        metaclass_roles => ['Role::Foo'],
-    );
-}
-
-{
-    package My::Object;
-    use Mouse;
-    extends 'Mouse::Object';
-}
-
-{
-    package My::Meta2;
-
-    use Mouse::Exporter;
-    Mouse::Exporter->setup_import_methods( also => 'Mouse' );
-
-    sub init_meta {
-        shift;
-        my %p = @_;
-
-        Mouse->init_meta(
-            %p,
-            metaclass  => 'My::Meta::Class2',
-            base_class => 'My::Object',
-        );
-    }
-}
-
-{
-    package My::Class10;
-    My::Meta2->import;
-
-    Mouse::Util::MetaRole::apply_metaclass_roles(
-        for_class       => 'My::Class10',
-        metaclass_roles => ['Role::Bar'],
-    );
-}
-
-{
-    ok( My::Class10->meta()->meta()->meta()->does_role('Role::Foo'),
-        q{My::Class10->meta()->meta() does Role::Foo } );
-    ok( My::Class10->meta()->meta()->does_role('Role::Bar'),
-        q{My::Class10->meta()->meta() does Role::Bar } );
-    ok( My::Class10->meta()->isa('My::Meta::Class2'),
-        q{... and My::Class10->meta still isa(My::Meta::Class2)} );
-    ok( My::Class10->isa('My::Object'),
-        q{... and My::Class10 still isa(My::Object)} );
-}
-
-{
-    package My::Constructor;
-
-    use base 'Mouse::Meta::Method::Constructor';
-}
-
-{
-    package My::Class11;
-
-    use Mouse;
-
-    __PACKAGE__->meta->constructor_class('My::Constructor');
-
-    Mouse::Util::MetaRole::apply_metaclass_roles(
-        for_class       => 'My::Class11',
-        metaclass_roles => ['Role::Foo'],
-    );
-}
-
-{
-    ok( My::Class11->meta()->meta()->does_role('Role::Foo'),
-        q{My::Class11->meta()->meta() does Role::Foo } );
-    is( My::Class11->meta()->constructor_class, 'My::Constructor',
-        q{... and explicitly set constructor_class value is unchanged)} );
-}
-
-{
-    package ExportsMouse;
-
-    Mouse::Exporter->setup_import_methods(
-        also        => 'Mouse',
-    );
-
-    sub init_meta {
-        shift;
-        my %p = @_;
-        Mouse->init_meta(%p);
-        return Mouse::Util::MetaRole::apply_metaclass_roles(
-            for_class       => $p{for_class},
-            # Causes us to recurse through init_meta, as we have to
-            # load MyMetaclassRole from disk.
-           metaclass_roles => [qw/MyMetaclassRole/],
-        );
-    }
-}
-
-lives_ok {
-    package UsesExportedMouse;
-    ExportsMouse->import;
-} 'import module which loads a role from disk during init_meta';
-
-{
-    package Foo::Meta::Role;
-
-    use Mouse::Role;
-}
-{
-    package Foo::Role;
-
-    Mouse::Exporter->setup_import_methods(
-        also        => 'Mouse::Role',
-    );
-
-    sub init_meta {
-        shift;
-        my %p = @_;
-        Mouse::Role->init_meta(%p);
-        return Mouse::Util::MetaRole::apply_metaclass_roles(
-            for_class              => $p{for_class},
-            method_metaclass_roles => [ 'Foo::Meta::Role', ],
-        );
-    }
-}
-{
-    package Role::Baz;
-
-    Foo::Role->import;
-
-    sub bla {}
-}
-{
-    package My::Class12;
-
-    use Mouse;
-
-    with( 'Role::Baz' );
-}
-{
-    ok(
-        My::Class12->meta->does_role( 'Role::Baz' ),
-        'role applied'
-    );
-    my $method = My::Class12->meta->get_method( 'bla' );
-    ok(
-        $method->meta->does_role( 'Foo::Meta::Role' ),
-        'method_metaclass_role applied'
-    );
-}
-
-{
-    package Parent;
-    use Mouse;
-
-    Mouse::Util::MetaRole::apply_metaclass_roles(
-        for_class               => __PACKAGE__,
-        constructor_class_roles => ['Role::Foo'],
-    );
-}
-
-{
-    package Child;
-
-    use Mouse;
-    extends 'Parent';
-}
-
-{
-    ok(
-        Parent->meta->constructor_class->meta->can('does_role')
-            && Parent->meta->constructor_class->meta->does_role('Role::Foo'),
-        'Parent constructor class has metarole from Parent'
-    );
-
-TODO:
-    {
-        local $TODO
-            = 'Mouse does not see that the child differs from the parent because it only checks the class and instance metaclasses do determine compatibility';
-        ok(
-            Child->meta->constructor_class->meta->can('does_role')
-                && Child->meta->constructor_class->meta->does_role(
-                'Role::Foo'),
-            'Child constructor class has metarole from Parent'
-        );
-    }
-}