#!/usr/bin/perl
use Test::More qw/no_plan/;
use strict;
use Data::FormValidator;
my $input_profile = {
required => [ qw( number_field ) ],
constraints => {
number_field => {
name => 'number',
constraint => qr/^\d+$/,
}
}
};
my $input_hashref = {
number_field => 0,
};
my $results;
eval{
$results = Data::FormValidator->check($input_hashref, $input_profile);
};
ok(!$@, 'survived validate');
is($results->valid->{number_field},0, 'using 0 in a constraint regexp works');