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' } }); my $date = $form->element('Date')->name('foo')->strftime("%m/%d/%Y") ->year({ reference => 2007 }); $form->process; # check that setting default() after calling process() works correctly my $dt = DateTime->new( day => 6, month => 8, year => 2007 ); $date->default($dt); is( "$form", <

HTML