[gitmo/Moose.git] / t / roles / role_attribute_conflict.t

use strict;
use warnings;

use Test::More;
use Test::Fatal;

{
    package My::Role1;
    use Moose::Role;

    has foo => (
        is => 'ro',
    );

}

{
    package My::Role2;
    use Moose::Role;

    has foo => (
        is => 'ro',
    );

    ::like( ::exception { with 'My::Role1' }, qr/attribute conflict.+My::Role2.+foo/, 'attribute conflict when composing one role into another' );
}

done_testing;
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;