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

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