initialize the metaclass when calling ->does

[gitmo/Moose.git] / t / roles / use_base_does.t

diff --git a/t/roles/use_base_does.t b/t/roles/use_base_does.t
new file mode 100644 (file)
index 0000000..49cc004
--- /dev/null
+++ b/t/roles/use_base_does.t
@@ -0,0 +1,43 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+
+{
+    package Foo::Role;
+    use Moose::Role;
+}
+
+{
+    package Foo;
+    use Moose;
+
+    with 'Foo::Role';
+}
+
+{
+    package Foo::Sub;
+    use base 'Foo';
+}
+
+{
+    package Foo::Sub2;
+    use base 'Foo';
+}
+
+{
+    package Foo::Sub3;
+    use base 'Foo';
+}
+
+{
+    package Foo::Sub4;
+    use base '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;