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 $field = $form->element('Textarea')->name('foo'); 12 13# add more elements to test accessor output 14$form->element('Textarea')->name('bar')->default("foo\nbar")->cols(10)->rows(2); 15 16my $field_xhtml = qq{<div> 17<textarea name="foo" cols="40" rows="20"></textarea> 18</div>}; 19 20is( "$field", $field_xhtml ); 21 22my $form_xhtml = <<EOF; 23<form action="" method="post"> 24$field_xhtml 25<div> 26<textarea name="bar" cols="10" rows="2">foo 27bar</textarea> 28</div> 29</form> 30EOF 31 32is( "$form", $form_xhtml, 'stringified form' ); 33 34