Handle aliasing too

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

diff --git a/t/DynamicMoose/ClassOverridesRole.run b/t/DynamicMoose/ClassOverridesRole.run
index 75df069..1a62da9 100644 (file)
--- a/t/DynamicMoose/ClassOverridesRole.run
+++ b/t/DynamicMoose/ClassOverridesRole.run
@@ -68,3 +68,20 @@ use Moose;
 with 'Role::A';
 with 'Role::B';
 
+#-----------------------------------------------------------------------------
+
+## name Name collision with aliasing
+## failures 0
+## cut
+
+package Role;
+use Moose::Role;
+
+sub foo {}
+
+package Class;
+use Moose;
+with 'Role' => { alias => { foo => 'foo_bar' } };
+
+sub foo {}
+