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
|
use strict;
use warnings;
use Test::More tests => 8;
use HTML::FormFu::MultiForm;
# submit form 1
my $yaml_file = 't/multiform-nested-name/multiform.yml';
my $form2_hidden_value;
{
my $multi = HTML::FormFu::MultiForm->new;
$multi->load_config_file($yaml_file);
$multi->process( {
foo => 'abc',
'block.foo' => '123',
submit => 'Submit',
} );
ok( $multi->current_form->submitted_and_valid );
my $form2 = $multi->next_form;
my $hidden_field = $form2->get_field( { name => 'crypt' } );
$form2_hidden_value = $hidden_field->default;
}
# submit form 2
{
my $multi = HTML::FormFu::MultiForm->new({ tt_args => { INCLUDE_PATH => 'share/templates/tt/xhtml' } });
$multi->load_config_file($yaml_file);
$multi->process( {
crypt => $form2_hidden_value,
bar => 'def',
'block.bar' => '456',
submit => 'Submit',
} );
my $form = $multi->current_form;
ok( $form->submitted_and_valid );
my $params = $form->params;
is( $params->{foo}, 'abc' );
is( $params->{block}{foo}, '123' );
is( $params->{bar}, 'def' );
is( $params->{block}{bar}, '456' );
is( $params->{submit}, 'Submit' );
# does form 3 render ok?
like( "$multi", qr|<input name="baz" type="text" />| );
}
|
