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

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