t/07-parameterized-role.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5 use Test::Exception;
   6
   7 plan skip_all =>
   8     'This test will not pass without changes to MooseX::Role::Parmeterized';
   9
  10 {
  11     package Role;
  12
  13     use MooseX::Role::Parameterized;
  14     use MooseX::ClassAttribute;
  15
  16     parameter foo => ( is => 'rw' );
  17
  18     role {
  19         my $p = shift;
  20
  21         class_has $p => ( is => 'rw' );
  22     };
  23 }
  24
  25 {
  26     package Class;
  27
  28     use Moose;
  29
  30     with 'Role' => { foo => 'foo' };
  31 }
  32
  33 my $instance = Class->new();
  34 isa_ok( $instance, 'Class' );
  35
  36 lives_and {
  37     $instance->foo('bar');
  38     is( $instance->foo(), 'bar' );
  39 }
  40 'used class attribute from parameterized role';
  41
  42 done_testing();