t/030_roles/047_role_attribute_conflict.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5 use Test::Exception;
   6
   7 {
   8     package My::Role1;
   9     use Moose::Role;
  10
  11     has foo => (
  12         is => 'ro',
  13     );
  14
  15 }
  16
  17 {
  18     package My::Role2;
  19     use Moose::Role;
  20
  21     has foo => (
  22         is => 'ro',
  23     );
  24
  25     ::throws_ok { with 'My::Role1' } qr/attribute conflict.+My::Role2.+foo/,
  26         'attribute conflict when composing one role into another';
  27 }
  28
  29 done_testing;