use strict; use warnings; use Test::More tests => 2; use HTML::FormFu; my $form = HTML::FormFu->new({ tt_args => { INCLUDE_PATH => 'share/templates/tt/xhtml' } }); my $field = $form->element('Textarea')->name('foo'); # add more elements to test accessor output $form->element('Textarea')->name('bar')->default("foo\nbar")->cols(10)->rows(2); my $field_xhtml = qq{
}; is( "$field", $field_xhtml ); my $form_xhtml = < $field_xhtml
EOF is( "$form", $form_xhtml, 'stringified form' );