use strict;
use warnings FATAL => 'all';
use Test::More;

{
  package Role; use Role::Tiny;
  sub foo { my $orig = shift; 1 + $orig->(@_) };
  package Base; sub foo { 1 }
}

eval { Role::Tiny->create_class_with_roles('Base', qw(Role Role)); };

like $@, qr/Duplicated/, 'duplicate role detected';

done_testing;