Commit | Line | Data |
---|---|---|
6471a8ae | 1 | use strict; |
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 | } |
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 | |
15 | done_testing; |