use strict; use warnings; use Test::More tests => 1; use HTML::FormFu; my $form = HTML::FormFu->new({ tt_args => { INCLUDE_PATH => 'share/templates/tt/xhtml' } }); my $multi = $form->element('Multi')->label('My multi'); $multi->element('Text')->name('bar')->label('My text'); $multi->element('Hidden')->name('baz'); $multi->element('Radio')->name('dot')->label('My radio'); $multi->element('Blank')->name('gzz'); $form->element( { type => 'Submit' } ); my $form_xhtml = <
EOF is( "$form", $form_xhtml, 'stringified form' );