projects
/
gitmo/Role-Tiny.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
6c592d9a1d21d1cdf7752a7c86d9c8affcb0a948
[gitmo/Role-Tiny.git]
/
t
/
role-duplication.t
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
12
like $@, qr/Duplicated/, 'duplicate role detected';
13
14
done_testing;