t/roles/create_role_subclass.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Test::More;
   5 use Moose ();
   6
   7 do {
   8     package My::Meta::Role;
   9     use Moose;
  10     extends 'Moose::Meta::Role';
  11
  12     has test_serial => (
  13         is      => 'ro',
  14         isa     => 'Int',
  15         default => 1,
  16     );
  17
  18     no Moose;
  19 };
  20
  21 my $role = My::Meta::Role->create_anon_role;
  22 is($role->test_serial, 1, "default value for the serial attribute");
  23
  24 my $nine_role = My::Meta::Role->create_anon_role(test_serial => 9);
  25 is($nine_role->test_serial, 9, "parameter value for the serial attribute");
  26
  27 done_testing;