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 11$form->auto_fieldset(1); 12 13my $block = $form->element( 14 { type => 'Src', 15 content_xml => 'Hello <i>World</i>!', 16 } ); 17 18my $block_xhtml = qq{ 19Hello <i>World</i>! 20}; 21 22is( $block, $block_xhtml ); 23 24my $form_xhtml = <<EOF; 25<form action="" method="post"> 26<fieldset> 27$block_xhtml 28</fieldset> 29</form> 30EOF 31 32is( $form, $form_xhtml ); 33 34