use strict;
use warnings;
use Test::More tests => 8;
use HTML::FormFu;
use DateTime;
my $dt = DateTime->new(
day => 6,
month => 8,
year => 2007,
hour => 1,
minute => 0,
second => 13,
);
my $form = HTML::FormFu->new(
{ tt_args => { INCLUDE_PATH => 'share/templates/tt/xhtml' } } );
$form->load_config_file('t/elements/datetime_seconds.yml');
$form->get_field('foo')->default($dt);
$form->process;
is( "$form", <
HTML
$form->process( {
foo_hour => '00',
foo_minute => '00',
foo_second => '59',
foo_day => 30,
foo_month => 6,
foo_year => 2007,
} );
ok( $form->submitted_and_valid );
my $foo = $form->param('foo');
isa_ok( $foo, 'DateTime' );
is( $foo, "30/06/2007 00:00:59" );
like( $form->get_field('foo_day'), qr/\Q