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;
8 $TODO = q{Mouse is not yet completed};
17 package Consumer::Basic;
22 package Consumer::Excludes;
25 with 'Role::Foo' => { -excludes => 'foo' };
27 package Consumer::Aliases;
30 with 'Role::Foo' => { -alias => { 'foo' => 'role_foo' } };
32 package Consumer::Overrides;
40 my @basic = Consumer::Basic->meta->role_applications;
41 my @excludes = Consumer::Excludes->meta->role_applications;
42 my @aliases = Consumer::Aliases->meta->role_applications;
43 my @overrides = Consumer::Overrides->meta->role_applications;
50 my $basic = $basic[0];
51 my $excludes = $excludes[0];
52 my $aliases = $aliases[0];
53 my $overrides = $overrides[0];
55 isa_ok($basic, 'Mouse::Meta::Role::Application');
56 isa_ok($excludes, 'Mouse::Meta::Role::Application');
57 isa_ok($aliases, 'Mouse::Meta::Role::Application');
58 isa_ok($overrides, 'Mouse::Meta::Role::Application');
60 is($basic->role, Role::Foo->meta);
61 is($excludes->role, Role::Foo->meta);
62 is($aliases->role, Role::Foo->meta);
63 is($overrides->role, Role::Foo->meta);
65 is($basic->class, Consumer::Basic->meta);
66 is($excludes->class, Consumer::Excludes->meta);
67 is($aliases->class, Consumer::Aliases->meta);
68 is($overrides->class, Consumer::Overrides->meta);
70 is_deeply($basic->get_method_aliases, {});
71 is_deeply($excludes->get_method_aliases, {});
72 is_deeply($aliases->get_method_aliases, { foo => 'role_foo' });
73 is_deeply($overrides->get_method_aliases, {});
75 is_deeply($basic->get_method_exclusions, []);
76 is_deeply($excludes->get_method_exclusions, ['foo']);
77 is_deeply($aliases->get_method_exclusions, []);
78 is_deeply($overrides->get_method_exclusions, []);