t/050_metaclasses/002_custom_attr_meta_as_role.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 3;
   7 use Test::Exception;
   8
   9 BEGIN {
  10     use_ok('Moose');
  11 };
  12
  13 lives_ok {
  14     package MooseX::Attribute::Test;
  15     use Moose::Role;
  16 } 'creating custom attribute "metarole" is okay';
  17
  18 lives_ok {
  19     package Moose::Meta::Attribute::Custom::Test;
  20     use Moose;
  21
  22     extends 'Moose::Meta::Attribute';
  23     with 'MooseX::Attribute::Test';
  24 } 'custom attribute metaclass extending role is okay';