t/001-parameters.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Test::More tests => 14;
   5 use Test::Exception;
   6
   7 use MooseX::Role::Parameterized::Parameters;
   8
   9 my $p = MooseX::Role::Parameterized::Parameters->new;
  10 can_ok($p => 'meta');
  11
  12 do {
  13     package MyRole::NoParameters;
  14     use MooseX::Role::Parameterized;
  15 };
  16
  17 my $parameters_metaclass = MyRole::NoParameters->meta->parameters_metaclass;
  18 is($parameters_metaclass->get_all_attributes, 0, "no parameters");
  19
  20 do {
  21     package MyRole::LengthParameter;
  22     use MooseX::Role::Parameterized;
  23
  24     parameter length => (
  25         is       => 'ro',
  26         isa      => 'Int',
  27         required => 1,
  28     );
  29 };
  30
  31 $parameters_metaclass = MyRole::LengthParameter->meta->parameters_metaclass;
  32 is($parameters_metaclass->get_all_attributes, 1, "exactly one parameter");
  33
  34 my $parameter = ($parameters_metaclass->get_all_attributes)[0];
  35 isa_ok($parameter, 'MooseX::Role::Parameterized::Meta::Parameter');
  36 is($parameter->name, 'length', "parameter name");
  37 ok($parameter->is_required, "parameter is required");
  38
  39 throws_ok {
  40     MyRole::LengthParameter->meta->construct_parameters;
  41 } qr/^Attribute \(length\) is required/;
  42
  43 $p = MyRole::LengthParameter->meta->construct_parameters(
  44     length => 5,
  45 );
  46
  47 is($p->length, 5, "correct length");
  48
  49 throws_ok {
  50     $p->length(10);
  51 } qr/^Cannot assign a value to a read-only accessor/;
  52
  53 do {
  54     package MyRole::LengthParameter;
  55     use MooseX::Role::Parameterized;
  56
  57     parameter ['first_name', 'last_name'] => (
  58         is  => 'rw',
  59         isa => 'Str',
  60     );
  61 };
  62
  63 $parameters_metaclass = MyRole::LengthParameter->meta->parameters_metaclass;
  64 is($parameters_metaclass->get_all_attributes, 3, "three parameters");
  65
  66 for my $param_name ('first_name', 'last_name') {
  67     my $param = $parameters_metaclass->get_attribute($param_name);
  68     is($param->type_constraint, 'Str', "$param_name type constraint");
  69     ok(!$param->is_required, "$param_name is optional");
  70 }
  71