#!/usr/bin/env perl
#!/usr/bin/perl -w
use strict;
use warnings;
use lib ( '.', '../t' );
use Test::More tests => 4;
use Data::FormValidator;
# This tests for some constraint related bugs found by Chris Spiegel
my $input_profile = {
  required    => [qw( email subroutine )],
  constraints => {
    subroutine => sub { 0 },
  } };
my $validator = new Data::FormValidator( { default => $input_profile } );
my $input_hashref = { subroutine => 'anything' };
my ( $valids, $missings, $invalids, $unknowns ) = ( {}, [], [], [] );
( $valids, $missings, $invalids, $unknowns ) =
  $validator->validate( $input_hashref, 'default' );
# We need to make sure we do not get a reference back here
ok( not ref $invalids->[0] );
$input_profile = {
  required    => [qw( email)],
  constraints => {
    email => [ {
        constraint => 'email',
        name       => 'Your email address is invalid.',
      }
    ],
  } };
$validator = new Data::FormValidator( { default => $input_profile } );
eval {
  ( $valids, $missings, $invalids, $unknowns ) =
    $validator->validate( { email => 'invalid' }, 'default' );
};
is( $@, '', 'survived eval' );
is( $invalids->[0]->[0], 'email' );
is( $invalids->[0]->[1], 'Your email address is invalid.' );