# Integration with Regexp::Common;

use Test::More tests => 3;

use Data::FormValidator;

my %FORM = (
    bad_ip  => 'oops',
    good_ip => '127.0.0.1',
);

my $results;

eval {
$results = Data::FormValidator->check(\%FORM, {
        required => [qw/good_ip bad_ip/],
        validator_packages => 'Data::FormValidator::Constraints::Common',
        constraint_regexp_map => {
            '/_ip$/' => 'RE_net_IPv4',

        }
    });
};
warn $@ unless ok((not $@), 'runtime errors');
ok($results->('valid')->{good_ip}, 'good ip');
ok($results->('invalid')->{bad_ip}, 'bad ip');