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

use strict;
use warnings FATAL => 'all';
use Test::More;

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

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

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

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