# -*-perl-*-
# $Id: validator_matches_date_format.t 326 2007-08-10 19:50:28Z jonasbn $
use strict;
use lib 't';
use TestUtil;
use Test::Exception;
use DateTime;
use Test::More tests => 6;
require_ok( 'Workflow::Validator::MatchesDateFormat' );
my $validator;
my $wf;
dies_ok { $validator = Workflow::Validator::MatchesDateFormat->new({}) };
ok($validator = Workflow::Validator::MatchesDateFormat->new({
date_format => '%Y-%m-%d',
}));
isa_ok($validator, 'Workflow::Validator');
ok($validator->validate($wf, '2005-05-13'));
my $dt = DateTime->new( year => 1964,
month => 10,
day => 16,
hour => 16,
minute => 12,
second => 47,
nanosecond => 500000000,
time_zone => 'Asia/Taipei',
);
lives_ok { $validator->validate($wf, $dt) };