#!/usr/bin/perl

# Copyright (C) 2003-2012  Joshua Hoblitt

use strict;
use warnings;

use lib qw( ./lib );

use Test::More tests => 4;

use DateTime::Format::ISO8601;

# parse_datetime
my $base_year = 2000;
my $base_month = "01";
my $iso8601 = DateTime::Format::ISO8601->new(
    base_datetime => DateTime->new( year => $base_year, month => $base_month ),
);

# examples from https://rt.cpan.org/Ticket/Update.html?id=5264

#Section 4.2.5.1 says "Expressions of the difference between local time and UTC
#of day are a component in the representations defined in 4.2.5.2; they shall
#not be used as self-standing expressions.".  Which means the UTC offset is
#considered part of the time format so you get to use the extended formation
#(the ':') or not but you can't mix and match the two.

eval {
    my $dt = $iso8601->parse_datetime( '2009-12-10T09:00:00.00+0100' );
};
like( $@, qr/Invalid date format/ );

eval {
    my $dt = $iso8601->parse_datetime( '2011-07-04T20:50:23+0200' );
};
like( $@, qr/Invalid date format/ );

# more "colon or not" coverage
eval {
    my $dt = $iso8601->parse_datetime( '20091210T090000.00+01:00' );
};
like( $@, qr/Invalid date format/ );

eval {
    my $dt = $iso8601->parse_datetime( '20110704T205023+02:00' );
};
like( $@, qr/Invalid date format/ );