Commit | Line | Data |
---|---|---|
1389deda | 1 | use strict; |
2 | use warnings; | |
3 | ||
4 | use Test::More; | |
b10dde3a | 5 | use Test::Fatal; |
1389deda | 6 | |
7 | { | |
8 | package My::Role1; | |
9 | use Moose::Role; | |
10 | ||
11 | has foo => ( | |
12 | is => 'ro', | |
13 | ); | |
14 | ||
15 | } | |
16 | ||
17 | { | |
18 | package My::Role2; | |
19 | use Moose::Role; | |
20 | ||
21 | has foo => ( | |
22 | is => 'ro', | |
23 | ); | |
24 | ||
b10dde3a | 25 | ::like( ::exception { with 'My::Role1' }, qr/attribute conflict.+My::Role2.+foo/, 'attribute conflict when composing one role into another' ); |
1389deda | 26 | } |
27 | ||
28 | done_testing; |