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');