The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;

use Test::More tests => 3;

use HTML::FormFu;
use lib 't/lib';
use HTMLFormFu::TestLib;

my $form = HTML::FormFu->new;

$form->load_config_file(
    't/repeatable/repeatable/constraints/repeatable_any.yml');

# Valid
{
    $form->process( {
            outer_count   => 3,
            foo_1         => 'a',
            foo_2         => '',
            foo_3         => '',
            inner_count_1 => 2,
            foo_1_1       => '',
            foo_1_2       => 'b',
            inner_count_2 => 3,
            foo_2_1       => '',
            foo_2_2       => '',
            foo_2_3       => 'c',
            inner_count_3 => 1,
            foo_3_1       => 'd',
        } );

    ok( $form->submitted_and_valid );
}

# Missing - Invalid
{
    $form->process( {
            outer_count   => 3,
            foo_1         => '',
            foo_2         => '',
            foo_3         => '',
            inner_count_1 => 2,
            foo_1_1       => '',
            foo_1_2       => 'b',
            inner_count_2 => 3,
            foo_2_1       => '',
            foo_2_2       => '',
            foo_2_3       => 'c',
            inner_count_3 => 1,
            foo_3_1       => '',
        } );

    ok( !$form->submitted_and_valid );

    # error is only attached to first rep

    is_deeply( [ $form->has_errors ], [ 'foo_1', 'foo_3_1' ] );
}