add a couple of todo tests

[gitmo/Moose.git] / t / 600_todo_tests / 006_required_role_accessors.t

diff --git a/t/600_todo_tests/006_required_role_accessors.t b/t/600_todo_tests/006_required_role_accessors.t
new file mode 100644 (file)
index 0000000..fed49f8
--- /dev/null
+++ b/t/600_todo_tests/006_required_role_accessors.t
@@ -0,0 +1,58 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+use Test::Exception;
+
+{
+    package Foo::API;
+    use Moose::Role;
+
+    requires 'foo';
+}
+
+{
+    package Foo;
+    use Moose::Role;
+
+    has foo => (is => 'ro');
+
+    with 'Foo::API';
+}
+
+{
+    package Foo::Class;
+    use Moose;
+    { our $TODO; local $TODO = "role accessors don't satisfy other role requires";
+    ::lives_ok { with 'Foo' } 'requirements are satisfied properly';
+    }
+}
+
+{
+    package Bar;
+    use Moose::Role;
+
+    requires 'baz';
+
+    has bar => (is => 'ro');
+}
+
+{
+    package Baz;
+    use Moose::Role;
+
+    requires 'bar';
+
+    has baz => (is => 'ro');
+}
+
+{
+    package BarBaz;
+    use Moose;
+
+    { our $TODO; local $TODO = "role accessors don't satisfy other role requires";
+    ::lives_ok { with qw(Bar Baz) } 'requirements are satisfied properly';
+    }
+}
+
+done_testing;