#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 4;
{
my $test_name = "checks for correct behavior when 'required'
is not specified; fails if _arrayify() does not return an empty list";
use Data::FormValidator;
my $input_profile = { optional => [qw( email )] };
my $validator = Data::FormValidator->new( { default => $input_profile } );
my $input_hashref = { email => 'bob@example.com' };
my ( $valids, $missings, $invalids, $unknowns );
eval
{
( $valids, $missings, $invalids, $unknowns ) =
$validator->validate( $input_hashref, 'default' );
};
is( $@, '', $test_name );
is( @$missings, 0, $test_name );
}
{
my $test_name = "arrayref with first element undef";
use Data::FormValidator::Results;
my $inputs = [ undef, 1, 2, 3, "Echo", "Foxtrot" ];
my $retval = Data::FormValidator::Results::_arrayify($inputs);
my @retval = Data::FormValidator::Results::_arrayify($inputs);
is( $retval, 6, "$test_name... in scalar context" );
is_deeply( \@retval, $inputs, "$test_name..in list context" );
}