use strict;
use warnings;

use Test::More 'no_plan';

use HTML::FormFu;

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

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

#$ENV{HTML_FORMFU_DEBUG_PROCESS} = 1;

# Valid
{
    $form->process( {
            a => '',
            b => '',
            c => '',
            d => '',
        } );

    ok( $form->submitted_and_valid );

    ok( $form->valid('a'), 'a valid' );
    ok( $form->valid('b'), 'b valid' );
    ok( $form->valid('c'), 'c valid' );
    ok( $form->valid('d'), 'd valid' );
}

# Valid
{
    $form->process( {
            a => '1',
            b => '',
            c => '',
            d => '',
        } );

    ok( $form->submitted_and_valid );

    ok( $form->valid('a'), 'a valid' );
    ok( $form->valid('b'), 'b valid' );
    ok( $form->valid('c'), 'c valid' );
    ok( $form->valid('d'), 'd valid' );
}

# Valid
{
    $form->process( {
            a => '',
            b => '1',
            c => '',
            d => '',
        } );

    ok( $form->submitted_and_valid );

    ok( $form->valid('a'), 'a valid' );
    ok( $form->valid('b'), 'b valid' );
    ok( $form->valid('c'), 'c valid' );
    ok( $form->valid('d'), 'd valid' );
}

# Valid
{
    $form->process( {
            a => '',
            b => '',
            c => '1',
            d => '',
        } );

    ok( $form->submitted_and_valid );

    ok( $form->valid('a'), 'a valid' );
    ok( $form->valid('b'), 'b valid' );
    ok( $form->valid('c'), 'c valid' );
    ok( $form->valid('d'), 'd valid' );
}

# Valid
{
    $form->process( {
            a => '',
            b => '',
            c => '',
            d => '1',
        } );

    ok( $form->submitted_and_valid );

    ok( $form->valid('a'), 'a valid' );
    ok( $form->valid('b'), 'b valid' );
    ok( $form->valid('c'), 'c valid' );
    ok( $form->valid('d'), 'd valid' );
}

# Valid
{
    $form->process( {
            a => '1',
            b => '1',
            c => '',
            d => '',
        } );

    ok( $form->submitted_and_valid );

    ok( $form->valid('a'), 'a valid' );
    ok( $form->valid('b'), 'b valid' );
    ok( $form->valid('c'), 'c valid' );
    ok( $form->valid('d'), 'd valid' );
}

# Valid
{
    $form->process( {
            a => '',
            b => '1',
            c => '1',
            d => '',
        } );

    ok( $form->submitted_and_valid );

    ok( $form->valid('a'), 'a valid' );
    ok( $form->valid('b'), 'b valid' );
    ok( $form->valid('c'), 'c valid' );
    ok( $form->valid('d'), 'd valid' );
}

# Invalid
{
    $form->process( {
            a => '1',
            b => '1',
            c => '1',
            d => '',
        } );

    ok( !$form->submitted_and_valid );

    ok( !$form->valid('a'), 'a not valid' );
    ok( $form->valid('b'), 'b valid' );
    ok( $form->valid('c'), 'c valid' );
    ok( $form->valid('d'), 'd valid' );
}

# Invalid
{
    $form->process( {
            a => '',
            b => '1',
            c => '1',
            d => '1',
        } );

    ok( !$form->submitted_and_valid );

    ok( !$form->valid('a'), 'a not valid' );
    ok( $form->valid('b'), 'b valid' );
    ok( $form->valid('c'), 'c valid' );
    ok( $form->valid('d'), 'd valid' );
}

# Invalid
{
    $form->process( {
            a => '1',
            b => '1',
            c => '1',
            d => '1',
        } );

    ok( !$form->submitted_and_valid );

    ok( !$form->valid('a'), 'a not valid' );
    ok( $form->valid('b'), 'b valid' );
    ok( $form->valid('c'), 'c valid' );
    ok( $form->valid('d'), 'd valid' );
}