From: Hans Dieter Pearcey <hdp@weftsoar.net>
Date: Fri, 5 Feb 2010 00:35:06 +0000 (-0500)
Subject: add (TODO) tests for RT#46347 from Vince Veselosky
X-Git-Tag: 0.96~4
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0a72c036bf7be61d1cc80de8a616a81f35e09640;p=gitmo%2FMoose.git

add (TODO) tests for RT#46347 from Vince Veselosky
---

diff --git a/t/030_roles/045_role_compose_requires.t b/t/030_roles/045_role_compose_requires.t
new file mode 100755
index 0000000..7df7647
--- /dev/null
+++ b/t/030_roles/045_role_compose_requires.t
@@ -0,0 +1,96 @@
+#!/usr/bin/perl
+# https://rt.cpan.org/Ticket/Display.html?id=46347
+use strict;
+use Test::More tests =>14;
+use Test::Exception;
+
+{ package My::Role1;
+  use Moose::Role;
+  requires 'test_output';
+}
+{ package My::Role2;
+  use Moose::Role;
+  has test_output => (is => 'rw');
+  with 'My::Role1';
+}
+{ package My::Role3;
+  use Moose::Role;
+  sub test_output {}
+  with 'My::Role1';
+}
+{ package My::Role4;
+  use Moose::Role;
+  has test_output => (is => 'rw');
+}
+{ package My::Role5;
+  use Moose::Role;
+  sub test_output {}
+}
+{ package My::Base1;
+  use Moose;
+  has test_output => (is => 'rw');
+}
+{ package My::Base2;
+  use Moose;
+  sub test_output {}
+}
+
+# Roles providing attributes/methods should satisfy requires() of other
+# roles they consume.
+{ local $TODO = "role attributes don't satisfy method requirements";
+    lives_ok { package My::Test1; use Moose; with 'My::Role2'; } 
+    'role2(provides attribute) consumes role1';
+}
+
+lives_ok { package My::Test2; use Moose; with 'My::Role3'; }
+    'role3(provides method) consumes role1';
+
+# As I understand the design, Roles composed in the same with() statement
+# should NOT demonstrate ordering dependency. Alter these tests if that
+# assumption is false. -Vince Veselosky
+{ local $TODO = "role attributes don't satisfy method requirements";
+    lives_ok { package My::Test3; use Moose; with 'My::Role4','My::Role1'; }
+    'class consumes role4(provides attribute), role1';
+}
+
+{ local $TODO = "role attributes don't satisfy method requirements";
+    lives_ok { package My::Test4; use Moose; with 'My::Role1','My::Role4'; }
+    'class consumes role1, role4(provides attribute)';
+}
+
+lives_ok { package My::Test5; use Moose; with 'My::Role5','My::Role1'; }
+    'class consumes role5(provides method), role1';
+
+lives_ok { package My::Test6; use Moose; with 'My::Role1','My::Role5'; }
+    'class consumes role1, role5(provides method)';
+
+# Inherited methods/attributes should satisfy requires(), as long as 
+# extends() comes first in code order.
+lives_ok {package My::Test7; use Moose; extends 'My::Base1'; with 'My::Role1';}
+    'class extends base1(provides attribute), consumes role1';
+
+lives_ok {package My::Test8; use Moose; extends 'My::Base2'; with 'My::Role1';}
+    'class extends base2(provides method), consumes role1';
+
+# Attributes/methods implemented in class should satisfy requires()
+lives_ok {package My::Test9; use Moose; has 'test_output',is=>'rw'; with 'My::Role1';}
+    'class provides attribute, consumes role1';
+
+lives_ok {package My::Test10; use Moose; sub test_output{} with 'My::Role1'; }
+    'class provides method, consumes role1';
+
+# Roles composed in separate with() statements SHOULD demonstrate ordering 
+# dependency. See comment with tests 3-6 above.
+lives_ok { package My::Test11; use Moose; with 'My::Role4'; with 'My::Role1';}
+    'class consumes role4(provides attribute); consumes role1';
+
+dies_ok { package My::Test12; use Moose; with 'My::Role1'; with 'My::Role4';}
+    'class consumes role1; consumes role4(provides attribute)';
+
+lives_ok { package My::Test13; use Moose; with 'My::Role5'; with 'My::Role1';}
+    'class consumes role5(provides method); consumes role1';
+
+dies_ok { package My::Test14; use Moose; with 'My::Role1'; with 'My::Role5'; }
+    'class consumes role1; consumes role5(provides method)';
+
+