[gitmo/MooseX-Storage.git] / t / 200_combined_in_roles.t

use strict;
use warnings;
use Test::More tests => 1;
use Test::Fatal;

{
    package ClassOne;
    use Moose::Role;
    use MooseX::Storage;
}
{
    package ClassTwo;
    use Moose::Role;
    use MooseX::Storage;
}

is( exception {
    package CombineClasses;
    use Moose;
    with qw/ClassOne ClassTwo/;
}, undef, 'Can include two roles which both use MooseX::Storage');
Commit	Line	Data
f9143059	1	use strict;
	2	use warnings;
	3	use Test::More tests => 1;
9d3c60f5	4	use Test::Fatal;
f9143059	5
	6	{
	7	package ClassOne;
	8	use Moose::Role;
	9	use MooseX::Storage;
	10	}
	11	{
	12	package ClassTwo;
	13	use Moose::Role;
	14	use MooseX::Storage;
	15	}
	16
9d3c60f5	17	is( exception {
f9143059	18	package CombineClasses;
	19	use Moose;
	20	with qw/ClassOne ClassTwo/;
9d3c60f5	21	}, undef, 'Can include two roles which both use MooseX::Storage');
f9143059	22