use strict; use warnings; use Test::More tests => 1; 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->process; # simulate calling $form->model->default_values # without then calling $form->process my $foo_field = $form->get_field('foo'); $foo_field->default($dt); my $xhtml = qq{