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
|
use strict;
use warnings;
use Test::More;
{
package MyApp::Form;
use HTML::FormHandler::Moose;
extends 'HTML::FormHandler';
has_field 'foo' => ( type => 'Checkbox' );
has_field 'bar';
}
my $form = MyApp::Form->new;
ok( $form );
$form->process( params => {} );
ok( ! $form->ran_validation, 'no validation with empty params' );
$form->process( params => { foo => 1, bar => 'my_bar' } );
ok( $form->ran_validation, 'validation with params' );
$form->process( params => { dux => 1 } );
ok( $form->ran_validation, 'validation with non-field params' );
my $req_method = 'GET';
$form->process( posted => ( $req_method eq 'POST' ),
params => { duz => 'xxx' } );
ok( ! $form->ran_validation, 'validation was not performed with extra params and false posted flag' );
ok( ! $form->validated, 'not validated' );
$req_method = 'POST';
$form->process( posted => ( $req_method eq 'POST' ), params => {} );
ok( $form->ran_validation, 'validation was performed with empty params and posted flag' );
done_testing;
|
