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 => 2;
   7 use Test::Exception;
   8
   9 ;
  10
  11 lives_ok {
  12     package MouseX::Attribute::Test;
  13     use Mouse::Role;
  14 } 'creating custom attribute "metarole" is okay';
  15
  16 lives_ok {
  17     package Mouse::Meta::Attribute::Custom::Test;
  18     use Mouse;
  19
  20     extends 'Mouse::Meta::Attribute';
  21     with 'MouseX::Attribute::Test';
  22 } 'custom attribute metaclass extending role is okay';