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
|
use strict;
use warnings;
use Test::More;
# required_when test
{
package MyApp::Form::Test;
use HTML::FormHandler::Moose;
extends 'HTML::FormHandler';
has_field 'fee';
has_field 'fie' => ( required_when => { 'fee' => 2 } );
}
my $form = MyApp::Form::Test->new;
my $params = { fee => 1, fie => '' };
$form->process( $params );
ok( $form->validated );
$params = { fee => 2, fie => '' };
$form->process( $params );
ok( ! $form->validated, 'did not validate when fee is 2' );
# required when the other field isn't empty
{
package MyApp::Form::Test2;
use HTML::FormHandler::Moose;
extends 'HTML::FormHandler';
has_field 'fee';
has_field 'fie' => ( required_when => { 'fee' => sub { $_[0] ne '' } } );
}
$form = MyApp::Form::Test2->new;
$params = { fee => '', fie => '' };
$form->process( $params );
ok( $form->validated );
$params = { fee => 2, fie => '' };
$form->process( $params );
ok( ! $form->validated, 'did not validate when fee is 2' );
# handle required when value of '0'
{
package MyApp::Form::Test3;
use HTML::FormHandler::Moose;
extends 'HTML::FormHandler';
has_field 'fee';
has_field 'fie' => ( required_when => { 'fee' => 0 } );
}
$form = MyApp::Form::Test3->new;
$params = { fee => 0, fie => '' };
$form->process( $params );
ok( !$form->validated );
$params = { fee => 1, fie => '' };
$form->process( $params );
ok( $form->validated );
done_testing;
|
