Commit | Line | Data |
6cfa1e5e |
1 | #!/usr/bin/env perl |
c47cf415 |
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; |
6cfa1e5e |
5 | use strict; |
6 | use warnings; |
c47cf415 |
7 | use Test::More; |
8 | $TODO = q{Mouse is not yet completed}; |
6cfa1e5e |
9 | |
10 | do { |
11 | package Role::Foo; |
12 | use Mouse::Role; |
13 | |
14 | sub foo { } |
15 | |
16 | |
17 | package Consumer::Basic; |
18 | use Mouse; |
19 | |
20 | with 'Role::Foo'; |
21 | |
22 | package Consumer::Excludes; |
23 | use Mouse; |
24 | |
25 | with 'Role::Foo' => { -excludes => 'foo' }; |
26 | |
27 | package Consumer::Aliases; |
28 | use Mouse; |
29 | |
30 | with 'Role::Foo' => { -alias => { 'foo' => 'role_foo' } }; |
31 | |
32 | package Consumer::Overrides; |
33 | use Mouse; |
34 | |
35 | with 'Role::Foo'; |
36 | |
37 | sub foo { } |
38 | }; |
39 | |
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; |
44 | |
45 | is(@basic, 1); |
46 | is(@excludes, 1); |
47 | is(@aliases, 1); |
48 | is(@overrides, 1); |
49 | |
50 | my $basic = $basic[0]; |
51 | my $excludes = $excludes[0]; |
52 | my $aliases = $aliases[0]; |
53 | my $overrides = $overrides[0]; |
54 | |
c47cf415 |
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'); |
6cfa1e5e |
59 | |
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); |
64 | |
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); |
69 | |
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, {}); |
74 | |
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, []); |
79 | |
c47cf415 |
80 | done_testing; |