1use strict; 2use warnings; 3 4use Test::More tests => 5; 5 6use HTML::FormFu; 7 8my $form = HTML::FormFu->new( 9 { tt_args => { INCLUDE_PATH => 'share/templates/tt/xhtml' } } ); 10 11$form->load_config_file('t/nested/elements/block_repeatable_multi_named.yml'); 12 13my $fieldset = $form->get_element; 14my $repeatable = $fieldset->get_element; 15my $multi = $repeatable->get_element; 16 17$form->process( 18 { 'counter' => 1, 19 'nested_1.foo' => 'aaa', 20 'nested_1.multi.bar' => 'bbb', 21 'nested_1.multi.baz' => 'ccc', 22 } ); 23 24ok( $form->submitted_and_valid ); 25 26is_deeply( 27 $form->params, 28 { nested_1 => { 29 foo => 'aaa', 30 multi => { 31 bar => 'bbb', 32 baz => 'ccc', 33 } } } ); 34 35is( $form->param_value('nested_1.foo'), 'aaa' ); 36is( $form->param_value('nested_1.multi.bar'), 'bbb' ); 37is( $form->param_value('nested_1.multi.baz'), 'ccc' ); 38