t/08-role-composition.t

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