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
|
use Test::More tests => 5;
BEGIN {
use_ok('Data::FormValidator');
}
my $dfv;
eval { $dfv = Data::FormValidator->new({}, 'wrong'); };
like ($@, qr/must be a hash ref/, 'second argument must be a hash ref or die');
eval {
$dfv = Data::FormValidator->new('test/00_base.WRONG');
my $results = $dfv->check({}, 'profile1');
};
like($@, qr/no such file/i, 'bad profile file names should cause death');
eval {
$dfv = Data::FormValidator->new('test/00_base.badformat');
my $results = $dfv->check({}, 'profile1');
};
like($@, qr/return a hash ref/, 'profile files should return a hash ref');
eval { $dfv = Data::FormValidator->new('test/00_base.profile'); };
my $results = $dfv->check({}, 'profile1');
ok(scalar $results->missing, 'loading a profile from a file works');
|
