Commit | Line | Data |
f2391d17 |
1 | use strict; |
2 | use warnings; |
3 | { |
4 | package ParentClass; |
5 | use Moose; |
6 | } |
7 | { |
8 | package SomeClass; |
9 | use base 'ParentClass'; |
10 | } |
11 | { |
12 | package SubClassUseBase; |
13 | use base qw/SomeClass/; |
14 | use Moose; |
15 | } |
16 | |
17 | use Test::More tests => 1; |
18 | use Test::Exception; |
19 | |
ce9489ef |
20 | TODO: { |
21 | local $TODO = 'Metaclass incompatibility'; |
22 | |
23 | lives_ok { |
24 | Moose->init_meta(for_class => 'SomeClass'); |
25 | } 'Moose class => use base => Moose Class, then Moose->init_meta on middle class ok'; |
26 | } |
f2391d17 |
27 | |