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->(@_) }; |
2c580674 | 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 | |
15 | done_testing; |