use strict; use warnings; use Test::More tests => 1; use HTML::FormFu; use lib 't/lib'; use HTMLFormFu::TestLib; my $form = HTML::FormFu->new( { tt_args => { INCLUDE_PATH => 'share/templates/tt/xhtml' } } ); $form->id('form')->auto_id('%n%c'); my $foo = $form->element('Radiogroup')->name('foo')->values( [ 1, 2 ] ); my $foo_xhtml = qq{
}; is( "$foo", $foo_xhtml );