projects
/
gitmo/Role-Tiny.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
more cleanup
[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 $@, 'Duplication', 'duplicate role detected';
13
14
done_testing;