1use strict; 2use warnings; 3 4use Test::More tests => 1; 5 6use HTML::FormFu; 7use lib 't/lib'; 8use HTMLFormFu::TestLib; 9 10my $form = HTML::FormFu->new( 11 { tt_args => { INCLUDE_PATH => 'share/templates/tt/xhtml' } } ); 12 13$form->id('form')->auto_id('%n%c'); 14 15my $foo = $form->element('Radiogroup')->name('foo')->values( [ 1, 2 ] ); 16 17my $foo_xhtml = qq{<fieldset> 18<span> 19<span> 20<input name="foo" type="radio" value="1" id="foo1" /> 21<label for="foo1">1</label> 22</span> 23<span> 24<input name="foo" type="radio" value="2" id="foo2" /> 25<label for="foo2">2</label> 26</span> 27</span> 28</fieldset>}; 29 30is( "$foo", $foo_xhtml ); 31 32