#!/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');