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