10 use_ok('Moose::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 = Moose::Util::TypeConstraints::find_type_constraint('Int');
22 my $from_parameterizable = $parameterizable->parameterize($int);
24 isa_ok $parameterizable,
25 'Moose::Meta::TypeConstraint::Parameterizable', =>
26 'Got expected type instance';
28 package Test::Moose::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::Moose::Meta::TypeConstraint::Parameterizable->new() =>
39 'Create Dummy object for testing';
41 isa_ok $params, 'Test::Moose::Meta::TypeConstraint::Parameterizable' =>
44 # test parameterizable
47 $params->parameterizable( { a => 'Hello', b => 'World' } );
48 }, undef, '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 }, undef, '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/, 'parameterized throws expected error' );
65 # test from_parameterizable
68 $params->from_parameterizable( { a => 1, b => 2 } );
69 }, undef, 'No problem setting from_parameterizable' );
71 is_deeply $params->from_parameterizable,
72 { a => 1, b => 2 } => 'Got expected values';
75 $params->from_parameterizable( { a => 'Hello', b => 'World' } );
76 }, qr/Attribute \(from_parameterizable\) does not pass the type constraint/, 'from_parameterizable throws expected error' );