use strict; use warnings; use Test::More tests => 5; use HTML::FormFu; { # element has explicit id my $form = HTML::FormFu->new({ tt_args => { INCLUDE_PATH => 'share/templates/tt/xhtml' } }); $form->element('Text')->name('foo')->id('fid')->label('Foo'); my $field_xhtml = qq{
}; is( $form->get_field('foo'), $field_xhtml ); } { # auto_id my $form = HTML::FormFu->new( { tt_args => { INCLUDE_PATH => 'share/templates/tt/xhtml' } } ); $form->auto_fieldset(1); $form->auto_id('%n'); $form->element('Text')->name('foo')->label('Foo'); my $field_xhtml = qq{
}; is( $form->get_field('foo'), $field_xhtml ); is( "$form", <
$field_xhtml
HTML } { # auto_id my $form = HTML::FormFu->new( { tt_args => { INCLUDE_PATH => 'share/templates/tt/xhtml' } } ); $form->auto_fieldset(1); $form->id('my_form'); $form->element('Text')->name('foo')->label('Foo')->auto_id('%f_%n'); my $field_xhtml = qq{
}; is( $form->get_field('foo'), $field_xhtml ); is( "$form", <
$field_xhtml
HTML }