Commit | Line | Data |
---|---|---|
f2aa2fe5 | 1 | use strict; |
2 | use warnings; | |
3272340d | 3 | |
87e80a25 | 4 | use Test::More; |
ddc8a57e | 5 | use Test::Exception; |
f2aa2fe5 | 6 | |
87e80a25 | 7 | { |
8 | package Role; | |
f2aa2fe5 | 9 | |
87e80a25 | 10 | use Moose::Role; |
11 | use MooseX::ClassAttribute; | |
f2aa2fe5 | 12 | |
87e80a25 | 13 | class_has 'CA' => ( |
14 | is => 'ro', | |
15 | isa => 'HashRef', | |
16 | default => sub { {} }, | |
17 | ); | |
18 | } | |
f2aa2fe5 | 19 | |
87e80a25 | 20 | { |
21 | package Role2; | |
22 | use Moose::Role; | |
23 | } | |
f2aa2fe5 | 24 | |
87e80a25 | 25 | { |
26 | package Bar; | |
27 | use Moose; | |
f2aa2fe5 | 28 | |
87e80a25 | 29 | with( 'Role2', 'Role' ); |
30 | } | |
f2aa2fe5 | 31 | |
87e80a25 | 32 | { |
33 | local $TODO = 'Class attributes are lost during role composition'; | |
34 | can_ok( 'Bar', 'CA', ); | |
f2aa2fe5 | 35 | } |
87e80a25 | 36 | |
37 | done_testing(); |