#!/usr/bin/env perl
use strict;
use warnings;
use Test::More qw/no_plan/;
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' );