#!/usr/bin/env perl

use strict;
use warnings;

use Test::More tests => 5;

use Input::Validator::Constraint::Date;

my $constraint =
  Input::Validator::Constraint::Date->new(args => [split => qr/\//]);

ok($constraint);

is($constraint->is_valid('Hello'),       0);
is($constraint->is_valid('2008-12-12'),  0);
is($constraint->is_valid('2008/12/122'), 0);

is($constraint->is_valid('2008/12/12'), 1);