changelog for Moose-2.0801
[gitmo/Moose.git] / t / metaclasses / custom_attr_meta_as_role.t
CommitLineData
33e2e9de 1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
a28e50e4 6use Test::More;
b10dde3a 7use Test::Fatal;
33e2e9de 8
b10dde3a 9is( exception {
33e2e9de 10 package MooseX::Attribute::Test;
11 use Moose::Role;
b10dde3a 12}, undef, 'creating custom attribute "metarole" is okay' );
33e2e9de 13
b10dde3a 14is( 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
22done_testing;