diff options
author | Lorry Tar Creator <lorry-tar-importer@lorry> | 2015-06-06 17:50:16 +0000 |
---|---|---|
committer | Lorry Tar Creator <lorry-tar-importer@lorry> | 2015-06-06 17:50:16 +0000 |
commit | 5ac2026f7eed78958d69d051e7a8e993dcf51205 (patch) | |
tree | 298c3d2f08bdfe5689998b11892d72a897985be1 /t/bugs/apply_role_to_one_instance_only.t | |
download | Moose-tarball-5ac2026f7eed78958d69d051e7a8e993dcf51205.tar.gz |
Moose-2.1405HEADMoose-2.1405master
Diffstat (limited to 't/bugs/apply_role_to_one_instance_only.t')
-rw-r--r-- | t/bugs/apply_role_to_one_instance_only.t | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/t/bugs/apply_role_to_one_instance_only.t b/t/bugs/apply_role_to_one_instance_only.t new file mode 100644 index 0000000..36df900 --- /dev/null +++ b/t/bugs/apply_role_to_one_instance_only.t @@ -0,0 +1,43 @@ +use strict; +use warnings; +use Test::More; +use Test::Fatal; + +{ + package MyRole1; + use Moose::Role; + + sub a_role_method { 'foo' } +} + +{ + package MyRole2; + use Moose::Role; + # empty +} + +{ + package Foo; + use Moose; +} + +my $instance_with_role1 = Foo->new; +MyRole1->meta->apply($instance_with_role1); + +my $instance_with_role2 = Foo->new; +MyRole2->meta->apply($instance_with_role2); + +ok ((not $instance_with_role2->does('MyRole1')), + 'instance does not have the wrong role'); + +ok ((not $instance_with_role2->can('a_role_method')), + 'instance does not have methods from the wrong role'); + +ok (($instance_with_role1->does('MyRole1')), + 'role was applied to the correct instance'); + +is( exception { + is $instance_with_role1->a_role_method, 'foo' +}, undef, 'instance has correct role method' ); + +done_testing; |