#!/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;