use strict;
use warnings;
use Test::More tests => 8;
use HTML::FormFu;
use HTML::FormFu::Model::HashRef;
my %test = (
'name_2' => 'name_2',
'name_bar_foo' => 'name\\_bar\\_foo',
'name_2_bar' => 'name\\_2\\_bar',
'name_2.bar' => 'name_2.bar'
);
while ( my ( $k, $v ) = each %test ) {
is( HTML::FormFu::Model::HashRef::_escape_name($k), $v );
}
is( HTML::FormFu::Model::HashRef::_unescape_name('foo\\_bar'), 'foo_bar' );
is_deeply(
HTML::FormFu::Model::HashRef::_escape_hash( {
'name_2' => 'foo',
'name_bar_foo' => 'bar',
'name_2_bar' => 'baz',
'name_2.bar' => { 'bas_z' => 1 },
'bar_z' => [ { foo_w => 1, foo_2 => 2 } ],
}
),
{ 'name_2' => 'foo',
'name\\_bar\\_foo' => 'bar',
'name\\_2\\_bar' => 'baz',
'name_2.bar' => { 'bas\\_z' => 1 },
'bar\\_z' => [ { 'foo\\_w' => 1, foo_2 => 2 } ] } );
is_deeply(
HTML::FormFu::Model::HashRef::_unescape_hash( {
'name_2' => 'foo',
'name\\_bar\\_foo' => 'bar',
'name\\_2\\_bar' => 'baz',
'name_2.bar' => { 'bas\\_z' => 1 },
'bar\\_z' => [ { 'foo\\_w' => 1, foo_2 => 2 } ]
}
),
{ 'name_2' => 'foo',
'name_bar_foo' => 'bar',
'name_2_bar' => 'baz',
'name_2.bar' => { 'bas_z' => 1 },
'bar_z' => [ { foo_w => 1, foo_2 => 2 } ],
} );
my $form = HTML::FormFu->new;
$form->populate( {
elements =>
[ { name => 'foo' }, { name => 'bar' }, { name => 'foo_bar' } ] } );
$form->process( { foo => 1, bar => 2, foo_bar => 3 } );
is_deeply( $form->model('HashRef')->create,
{ foo => 1, bar => 2, foo_bar => 3 } );