Moose-2.1405HEADMoose-2.1405master

1 files changed, 350 insertions, 0 deletions

diff --git a/t/exceptions/moose-meta-role-application-torole.t b/t/exceptions/moose-meta-role-application-torole.t
new file mode 100644
index 0000000..cd827f4
--- /dev/null
+++ b/t/exceptions/moose-meta-role-application-torole.t
@@ -0,0 +1,350 @@
+use strict;
+use warnings;
+
+use Test::More;
+use Test::Fatal;
+
+use Moose::Util 'find_meta';
+
+use Moose();
+
+{
+    {
+        package Foo;
+        use Moose::Role;
+        excludes 'Bar';
+    }
+
+    {
+        package Bar;
+        use Moose::Role;
+    }
+
+    my $exception = exception {
+        Moose::Meta::Role::Application::ToRole->check_role_exclusions( Bar->meta, Foo->meta );
+    };
+
+    like(
+        $exception,
+        qr/\QConflict detected: Foo excludes role 'Bar'/,
+        'Role Foo excludes Role Bar');
+
+    isa_ok(
+        $exception,
+        "Moose::Exception::ConflictDetectedInCheckRoleExclusions",
+        'Role Foo excludes Role Bar');
+
+    is(
+        $exception->role_name,
+        "Foo",
+        'Role Foo excludes Role Bar');
+
+    is(
+        find_meta($exception->role_name),
+        Foo->meta,
+        'Role Foo excludes Role Bar');
+
+    is(
+        $exception->excluded_role_name,
+        "Bar",
+        'Role Foo excludes Role Bar');
+
+    is(
+        find_meta($exception->excluded_role_name),
+        Bar->meta,
+        'Role Foo excludes Role Bar');
+}
+
+{
+    {
+        package Foo2;
+        use Moose::Role;
+        excludes 'Bar3';
+    }
+
+    {
+        package Bar2;
+        use Moose::Role;
+        with 'Bar3';
+    }
+
+    {
+        package Bar3;
+        use Moose::Role;
+    }
+
+    my $exception = exception {
+        Moose::Meta::Role::Application::ToRole->check_role_exclusions( Foo2->meta, Bar2->meta );
+    };
+
+    like(
+        $exception,
+        qr/\QThe role Bar2 does the excluded role 'Bar3'/,
+        'Role Bar2 does Role Bar3');
+
+    isa_ok(
+        $exception,
+        "Moose::Exception::RoleDoesTheExcludedRole",
+        'Role Bar2 does Role Bar3');
+
+    is(
+        $exception->second_role_name,
+        "Foo2",
+        'Role Bar2 does Role Bar3');
+
+    is(
+        find_meta($exception->second_role_name),
+        Foo2->meta,
+        'Role Bar2 does Role Bar3');
+
+    is(
+        $exception->excluded_role_name,
+        "Bar3",
+        'Role Bar2 does Role Bar3');
+
+    is(
+        find_meta($exception->excluded_role_name),
+        Bar3->meta,
+        'Role Bar2 does Role Bar3');
+
+    is(
+        $exception->role_name,
+        "Bar2",
+        'Role Bar2 does Role Bar3');
+
+    is(
+        find_meta($exception->role_name),
+        Bar2->meta,
+        'Role Bar2 does Role Bar3');
+}
+
+{
+    {
+        package Foo4;
+        use Moose::Role;
+
+        has 'foo' => (
+            is  => 'ro',
+            isa => 'Int'
+        );
+    }
+
+    {
+        package Bar4;
+        use Moose::Role;
+
+        has 'foo' => (
+            is  => 'ro',
+            isa => 'Int'
+        );
+    }
+
+    my $exception = exception {
+        Moose::Meta::Role::Application::ToRole->apply_attributes( Foo4->meta, Bar4->meta );
+    };
+
+    like(
+        $exception,
+        qr/\QRole 'Foo4' has encountered an attribute conflict while being composed into 'Bar4'. This is a fatal error and cannot be disambiguated. The conflicting attribute is named 'foo'./,
+        'Role Foo4 & Role Bar4 has one common attribute named "foo"');
+
+    isa_ok(
+        $exception,
+        "Moose::Exception::AttributeConflictInRoles",
+        'Role Foo4 & Role Bar4 has one common attribute named "foo"');
+
+    is(
+        $exception->role_name,
+        "Foo4",
+        'Role Foo4 & Role Bar4 has one common attribute named "foo"');
+
+    is(
+        find_meta($exception->role_name),
+        Foo4->meta,
+        'Role Foo4 & Role Bar4 has one common attribute named "foo"');
+
+    is(
+        $exception->second_role_name,
+        "Bar4",
+        'Role Foo4 & Role Bar4 has one common attribute named "foo"');
+
+    is(
+        find_meta($exception->second_role_name),
+        Bar4->meta,
+        'Role Foo4 & Role Bar4 has one common attribute named "foo"');
+
+    is(
+        $exception->attribute_name,
+        'foo',
+        'Role Foo4 & Role Bar4 has one common attribute named "foo"');
+}
+
+{
+    {
+        package Foo5;
+        use Moose::Role;
+
+        sub foo5 { "foo" }
+    }
+
+    my $exception = exception {
+        {
+            package Bar5;
+            use Moose::Role;
+            with 'Foo5' => {
+                -alias    => { foo5 => 'foo_in_bar' }
+            };
+
+            sub foo_in_bar { "test in foo" }
+        }
+    };
+
+    like(
+        $exception,
+        qr/\QCannot create a method alias if a local method of the same name exists/,
+        "Role Bar5 already has a method named foo_in_bar");
+
+    isa_ok(
+        $exception,
+        "Moose::Exception::CannotCreateMethodAliasLocalMethodIsPresent",
+        "Role Bar5 already has a method named foo_in_bar");
+
+    is(
+        $exception->role_name,
+        "Bar5",
+        "Role Bar5 already has a method named foo_in_bar");
+
+    is(
+        find_meta($exception->role_name),
+        Bar5->meta,
+        "Role Bar5 already has a method named foo_in_bar");
+
+    is(
+        $exception->role_being_applied_name,
+        "Foo5",
+        "Role Bar5 already has a method named foo_in_bar");
+
+    is(
+        find_meta($exception->role_being_applied_name),
+        Foo5->meta,
+        "Role Bar5 already has a method named foo_in_bar");
+
+    is(
+        $exception->aliased_method_name,
+        "foo_in_bar",
+        "Role Bar5 already has a method named foo_in_bar");
+
+    is(
+        $exception->method->name,
+        "foo5",
+        "Role Bar5 already has a method named foo_in_bar");
+}
+
+{
+    {
+        package Foo6;
+        use Moose::Role;
+
+        override foo6 => sub { "override foo6" };
+    }
+
+    my $exception = exception {
+        {
+            package Bar6;
+            use Moose::Role;
+            with 'Foo6';
+
+            sub foo6 { "test in foo6" }
+        }
+    };
+
+    like(
+        $exception,
+        qr/\QRole 'Foo6' has encountered an 'override' method conflict during composition (A local method of the same name as been found). This is a fatal error./,
+        "Role Foo6 is overriding a method named foo6, which is a local method in Bar6");
+
+    isa_ok(
+        $exception,
+        "Moose::Exception::OverrideConflictInComposition",
+        "Role Foo6 is overriding a method named foo6, which is a local method in Bar6");
+
+    is(
+        $exception->role_name,
+        "Bar6",
+        "Role Foo6 is overriding a method named foo6, which is a local method in Bar6");
+
+    is(
+        find_meta($exception->role_name),
+        Bar6->meta,
+        "Role Foo6 is overriding a method named foo6, which is a local method in Bar6");
+
+    is(
+        $exception->role_being_applied_name,
+        "Foo6",
+        "Role Foo6 is overriding a method named foo6, which is a local method in Bar6");
+
+    is(
+        find_meta($exception->role_being_applied_name),
+        Foo6->meta,
+        "Role Foo6 is overriding a method named foo6, which is a local method in Bar6");
+
+    is(
+        $exception->method_name,
+        "foo6",
+        "Role Foo6 is overriding a method named foo6, which is a local method in Bar6");
+}
+
+{
+    {
+        package Foo7;
+        use Moose::Role;
+
+        override foo7 => sub { "override foo7" };
+    }
+
+    my $exception = exception {
+        {
+            package Bar7;
+            use Moose::Role;
+            override foo7 => sub { "override foo7 in Bar7" };
+            with 'Foo7';
+        }
+    };
+
+    like(
+        $exception,
+        qr/\QRole 'Foo7' has encountered an 'override' method conflict during composition (Two 'override' methods of the same name encountered). This is a fatal error./,
+        "Roles Foo7 & Bar7, both have override foo7");
+
+    isa_ok(
+        $exception,
+        "Moose::Exception::OverrideConflictInComposition",
+        "Roles Foo7 & Bar7, both have override foo7");
+
+    is(
+        $exception->role_name,
+        "Bar7",
+        "Roles Foo7 & Bar7, both have override foo7");
+
+    is(
+        find_meta($exception->role_name),
+        Bar7->meta,
+        "Roles Foo7 & Bar7, both have override foo7");
+
+    is(
+        $exception->role_being_applied_name,
+        "Foo7",
+        "Roles Foo7 & Bar7, both have override foo7");
+
+    is(
+        find_meta($exception->role_being_applied_name),
+        Foo7->meta,
+        "Roles Foo7 & Bar7, both have override foo7");
+
+    is(
+        $exception->method_name,
+        "foo7",
+        "Roles Foo7 & Bar7, both have override foo7");
+}
+
+done_testing;