Your IP : 216.73.216.1

Current Path : /usr/share/doc/perl-Moose/t/metaclasses/
Upload File :
Current File : //usr/share/doc/perl-Moose/t/metaclasses/custom_attr_meta_as_role.t

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;