use strict; use warnings; use Test::More tests => 1; use HTML::FormFu; use DateTime; my $form = HTML::FormFu->new({ tt_args => { INCLUDE_PATH => 'share/templates/tt/xhtml' } }); $form->load_config_file('t/elements/date_year_reverse.yml'); my $dt = DateTime->new( day => 6, month => 8, year => 2010 ); $form->get_field('foo')->default($dt); $form->process; is( "$form", <

HTML