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
|
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{<fieldset class="radiogroup">
<span>
<span>
<input name="foo" type="radio" value="1" id="foo1" />
<label for="foo1">1</label>
</span>
<span>
<input name="foo" type="radio" value="2" id="foo2" />
<label for="foo2">2</label>
</span>
</span>
</fieldset>};
is( "$foo", $foo_xhtml );
|
