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;