diff options
Diffstat (limited to 't/metaclasses/custom_attr_meta_with_roles.t')
-rw-r--r-- | t/metaclasses/custom_attr_meta_with_roles.t | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/t/metaclasses/custom_attr_meta_with_roles.t b/t/metaclasses/custom_attr_meta_with_roles.t new file mode 100644 index 0000000..d6d43bc --- /dev/null +++ b/t/metaclasses/custom_attr_meta_with_roles.t @@ -0,0 +1,39 @@ +use strict; +use warnings; + +use Test::More; + + +{ + package My::Custom::Meta::Attr; + use Moose; + + extends 'Moose::Meta::Attribute'; +} + +{ + package My::Fancy::Role; + use Moose::Role; + + has 'bling_bling' => ( + metaclass => 'My::Custom::Meta::Attr', + is => 'rw', + isa => 'Str', + ); +} + +{ + package My::Class; + use Moose; + + with 'My::Fancy::Role'; +} + +my $c = My::Class->new; +isa_ok($c, 'My::Class'); + +ok($c->meta->has_attribute('bling_bling'), '... got the attribute'); + +isa_ok($c->meta->get_attribute('bling_bling'), 'My::Custom::Meta::Attr'); + +done_testing; |