diff options
Diffstat (limited to 't/exceptions/meta-role.t')
| -rw-r--r-- | t/exceptions/meta-role.t | 242 |
1 files changed, 242 insertions, 0 deletions
diff --git a/t/exceptions/meta-role.t b/t/exceptions/meta-role.t new file mode 100644 index 0000000..2fb1013 --- /dev/null +++ b/t/exceptions/meta-role.t @@ -0,0 +1,242 @@ +use strict; +use warnings; + +use Test::More; +use Test::Fatal; + +{ + { + package JustATestRole; + use Moose::Role; + } + + { + package JustATestClass; + use Moose; + } + + my $class = JustATestClass->meta; + my $exception = exception { + JustATestRole->meta->add_attribute( $class ); + }; + + like( + $exception, + qr/\QCannot add a Moose::Meta::Class as an attribute to a role/, + "Roles cannot have a class as an attribute"); + + isa_ok( + $exception, + "Moose::Exception::CannotAddAsAnAttributeToARole", + "Roles cannot have a class as an attribute"); + + is( + $exception->role_name, + 'JustATestRole', + "Roles cannot have a class as an attribute"); + + is( + $exception->attribute_class, + "Moose::Meta::Class", + "Roles cannot have a class as an attribute"); +} + +{ + my $exception = exception { + package JustATestRole; + use Moose::Role; + + has '+attr' => ( + is => 'ro', + ); + }; + + like( + $exception, + qr/\Qhas '+attr' is not supported in roles/, + "Attribute Extension is not supported in roles"); + + isa_ok( + $exception, + "Moose::Exception::AttributeExtensionIsNotSupportedInRoles", + "Attribute Extension is not supported in roles"); + + is( + $exception->role_name, + 'JustATestRole', + "Attribute Extension is not supported in roles"); + + is( + $exception->attribute_name, + "+attr", + "Attribute Extension is not supported in roles"); +} + +{ + my $exception = exception { + package JustATestRole; + use Moose::Role; + + sub bar {} + + override bar => sub {}; + }; + + like( + $exception, + qr/\QCannot add an override of method 'bar' because there is a local version of 'bar'/, + "Cannot override bar, because it's a local method"); + + isa_ok( + $exception, + "Moose::Exception::CannotOverrideALocalMethod", + "Cannot override bar, because it's a local method"); + + is( + $exception->role_name, + 'JustATestRole', + "Cannot override bar, because it's a local method"); + + is( + $exception->method_name, + "bar", + "Cannot override bar, because it's a local method"); +} + +{ + { + package JustATestRole; + use Moose::Role; + } + + my $exception = exception { + JustATestRole->meta->add_role("xyz"); + }; + + like( + $exception, + qr/\QRoles must be instances of Moose::Meta::Role/, + "add_role to Moose::Meta::Role takes instances of Moose::Meta::Role"); + + isa_ok( + $exception, + "Moose::Exception::AddRoleToARoleTakesAMooseMetaRole", + "add_role to Moose::Meta::Role takes instances of Moose::Meta::Role"); + + is( + $exception->role_name, + 'JustATestRole', + "add_role to Moose::Meta::Role takes instances of Moose::Meta::Role"); + + is( + $exception->role_to_be_added, + "xyz", + "add_role to Moose::Meta::Role takes instances of Moose::Meta::Role"); +} + +{ + { + package Bar; + use Moose::Role; + } + + my $exception = exception { + Bar->meta->does_role; + }; + + like( + $exception, + qr/You must supply a role name to look for/, + "Cannot call does_role without a role name"); + + isa_ok( + $exception, + 'Moose::Exception::RoleNameRequiredForMooseMetaRole', + "Cannot call does_role without a role name"); + + is( + $exception->role_name, + 'Bar', + "Cannot call does_role without a role name"); +} + +{ + { + package Bar; + use Moose::Role; + } + + my $exception = exception { + Bar->meta->apply("xyz"); + }; + + like( + $exception, + qr/You must pass in an blessed instance/, + "apply takes a blessed instance"); + + isa_ok( + $exception, + 'Moose::Exception::ApplyTakesABlessedInstance', + "apply takes a blessed instance"); + + is( + $exception->role_name, + 'Bar', + "apply takes a blessed instance"); + + is( + $exception->param, + 'xyz', + "apply takes a blessed instance"); +} + +{ + my $exception = exception { + Moose::Meta::Role->create("TestRole", ( 'attributes' => 'bar')); + }; + + like( + $exception, + qr/You must pass a HASH ref of attributes/, + "create takes a HashRef of attributes"); + + isa_ok( + $exception, + "Moose::Exception::CreateTakesHashRefOfAttributes", + "create takes a HashRef of attributes"); +} + +{ + my $exception = exception { + Moose::Meta::Role->create("TestRole", ( 'methods' => 'bar')); + }; + + like( + $exception, + qr/You must pass a HASH ref of methods/, + "create takes a HashRef of methods"); + + isa_ok( + $exception, + "Moose::Exception::CreateTakesHashRefOfMethods", + "create takes a HashRef of methods"); +} + +{ + my $exception = exception { + Moose::Meta::Role->create("TestRole", ('roles', 'bar')); + }; + + like( + $exception, + qr/You must pass an ARRAY ref of roles/, + "create takes an ArrayRef of roles"); + + isa_ok( + $exception, + "Moose::Exception::CreateTakesArrayRefOfRoles", + "create takes an ArrayRef of roles"); +} + +done_testing; |