2 # This is automatically generated by author/import-moose-test.pl.
3 # DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
4 use t::lib::MooseCompat;
10 $TODO = q{Mouse is not yet completed};
12 use Mouse::Util::MetaRole;
16 package My::Meta::Class;
18 extends 'Mouse::Meta::Class';
23 package My::Meta::Attribute;
25 extends 'Mouse::Meta::Attribute';
30 package My::Meta::Method;
32 extends 'Mouse::Meta::Method';
37 package My::Meta::Instance;
39 extends 'Mouse::Meta::Instance';
46 has 'foo' => ( is => 'ro', default => 10 );
52 use metaclass 'My::Meta::Class';
59 use metaclass 'My::Meta::Class' => (
60 attribute_metaclass => 'My::Meta::Attribute',
61 method_metaclass => 'My::Meta::Method',
62 instance_metaclass => 'My::Meta::Instance',
69 Mouse::Util::MetaRole::apply_metaroles(
71 class_metaroles => { class => ['Role::Foo'] },
74 ok( My::Class->meta()->meta()->does_role('Role::Foo'),
75 'apply Role::Foo to My::Class->meta()' );
76 has_superclass( My::Class->meta(), 'My::Meta::Class',
77 'apply_metaroles works with metaclass.pm' );
81 Mouse::Util::MetaRole::apply_metaroles(
84 attribute => ['Role::Foo'],
85 method => ['Role::Foo'],
86 instance => ['Role::Foo'],
90 ok( My::Class2->meta()->attribute_metaclass()->meta()->does_role('Role::Foo'),
91 q{apply Role::Foo to My::Class2->meta()'s attribute metaclass} );
92 has_superclass( My::Class2->meta()->attribute_metaclass(), 'My::Meta::Attribute',
93 '... and this does not interfere with attribute metaclass set via metaclass.pm' );
94 ok( My::Class2->meta()->method_metaclass()->meta()->does_role('Role::Foo'),
95 q{apply Role::Foo to My::Class2->meta()'s method metaclass} );
96 has_superclass( My::Class2->meta()->method_metaclass(), 'My::Meta::Method',
97 '... and this does not interfere with method metaclass set via metaclass.pm' );
98 ok( My::Class2->meta()->instance_metaclass()->meta()->does_role('Role::Foo'),
99 q{apply Role::Foo to My::Class2->meta()'s instance metaclass} );
100 has_superclass( My::Class2->meta()->instance_metaclass(), 'My::Meta::Instance',
101 '... and this does not interfere with instance metaclass set via metaclass.pm' );
104 # like isa_ok but works with a class name, not just refs
110 my %supers = map { $_ => 1 } $thing->meta()->superclasses();
112 local $Test::Builder::Level = $Test::Builder::Level + 1;
114 ok( $supers{$parent}, $desc );