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
26
27
28
29
30
31
32
33
34
35
36
37
|
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' } });
$form->auto_fieldset(1);
my $block = $form->element( {
type => 'Block',
tag => 'span',
content => 'Hello <World>!',
} );
$block->element( { name => "foo" } );
# because there's a content(), the block's elements should be ignored
my $block_xhtml = qq{<span>
Hello <World>!
</span>};
is( $block, $block_xhtml );
my $form_xhtml = <<EOF;
<form action="" method="post">
<fieldset>
$block_xhtml
</fieldset>
</form>
EOF
is( $form, $form_xhtml );
|
