use strict;
use warnings;
use Test::More;
use Moose::Util::TypeConstraints;
use MooseX::Types::Structured qw(Dict Tuple Optional);
use MooseX::Types::Moose qw(Int Str ArrayRef HashRef);
# Create some TCs from which errors will be generated
my $simple_tuple = subtype 'simple_tuple', as Tuple[Int,Str];
my $simple_dict = subtype 'simple_dict', as Dict[name=>Str,age=>Int];
# Make sure the constraints we made validate as expected
ok $simple_tuple->check([1,'hello']), "simple_tuple validates: 1,'hello'";
ok !$simple_tuple->check(['hello',1]), "simple_tuple fails: 'hello',1";
ok $simple_dict->check({name=>'Vanessa',age=>34}), "simple_dict validates: {name=>'Vanessa',age=>34}";
ok !$simple_dict->check({name=>$simple_dict,age=>'hello'}), "simple_dict fails: {name=>Object, age=>String}";
## Let's check all the expected validation errors for tuple
like $simple_tuple->validate({a=>1,b=>2}),
qr/Validation failed for 'simple_tuple' with value .*{ a: 1, b: 2 }/,
'Wrong basic type';
like $simple_tuple->validate(['a','b']),
qr/failed for 'simple_tuple' with value .*\[ "a", "b" \]/,
'Correctly failed due to "a" not an Int';
like $simple_tuple->validate([1,$simple_tuple]),
qr/Validation failed for 'simple_tuple' with value .*\[ 1, MooseX::Meta::TypeConstraint::Structured/,
'Correctly failed due to object not a Str';
like $simple_tuple->validate([1]),
qr/Validation failed for 'Str' with value .*NULL/,
'Not enought values';
like $simple_tuple->validate([1,'hello','too many']),
qr/More values than Type Constraints!/,
'Too Many values';
## And the same thing for dicts [name=>Str,age=>Int]
like $simple_dict->validate([1,2]),
qr/ with value .*\[ 1, 2 \]/,
'Wrong basic type';
like $simple_dict->validate({name=>'John',age=>'foobar'}),
qr/failed for 'Int' with value .*foobar/,
'Correctly failed due to age not an Int';
like $simple_dict->validate({name=>$simple_dict,age=>1}),
qr/with value .*{ age: 1, name: MooseX:/,
'Correctly failed due to object not a Str';
like $simple_dict->validate({name=>'John'}),
qr/failed for 'Int' with value .*NULL/,
'Not enought values';
like $simple_dict->validate({name=>'Vincent', age=>15,extra=>'morethanIneed'}),
qr/More values than Type Constraints!/,
'Too Many values';
## TODO some with Optional (or Maybe) and slurpy
my $optional_tuple = subtype 'optional_tuple', as Tuple[Int,Optional[Str]];
my $optional_dict = subtype 'optional_dict', as Dict[name=>Str,age=>Optional[Int]];
like $optional_tuple->validate({a=>1,b=>2}),
qr/Validation failed for 'optional_tuple' with value .*{ a: 1, b: 2 }/,
'Wrong basic type';
like $optional_tuple->validate(['baz','b']),
qr/failed for 'Int' with value .*baz/,
'Correctly failed due to "baz" not an Int';
like $optional_tuple->validate([1,$simple_tuple]),
qr/failed for 'Optional\[Str\]' with value .*MooseX/,
'Correctly failed due to object not a Str';
like $optional_tuple->validate([1,'hello','too many']),
qr/More values than Type Constraints!/,
'Too Many values';
like $optional_dict->validate([1,2]),
qr/ with value .*\[ 1, 2 \]/,
'Wrong basic type';
like $optional_dict->validate({name=>'John',age=>'quux'}),
qr/Validation failed for 'Optional\[Int\]' with value .*quux/,
'Correctly failed due to age not an Int';
like $optional_dict->validate({name=>$simple_dict,age=>1}),
qr/with value .*{ age: 1, name: MooseX:/,
'Correctly failed due to object not a Str';
like $optional_dict->validate({name=>'Vincent', age=>15,extra=>'morethanIneed'}),
qr/More values than Type Constraints!/,
'Too Many values';
## Deeper constraints
my $deep_tuple = subtype 'deep_tuple',
as Tuple[
Int,
HashRef,
Dict[
name=>Str,
age=>Int,
],
];
ok $deep_tuple->check([1,{a=>2},{name=>'Vincent',age=>15}]),
'Good Constraint';
{
my $message = $deep_tuple->validate([1,{a=>2},{name=>'Vincent',age=>'Hello'}]);
like $message,
qr/Validation failed for 'Dict\[name,Str,age,Int\]'/,
'Example deeper error';
}
like $simple_tuple->validate(["aaa","bbb"]),
qr/'Int' with value .*aaa/,
'correct deeper error';
like $deep_tuple->validate([1,{a=>2},{name=>'Vincent1',age=>'Hello1'}]),
qr/'Int' with value .*Hello1/,
'correct deeper error';
## Success Tests...
ok !$deep_tuple->validate([1,{a=>2},{name=>'John',age=>40}]), 'Validates ok';
done_testing();