Moose-2.1405HEADMoose-2.1405master

1 files changed, 42 insertions, 0 deletions

diff --git a/t/roles/use_base_does.t b/t/roles/use_base_does.t
new file mode 100644
index 0000000..a3d5b41
--- /dev/null
+++ b/t/roles/use_base_does.t
@@ -0,0 +1,42 @@
+use strict;
+use warnings;
+use Test::More;
+
+{
+    package Foo::Role;
+    use Moose::Role;
+}
+
+{
+    package Foo;
+    use Moose;
+
+    with 'Foo::Role';
+}
+
+{
+    package Foo::Sub;
+    use parent -norequire => 'Foo';
+}
+
+{
+    package Foo::Sub2;
+    use parent -norequire => 'Foo';
+}
+
+{
+    package Foo::Sub3;
+    use parent -norequire => 'Foo';
+}
+
+{
+    package Foo::Sub4;
+    use parent -norequire => 'Foo';
+}
+
+ok(Foo::Sub->does('Foo::Role'), "class does Foo::Role");
+ok(Foo::Sub2->new->does('Foo::Role'), "object does Foo::Role");
+ok(!Foo::Sub3->does('Bar::Role'), "class doesn't do Bar::Role");
+ok(!Foo::Sub4->new->does('Bar::Role'), "object doesn't do Bar::Role");
+
+done_testing;