Commit | Line | Data |
---|---|---|
33e2e9de | 1 | #!/usr/bin/perl |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | ||
a28e50e4 | 6 | use Test::More; |
b10dde3a | 7 | use Test::Fatal; |
33e2e9de | 8 | |
b10dde3a | 9 | is( exception { |
33e2e9de | 10 | package MooseX::Attribute::Test; |
11 | use Moose::Role; | |
b10dde3a | 12 | }, undef, 'creating custom attribute "metarole" is okay' ); |
33e2e9de | 13 | |
b10dde3a | 14 | is( exception { |
33e2e9de | 15 | package Moose::Meta::Attribute::Custom::Test; |
16 | use Moose; | |
d03bd989 | 17 | |
33e2e9de | 18 | extends 'Moose::Meta::Attribute'; |
19 | with 'MooseX::Attribute::Test'; | |
b10dde3a | 20 | }, undef, 'custom attribute metaclass extending role is okay' ); |
a28e50e4 | 21 | |
22 | done_testing; |