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
|
use strict;
use warnings;
use Test::More tests => 7;
use HTML::FormFu;
use Clone ();
my $form = HTML::FormFu->new(
{ tt_args => { INCLUDE_PATH => 'share/templates/tt/xhtml' } } );
$form->default_args(
{ elements => {
Password => { render_value => 1, },
Block => { attributes => { class => 'block' }, },
Text => {
attributes => { class => 'custom' },
constraint => [
{ type => 'Regex',
regex => qr/\w/,
}
],
},
},
constraints => { MaxLength => { max => 99, }, },
} );
# take a deep copy of element_defaults, so we can check they've not been butchered, later
my $default_args = Clone::clone( $form->default_args );
$form->populate(
{ elements => [
{ type => 'Password',
name => 'foo',
constraints => [ { type => 'MaxLength' } ],
},
{ type => 'Text', name => 'bar' },
{ type => 'Block',
elements => [ { type => 'Text', name => 'baz' }, ],
},
],
} );
is( $form->get_field('foo')->render_value, 1 );
is( $form->get_field('foo')->get_constraint->max, 99 );
like( $form->get_field('bar'), qr/name="bar" [^>]* class="custom"/x );
is( $form->get_field('bar')->get_constraint->type, 'Regex' );
like( $form->get_element( { type => 'Block' } ), qr/div [^>]* class="block"/x );
like( $form->get_element( { type => 'Block' } )->get_field('baz'),
qr/name="baz" .* class="custom"/x );
# original default_args hashref hasn't been butchered
is_deeply( $default_args, $form->default_args );
|
