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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
use strict;
use warnings;
use Test::More;
use HTML::FormHandler::Test;
{
{
package Test::Form;
use HTML::FormHandler::Moose;
extends 'HTML::FormHandler';
has '+name' => ( default => 'test_text' );
has_field 'foo';
has_field 'bar';
has_field 'save' => ( type => 'Submit' );
}
my $form = Test::Form->new;
ok( $form, 'form built' );
$form->process;
my $rendered = $form->render;
my $expected =
'<form id="test_text" method="post">
<div class="form_messages"></div>
<div><label for="foo">Foo</label><input type="text" name="foo" id="foo" value="" />
</div>
<div><label for="bar">Bar</label><input type="text" name="bar" id="bar" value="" />
</div>
<div><input type="submit" name="save" id="save" value="Save" />
</div></form>';
is_html($rendered, $expected, 'simple form renders ok' );
}
{
{
package Test::Form::Compound;
use HTML::FormHandler::Moose;
extends 'HTML::FormHandler';
has '+name' => ( default => 'test_compound' );
has_field 'my_comp' => ( type => 'Compound' );
has_field 'my_comp.one';
has_field 'my_comp.two';
}
my $form = Test::Form::Compound->new;
ok( $form, 'form built' );
$form->process;
my $rendered = $form->render;
my $expected =
'<form id="test_compound" method="post">
<div class="form_messages"></div>
<div>
<label for="my_comp.one">One</label>
<input id="my_comp.one" name="my_comp.one" type="text" value="" />
</div>
<div>
<label for="my_comp.two">Two</label>
<input id="my_comp.two" name="my_comp.two" type="text" value="" />
</div>
</form>';
is_html( $rendered, $expected, 'got expected rendering for compound' );
}
{
{
package Test::Form::Repeatable;
use HTML::FormHandler::Moose;
extends 'HTML::FormHandler';
has '+name' => ( default => 'test_rep' );
has_field 'my_rep' => ( type => 'Repeatable' );
has_field 'my_rep.one';
has_field 'my_rep.two';
}
my $form = Test::Form::Repeatable->new;
$form->process;
my $rendered = $form->render;
# by default, repeatable instances are wrapped, with the class
# 'hfh-repinst'
my $expected =
'<form id="test_rep" method="post">
<div class="form_messages"></div>
<div class="hfh-repinst" id="my_rep.0">
<div>
<label for="my_rep.0.one">One</label>
<input id="my_rep.0.one" name="my_rep.0.one" type="text" value="" />
</div>
<div>
<label for="my_rep.0.two">Two</label>
<input id="my_rep.0.two" name="my_rep.0.two" type="text" value="" />
</div>
</div>
</form>';
is_html( $rendered, $expected, 'got expected rendering for repeatable');
}
done_testing;
|
