[gitmo/Role-Tiny.git] / t / role-duplication.t

use strictures 1;
use Test::More;

{
  package Role; use Role::Tiny;
  around foo => sub { my $orig = shift; 1 + $orig->(@_) };
  package Base; sub foo { 1 }
}

eval { Role::Tiny->create_class_with_roles('Base', qw(Role Role)); };

like $@, qr/Duplicated/, 'duplicate role detected';

done_testing;
Commit	Line	Data
2c580674	1	use strictures 1;
	2	use Test::More;
	3
	4	{
	5	package Role; use Role::Tiny;
	6	around foo => sub { my $orig = shift; 1 + $orig->(@_) };
	7	package Base; sub foo { 1 }
	8	}
	9
	10	eval { Role::Tiny->create_class_with_roles('Base', qw(Role Role)); };
	11
836aea1b	12	like $@, qr/Duplicated/, 'duplicate role detected';
2c580674	13
2c580674	14	done_testing;