Commit | Line | Data |
41888e7d |
1 | use strict; |
fde8e43f |
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; |
41888e7d |
5 | use warnings; |
6 | { |
7 | package My::Role; |
8 | use Mouse::Role; |
9 | } |
10 | { |
11 | package SomeClass; |
12 | use Mouse -traits => 'My::Role'; |
13 | } |
14 | { |
15 | package SubClassUseBase; |
16 | use base qw/SomeClass/; |
17 | } |
18 | { |
19 | package SubSubClassUseBase; |
20 | use base qw/SubClassUseBase/; |
21 | } |
22 | |
fde8e43f |
23 | use Test::More; |
24 | $TODO = q{Mouse is not yet completed}; |
41888e7d |
25 | use Mouse::Util qw/find_meta does_role/; |
26 | |
27 | my $subsubclass_meta = Mouse->init_meta( for_class => 'SubSubClassUseBase' ); |
28 | ok does_role($subsubclass_meta, 'My::Role'), |
29 | 'SubSubClass metaclass does role from grandparent metaclass'; |
30 | my $subclass_meta = find_meta('SubClassUseBase'); |
31 | ok does_role($subclass_meta, 'My::Role'), |
32 | 'SubClass metaclass does role from parent metaclass'; |
fde8e43f |
33 | |
34 | done_testing; |