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