1use strict;
2use warnings;
3
4use Test::More tests => 4;
5
6use HTML::FormFu;
7
8my $form = HTML::FormFu->new;
9
10$form->auto_fieldset( { nested_name => 'foo' } );
11
12# attach to field
13$form->element('Text')->name('bar')->inflator('DateTime')
14    ->parser( { strptime => '%d/%m/%Y' } )->strptime('%d/%m/%Y');
15
16$form->element('Text')->name('baz');
17
18# attach via form
19$form->inflator(
20    {   type     => 'DateTime',
21        name     => 'foo.baz',
22        parser   => { strptime => '%d/%m/%Y' },
23        strptime => { pattern => '%m-%d-%Y' },
24    } );
25
26$form->process(
27    {   'foo.bar' => '31/12/2006',
28        'foo.baz' => '1/07/2007',
29    } );
30
31{
32    my $value = $form->param('foo.bar');
33
34    isa_ok( $value, 'DateTime' );
35    is( $value, "31/12/2006" );
36}
37
38{
39    my $value = $form->param('foo.baz');
40
41    isa_ok( $value, 'DateTime' );
42    is( $value, "07-01-2007" );
43}
44
45