t-failing/030_roles/047_role_attribute_conflict.t

   1 use strict;
   2 # This is automatically generated by author/import-moose-test.pl.
   3 # DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
   4 use t::lib::MooseCompat;
   5 use warnings;
   6
   7 use Test::More;
   8 $TODO = q{Mouse is not yet completed};
   9 use Test::Exception;
  10
  11 {
  12     package My::Role1;
  13     use Mouse::Role;
  14
  15     has foo => (
  16         is => 'ro',
  17     );
  18
  19 }
  20
  21 {
  22     package My::Role2;
  23     use Mouse::Role;
  24
  25     has foo => (
  26         is => 'ro',
  27     );
  28
  29     ::throws_ok { with 'My::Role1' } qr/attribute conflict.+My::Role2.+foo/,
  30         'attribute conflict when composing one role into another';
  31 }
  32
  33 done_testing;