Add testcase for late metaclass reinitialisation losing methods.

bobtfish · Sep 20, 2009 · fc9ee14 · fc9ee14
1 parent cf88df8
commit fc9ee14
Showing 1 changed file with 35 additions and 0 deletions.
diff --git a/t/late_reinitialize.t b/t/late_reinitialize.t
@@ -0,0 +1,35 @@
+use strict;
+use warnings;
+use Test::More;
+
+{
+    package Foo;
+    use Moose::Role;
+    sub role_method {}
+}
+
+{
+    package BaseClass;
+    use Moose;
+    BEGIN { extends 'MooseX::MethodAttributes::Inheritable' }
+}
+
+{
+    package Bar;
+    use Moose;
+    BEGIN { ::ok(!Bar->meta->has_method('role_method')) }
+    BEGIN { ::ok(!Bar->can('role_method')) }
+    BEGIN { extends 'BaseClass'; with 'Foo' }
+    BEGIN { ::ok( Bar->meta->has_method('role_method')) }
+    BEGIN { ::ok( Bar->can('role_method')) }
+    use namespace::autoclean;
+    BEGIN { ::ok( Bar->meta->has_method('role_method')) }
+    BEGIN { ::ok( Bar->can('role_method')) }
+    sub foo : Bar {}
+    BEGIN { ::ok( Bar->meta->has_method('role_method')) }
+    BEGIN { ::ok( Bar->can('role_method')) }
+    ::ok( Bar->meta->has_method('role_method'));
+    ::ok( Bar->can('role_method'));
+}
+
+done_testing;