1use strict; 2use warnings; 3 4use Test::More tests => 2; 5 6use HTML::FormFu; 7 8my $form = HTML::FormFu->new( 9 { tt_args => { INCLUDE_PATH => 'share/templates/tt/xhtml' } } ); 10 11my $element = $form->element('File')->name('foo'); 12 13my $field_xhtml = qq{<div> 14<input name="foo" type="file" /> 15</div>}; 16 17is( "$element", $field_xhtml ); 18 19my $form_xhtml = <<EOF; 20<form action="" enctype="multipart/form-data" method="post"> 21$field_xhtml 22</form> 23EOF 24 25is( "$form", $form_xhtml ); 26 27