Handle pulling in a method from two different roles

[gitmo/Perl-Critic-Dynamic-Moose.git] / t / DynamicMoose / ClassOverridesRole.run

diff --git a/t/DynamicMoose/ClassOverridesRole.run b/t/DynamicMoose/ClassOverridesRole.run
index d5d8a15..75df069 100644 (file)
--- a/t/DynamicMoose/ClassOverridesRole.run
+++ b/t/DynamicMoose/ClassOverridesRole.run
@@ -47,3 +47,24 @@ with 'Role' => { excludes => 'foo' };
 
 sub foo {}
 
+#-----------------------------------------------------------------------------
+
+## name Name collision from two roles
+## failures 1
+## cut
+
+package Role::A;
+use Moose::Role;
+
+sub foo {}
+
+package Role::B;
+use Moose::Role;
+
+sub foo {}
+
+package Class;
+use Moose;
+with 'Role::A';
+with 'Role::B';
+