t/08-role-composition.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5 use Test::Exception;
   6
   7 {
   8     package Role;
   9
  10     use Moose::Role;
  11     use MooseX::ClassAttribute;
  12
  13     class_has 'CA' => (
  14         is      => 'ro',
  15         isa     => 'HashRef',
  16         default => sub { {} },
  17     );
  18 }
  19
  20 {
  21     package Role2;
  22     use Moose::Role;
  23 }
  24
  25 {
  26     package Bar;
  27     use Moose;
  28
  29     with( 'Role2', 'Role' );
  30 }
  31
  32 {
  33     local $TODO = 'Class attributes are lost during role composition';
  34     can_ok( 'Bar', 'CA', );
  35 }
  36
  37 done_testing();