use strict;
use warnings;

use Test::More tests => 2;

use HTML::FormFu;

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

# Autoset on Select with optgroups

my $field = $form->element('Select')->name('foo');

$field->options( [
        ['item 1'],
        { value => 'item 2', },
        { group => [ ['item 3'], { value => 'item 4', } ], },
        ['item 5'],
        { group => [ { value => 'item 6', }, ['item 7'], ], },
    ] );

$field->constraint('AutoSet');

# Valid
{
    $form->process( { foo => 'item 6', } );

    # Constraint set has 7 values
    is_deeply(
        $form->get_constraint->set,
        [   'item 1', 'item 2', 'item 3', 'item 4', 'item 5', 'item 6', 'item 7'
        ],
    );

    ok( $form->valid('foo') );
}