view release on metacpan or  search on metacpan

t/method-conflicts.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More;

{
  package Local::R1;
  use Role::Tiny;
  sub method { 1 };
}

{
  package Local::R2;
  use Role::Tiny;
  sub method { 2 };
}

ok(
  !eval {
    package Local::C1;
    use Role::Tiny::With;
    with qw(Local::R1 Local::R2);
    1;
  },
  'method conflict dies',
);

like(
  $@,
  qr{^Due to a method name conflict between roles 'Local::R.' and 'Local::R.', the method 'method' must be implemented by 'Local::C1'},
  '... with correct error message',
);

ok(
  eval {
    package Local::C2;
    use Role::Tiny::With;
    with qw(Local::R1 Local::R2);
    sub method { 3 };
    1;
  },
  '... but can be resolved',
);

is(
  "Local::C2"->method,
  3,
  "... which works properly",
);

done_testing;