1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
use strict;
use warnings;
use Test::More tests => 1;
use lib 't/lib';
use HTML::FormFu;
my $form = HTML::FormFu->new( {
localize_class => 'HTMLFormFu::I18N',
tt_args => { INCLUDE_PATH => 'share/templates/tt/xhtml' },
} );
$form->element('Text')->name('foo')->label_loc('test_label')
->comment_loc('test_comment')->default_loc('test_default_value');
my $xhtml = qq{<div class="text comment label">
<label>My Label</label>
<input name="foo" type="text" value="My Default" />
<span class="comment">
My Comment
</span>
</div>};
is( $form->get_field('foo'), $xhtml );
|
