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
|
use strict;
use warnings;
use Test::More;
use HTML::FormHandler;
my @select_options = ( {value => 1, label => 'One'}, {value => 2, label => 'Two'}, {value => 3, label => 'Three'} );
my $args = {
name => 'test',
field_list => [
'username' => {
type => 'Text',
apply => [ { check => qr/^[0-9a-z]*/, message => 'Contains invalid characters' } ],
},
'password' => {
type => 'Password',
},
'a_number' => {
type => 'IntRange',
range_min => 12,
range_max => 291,
},
'on_off' => {
type => 'Checkbox',
checkbox_value => 'yes',
input_without_param => 'no'
},
'long_text' => {
type => 'TextArea',
},
'hidden_text' => {
type => 'Hidden',
default => 'bob',
},
'upload_file' => {
type => 'Upload',
# valid_extensions => [ "jpg", "gif", "png" ],
max_size => 262144,
},
'a_select' => {
type => 'Select',
options => \@select_options,
},
'b_select' => {
type => 'Select',
options => \@select_options,
multiple => 1,
size => 4,
},
'c_select' => {
type => 'Select',
options => \@select_options,
widget => 'radio_group',
},
'd_select' => {
type => 'Select',
options => \@select_options,
multiple => 1,
widget => 'checkbox_group'
},
'sub' => {
type => 'Compound',
},
'sub.user' => {
type => 'Text',
apply => [ { check => qr/^[0-9a-z]*/, message => 'Not a valid user' } ],
},
'sub.name' => {
type => 'Text',
apply => [ { check => qr/^[0-9a-z]*/, message => 'Not a valid name' } ],
},
'reset' => {
type => 'Reset',
},
'submit' => {
type => 'Submit',
},
'a_link' => {
type => 'Display',
html => '<a href="http://google.com/">get me out of here</>',
},
]
};
my $form = HTML::FormHandler->new( %$args );
ok( $form, 'form builds ok' );
my $renderedform = $form->render;
ok( $renderedform, 'form renders' );
like( $renderedform, qr/Reset/, 'reset rendered' );
done_testing;
|
