Mouse::Util::does_role() respects $thing->does() method

[gitmo/Mouse.git] / t / 040_type_constraints / 027_parameterize_from.t

#!/usr/bin/perl
# This is automatically generated by author/import-moose-test.pl.
# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
use t::lib::MooseCompat;

use strict;
use warnings;

use Test::More;
use Test::Exception;

BEGIN {
    use_ok('Mouse::Util::TypeConstraints');
}

# testing the parameterize method

{
    my $parameterizable = subtype 'parameterizable_hashref', as 'HashRef';

    my $parameterized = subtype 'parameterized_hashref', as 'HashRef[Int]';

    my $int = Mouse::Util::TypeConstraints::find_type_constraint('Int');

    my $from_parameterizable = $parameterizable->parameterize($int);

    isa_ok $parameterizable,
        'Mouse::Meta::TypeConstraint', =>
        'Got expected type instance';

    package Test::Mouse::Meta::TypeConstraint;
    use Mouse;

    has parameterizable      => ( is => 'rw', isa => $parameterizable );
    has parameterized        => ( is => 'rw', isa => $parameterized );
    has from_parameterizable => ( is => 'rw', isa => $from_parameterizable );
}

# Create and check a dummy object

ok my $params = Test::Mouse::Meta::TypeConstraint->new() =>
    'Create Dummy object for testing';

isa_ok $params, 'Test::Mouse::Meta::TypeConstraint' =>
    'isa correct type';

# test parameterizable

lives_ok sub {
    $params->parameterizable( { a => 'Hello', b => 'World' } );
} => 'No problem setting parameterizable';

is_deeply $params->parameterizable,
    { a => 'Hello', b => 'World' } => 'Got expected values';

# test parameterized

lives_ok sub {
    $params->parameterized( { a => 1, b => 2 } );
} => 'No problem setting parameterized';

is_deeply $params->parameterized, { a => 1, b => 2 } => 'Got expected values';

throws_ok sub {
    $params->parameterized( { a => 'Hello', b => 'World' } );
    }, qr/Attribute \(parameterized\) does not pass the type constraint/ =>
    'parameterized throws expected error';

# test from_parameterizable

lives_ok sub {
    $params->from_parameterizable( { a => 1, b => 2 } );
} => 'No problem setting from_parameterizable';

is_deeply $params->from_parameterizable,
    { a => 1, b => 2 } => 'Got expected values';

throws_ok sub {
    $params->from_parameterizable( { a => 'Hello', b => 'World' } );
    },
    qr/Attribute \(from_parameterizable\) does not pass the type constraint/
    => 'from_parameterizable throws expected error';

done_testing;