01parse.t   [plain text]

#!/usr/bin/perl -w
use Test::More tests => 17;
use strict;
use vars qw( $class );

BEGIN {
    $class = 'DateTime::Format::W3CDTF';
    use_ok $class;
}

my @tests = (
    '2003-02-10T15:23:45'	=> '2003-02-10T15:23:45',
    '1997-04-11T09:34'		=> '1997-04-11T09:34:00',
    '2002-05-12'		=> '2002-05-12T00:00:00',
    '1985-06'			=> '1985-06-01T00:00:00',
    '1988'			=> '1988-01-01T00:00:00',
  #  '2001-02-30'		=> '2001-03-02T00:00:00',
    '2005-03-10T20:14:34+09:30'	=> '2005-03-10T10:44:34',
    '2000-06-12T14:12:33Z'	=> '2000-06-12T14:12:33',
    '1994-11-05T08:15:30-05:00'	=> '1994-11-05T13:15:30',
);

while (@tests)
{
    my ($given, $expected) = splice @tests, 0, 2;
    my $dt = $class->parse_datetime( $given )->set_time_zone( 'UTC' );
    my $form = $dt->iso8601;
    is( $form => $expected, "Parsing of $given => $expected." );
}

my @noparse = (
    'fnord',
    '2003.03.10',
    '2003-02-10X15:45:56',
    '2005-03-10T20:14:34+09',
    '2003-04-15T14',
    '2000-06-12T4:12:33Z',
    '15:45',
    '06:34:18',
);

for (@noparse)
{
    my $dt = eval { $class->parse_datetime( $_ ) };
    ok( $@ && !( defined $dt && $dt->isa('DateTime') ), "Correctly didn't parse '$_'" );
}