#!perl 

use strict;
use Test::More tests => 3;
use Data::Dumper;
use FindBin;

BEGIN {
    use_ok( 'Data::Validate::WithYAML' );
}

my $validator = Data::Validate::WithYAML->new(
    $FindBin::Bin . '/test5.yml',
);

my %positive_check = ();
my %positive       = (
    email   => 'test@test.de',
    plz     => 'hallo',
    country => 'DE',
);

my %errors_positive = $validator->validate( 'default', %positive );
is_deeply \%errors_positive, \%positive_check, 'correct values';

my %negative_check = ( email => 'Email is not correct', age => 'age must be either 1 or 2' );
my %negative       = (
    email   => 'test@test.de235235',
    plz     => 'hallo',
    country => 'DE',
    age     => 3,
);

my %errors_negative = $validator->validate( 'default', %negative );
is_deeply \%errors_negative, \%negative_check, 'negative values';