t/role-duplication.t

   1 use strict;
   2 use warnings FATAL => 'all';
   3 use Test::More;
   4
   5 {
   6   package Role; use Role::Tiny;
   7   around foo => sub { my $orig = shift; 1 + $orig->(@_) };
   8   package Base; sub foo { 1 }
   9 }
  10
  11 eval { Role::Tiny->create_class_with_roles('Base', qw(Role Role)); };
  12
  13 like $@, qr/Duplicated/, 'duplicate role detected';
  14
  15 done_testing;