#!/usr/bin/perl

use Test::More;
use strict;

# Test FV_num_values and FV_num_values_between

use Data::FormValidator;
use Data::FormValidator::Constraints qw(:closures);

my $results = Data::FormValidator->check(
{
    num_values_pass => [qw(a b)],
    num_values_fail => [qw(a b)],
    num_values_between_pass => [qw(a)],
    num_values_between_fail => [qw(a b)],
},
{
    optional_regexp => qr/.*/,
    constraint_methods => {
        num_values_pass         => FV_num_values(2),
        num_values_fail         => FV_num_values(1),
        num_values_between_pass => FV_num_values_between(1,2),
        num_values_between_fail => FV_num_values_between(3,4),
    }
});

my $valid = $results->valid;
ok($valid->{num_values_pass}, 'FV_num_values pass');
ok($valid->{num_values_between_pass}, 'FV_num_values_between pass');

my $invalid = $results->invalid;
ok($invalid->{num_values_fail}, 'FV_num_values fail - one value requested, two found');
ok($invalid->{num_values_between_fail}, 'FV_num_values_between fail');

done_testing();