6 use Test::More tests => 12;
10 use_ok('Mouse::Util::TypeConstraints');
13 # testing the parameterize method
16 my $parameterizable = subtype 'parameterizable_hashref', as 'HashRef';
18 my $parameterized = subtype 'parameterized_hashref', as 'HashRef[Int]';
20 my $int = Mouse::Util::TypeConstraints::find_type_constraint('Int');
22 my $from_parameterizable = $parameterizable->parameterize($int);
24 isa_ok $parameterizable,
25 'Mouse::Meta::TypeConstraint::Parameterizable', =>
26 'Got expected type instance';
28 package Test::Mouse::Meta::TypeConstraint::Parameterizable;
31 has parameterizable => ( is => 'rw', isa => $parameterizable );
32 has parameterized => ( is => 'rw', isa => $parameterized );
33 has from_parameterizable => ( is => 'rw', isa => $from_parameterizable );
36 # Create and check a dummy object
38 ok my $params = Test::Mouse::Meta::TypeConstraint::Parameterizable->new() =>
39 'Create Dummy object for testing';
41 isa_ok $params, 'Test::Mouse::Meta::TypeConstraint::Parameterizable' =>
44 # test parameterizable
47 $params->parameterizable( { a => 'Hello', b => 'World' } );
48 } => 'No problem setting parameterizable';
50 is_deeply $params->parameterizable,
51 { a => 'Hello', b => 'World' } => 'Got expected values';
56 $params->parameterized( { a => 1, b => 2 } );
57 } => 'No problem setting parameterized';
59 is_deeply $params->parameterized, { a => 1, b => 2 } => 'Got expected values';
62 $params->parameterized( { a => 'Hello', b => 'World' } );
63 }, qr/Attribute \(parameterized\) does not pass the type constraint/ =>
64 'parameterized throws expected error';
66 # test from_parameterizable
69 $params->from_parameterizable( { a => 1, b => 2 } );
70 } => 'No problem setting from_parameterizable';
72 is_deeply $params->from_parameterizable,
73 { a => 1, b => 2 } => 'Got expected values';
76 $params->from_parameterizable( { a => 'Hello', b => 'World' } );
78 qr/Attribute \(from_parameterizable\) does not pass the type constraint/
79 => 'from_parameterizable throws expected error';