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
|
use Test::More tests => 4;
use Data::FormValidator;
my %FORM = (
stick => 'big',
speak => 'softly',
mv => ['first','second'],
);
my $results = Data::FormValidator->check(\%FORM,
{
# required => 'stick',
# optional => 'mv',
}
);
ok($results->unknown('stick') eq 'big','using check() as class method');
is($results->unknown('stick'),$FORM{stick}, 'unknown() returns single value in scalar context');
my @mv = $results->unknown('mv');
is_deeply(\@mv,$FORM{mv}, 'unknown() returns multi-valued results');
my @stick = $results->unknown('stick');
is_deeply(\@stick,[ $FORM{stick} ], 'unknown() returns single value in array context');
|
