use strict;
use warnings;
use Test::More tests => 16;
use HTML::FormFu;
use DateTime;
my $dt = DateTime->new(
day => 6,
month => 8,
year => 2007,
hour => 1,
minute => 0,
);
my $form = HTML::FormFu->new(
{ tt_args => { INCLUDE_PATH => 'share/templates/tt/xhtml' } } );
$form->load_config_file('t/elements/datetime.yml');
$form->get_field('foo')->default($dt);
$form->process;
is( "$form", <
HTML
$form->process( {
foo_hour => '00',
foo_minute => '00',
foo_day => 30,
foo_month => 6,
foo_year => 2007,
bar_hour => '01',
bar_minute => '30',
bar_day => 1,
bar_month => 7,
bar_year => 2007,
} );
ok( $form->submitted_and_valid );
my $foo = $form->param('foo');
my $bar = $form->param('bar');
isa_ok( $foo, 'DateTime' );
ok( !ref $bar );
is( $foo, "06/30/2007 00:00" );
is( $bar, "01-07-2007 01:30" );
like( $form->get_field('foo'), qr/\Q