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' } } ); $form->auto_fieldset( { id => 'fs' } ); $form->element('Text')->name('foo'); $form->element('Text')->name('bar'); my $fs = $form->element('Fieldset'); $fs->element('Text')->name('baz'); $form->element('Text')->name('yam'); # xhtml output my $xhtml = <
EOF is( "$form", $xhtml );