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
|
use strict;
use warnings;
use Test::More;
{
package Hello::Form::Page;
use HTML::FormHandler::Moose;
extends 'HTML::FormHandler';
has '+html_prefix' => ( default => 0 );
has_field 'wizard_session_id' => ( type => 'Hidden' );
has_field 'cancel' => ( type => 'Submit', value => "Cancel" );
has_field 'prev' => ( type => 'Submit', value => "Prev" );
has_field 'next' => ( type => 'Submit', value => "Next" );
}
{
package Hello::Form::Page2;
use HTML::FormHandler::Moose;
extends 'Hello::Form::Page';
has_field 'organization' => ( type => 'Text' );
has_field 'mediums' => ( type => 'Repeatable', num_when_empty => 0 );
has_field 'mediums.id' => ( type => 'Integer' );
has_field 'mediums.tracklist' => ( type => 'Compound' );
has_field 'mediums.tracklist.id' => ( type => 'Integer' );
has_field 'mediums.tracklist.tracks' => ( type => 'Repeatable', num_when_empty => 0 );
has_field 'mediums.tracklist.tracks.id' => ( type => 'Integer' );
}
my $form = Hello::Form::Page2->new;
ok( $form, 'form builds ok' );
diag( $form->peek );
diag( $form->result->peek );
my $init_obj = {
mediums => [
{
id => 1,
tracklist => {
id => 10,
tracks => [
{ id => 100 },
{ id => 200 },
],
},
},
{
id => 2,
tracklist => {
id => 20,
tracks => [
{ id => 300 },
{ id => 400 },
],
},
},
]
};
my $extra_values = {
'next' => 'Next',
cancel => 'Cancel',
organization => undef,
prev => 'Prev',
wizard_session_id => undef,
};
$form->process( init_object => $init_obj );
diag( $form->peek );
diag( $form->result->peek );
my $value = $form->value;
is_deeply( $value, { %$init_obj, %$extra_values}, 'right values' );
my $good_fif = {
'mediums.0.id' => 1,
'mediums.0.tracklist.id' => 10,
'mediums.0.tracklist.tracks.0.id' => 100,
'mediums.0.tracklist.tracks.1.id' => 200,
'mediums.1.id' => 2,
'mediums.1.tracklist.id' => 20,
'mediums.1.tracklist.tracks.0.id' => 300,
'mediums.1.tracklist.tracks.1.id' => 400,
'organization' => '',
'wizard_session_id' => '',
};
my $fif = $form->fif;
is_deeply( $fif, $good_fif, 'fif is right' );
$form->process( $fif );
done_testing;
|
