From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

DFARRELL / Data-FormValidator-4.88 / t / 03_dependency.t 

            

              
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

              
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Data::FormValidator;
# test profile
my $input_profile = {
  dependencies => {
    pay_type => {
      Check => [qw( cc_num )],
      # Value of Zero is used for test for a specific bug
      0 => [qw( cc_num cc_exp cc_name )],
    },
  },
};
my $input_hashref = { pay_type => '0' };
##
## Validate a complex dependency
##
##
## validate()
my ( $valids, $missings, $invalids, $unknowns );
my $validator = Data::FormValidator->new( { default => $input_profile } );
eval {
  ( $valids, $missings, $invalids, $unknowns ) =
    $validator->validate( $input_hashref, 'default' );
};
ok( !$@, "no eval problems" );
my %missings = map { $_ => 1 } @$missings;
ok( $missings{cc_num},  "missing cc_num" );
ok( $missings{cc_exp},  "missing cc_exp" );
ok( $missings{cc_name}, "missing cc_name" );
##
## check()
my $result;
eval { $result = $validator->check( $input_hashref, 'default' ); };
ok( !$@, "no eval problems" );
isa_ok( $result, "Data::FormValidator::Results", "returned object" );
ok( $result->has_missing,        "has_missing returned true" );
ok( $result->missing('cc_num'),  "missing('cc_num')  returned true" );
ok( $result->missing('cc_exp'),  "missing('cc_exp')  returned true" );
ok( $result->missing('cc_name'), "missing('cc_name') returned true" );
##
## validate()
$input_hashref = { pay_type => 'Check' };
eval {
  ( $valids, $missings, $invalids, $unknowns ) =
    $validator->validate( $input_hashref, 'default' );
};
ok( !$@, "no eval problems" );
%missings = map { $_ => 1 } @$missings;
ok( $missings{cc_num},   'missing cc_num' );
ok( !$missings{cc_exp},  'not missing cc_exp' );
ok( !$missings{cc_name}, 'not missing cc_name' );
##
## check()
$result = undef;
eval { $result = $validator->check( $input_hashref, 'default' ); };
ok( !$@, "no eval problems" );
isa_ok( $result, "Data::FormValidator::Results", "returned object" );
ok( $result->has_missing,       "has_missing returned true" );
ok( $result->missing('cc_num'), "missing('cc_num') returned true" );
is( $result->missing('cc_exp'),  undef, "missing('cc_exp') returned false" );
is( $result->missing('cc_name'), undef, "missing('cc_name') returned false" );
eval { require CGI;CGI->VERSION(4.35); };
SKIP:
{
  skip 'CGI 4.35 or higher not found', 3 if $@;
  my $q = CGI->new('pay_type=0');
  my $results = $validator->check( $q, 'default' );
  ok( $results->missing('cc_num'), 'using CGI.pm object for input' );
  is( $result->missing('cc_exp'),  undef, "missing('cc_exp') returned false" );
  is( $result->missing('cc_name'), undef, "missing('cc_name') returned false" );
}
done_testing;