blob: d1790d467b8eeb87de8700dca88b0037e65d617e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
use strict;
use warnings;
use Test::More;
use Test::Fatal;
is( exception {
package MooseX::Attribute::Test;
use Moose::Role;
}, undef, 'creating custom attribute "metarole" is okay' );
is( exception {
package Moose::Meta::Attribute::Custom::Test;
use Moose;
extends 'Moose::Meta::Attribute';
with 'MooseX::Attribute::Test';
}, undef, 'custom attribute metaclass extending role is okay' );
done_testing;
|