1 # See https://rt.cpan.org/Ticket/Display.html?id=46347
12 requires 'test_output';
18 has test_output => ( is => 'rw' );
32 has test_output => ( is => 'rw' );
44 has test_output => ( is => 'rw' );
53 # Roles providing attributes/methods should satisfy requires() of other
56 local $TODO = "role attributes don't satisfy method requirements";
57 is( exception { package My::Test1; use Moose; with 'My::Role2'; }, undef, 'role2(provides attribute) consumes role1' );
60 is( exception { package My::Test2; use Moose; with 'My::Role3'; }, undef, 'role3(provides method) consumes role1' );
62 # As I understand the design, Roles composed in the same with() statement
63 # should NOT demonstrate ordering dependency. Alter these tests if that
64 # assumption is false. -Vince Veselosky
66 local $TODO = "role attributes don't satisfy method requirements";
67 is( exception { package My::Test3; use Moose; with 'My::Role4', 'My::Role1'; }, undef, 'class consumes role4(provides attribute), role1' );
71 local $TODO = "role attributes don't satisfy method requirements";
72 is( exception { package My::Test4; use Moose; with 'My::Role1', 'My::Role4'; }, undef, 'class consumes role1, role4(provides attribute)' );
75 is( exception { package My::Test5; use Moose; with 'My::Role5', 'My::Role1'; }, undef, 'class consumes role5(provides method), role1' );
77 is( exception { package My::Test6; use Moose; with 'My::Role1', 'My::Role5'; }, undef, 'class consumes role1, role5(provides method)' );
79 # Inherited methods/attributes should satisfy requires(), as long as
80 # extends() comes first in code order.
86 }, undef, 'class extends base1(provides attribute), consumes role1' );
93 }, undef, 'class extends base2(provides method), consumes role1' );
95 # Attributes/methods implemented in class should satisfy requires()
100 has 'test_output', is => 'rw';
102 }, undef, 'class provides attribute, consumes role1' );
110 }, undef, 'class provides method, consumes role1' );
112 # Roles composed in separate with() statements SHOULD demonstrate ordering
113 # dependency. See comment with tests 3-6 above.
119 }, undef, 'class consumes role4(provides attribute); consumes role1' );
121 isnt( exception { package My::Test12; use Moose; with 'My::Role1'; with 'My::Role4'; }, undef, 'class consumes role1; consumes role4(provides attribute)' );
128 }, undef, 'class consumes role5(provides method); consumes role1' );
130 isnt( exception { package My::Test14; use Moose; with 'My::Role1'; with 'My::Role5'; }, undef, 'class consumes role1; consumes role5(provides method)' );