From 555fd9e02d6ef01f61eb548dd6303689e7874699 Mon Sep 17 00:00:00 2001 From: dakkar Date: Thu, 2 Jan 2020 14:23:46 +0000 Subject: fix tests on leap years --- Changes | 3 +++ lib/DateTime/Format/GeekTime.pm | 2 +- t/format.t | 21 +++++++++++---------- 3 files changed, 15 insertions(+), 11 deletions(-) diff --git a/Changes b/Changes index d20a906..8e7c97f 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,6 @@ +2020-01-02 v1.001 + fix tests on leap years + 2017-06-21 v1.000_002 [bugfix] never output surrogate codepoints diff --git a/lib/DateTime/Format/GeekTime.pm b/lib/DateTime/Format/GeekTime.pm index 8bea888..d914c11 100644 --- a/lib/DateTime/Format/GeekTime.pm +++ b/lib/DateTime/Format/GeekTime.pm @@ -6,7 +6,7 @@ use DateTime; use Carp; use vars '$VERSION'; -$VERSION='1.000_002'; +$VERSION='1.001'; $VERSION=eval $VERSION; sub new { diff --git a/t/format.t b/t/format.t index c1ad071..ca3852f 100644 --- a/t/format.t +++ b/t/format.t @@ -13,7 +13,8 @@ is(DateTime::Format::GeekTime->format_datetime($dt), } { -my $dt=DateTime::Format::GeekTime->parse_datetime("0xB4B1 0x0042 \x{b4b0}"); +my $format=DateTime::Format::GeekTime->new(2010); +my $dt=$format->parse_datetime("0xB4B1 0x0042 \x{b4b0}"); is($dt->month,3); is($dt->day,8); is($dt->hour,16); @@ -21,23 +22,23 @@ is($dt->minute,56); is($dt->second,23); is($dt->time_zone->name,'UTC'); -my $other=DateTime::Format::GeekTime->parse_datetime("0xB4B1 0x0042"); +my $other=$format->parse_datetime("0xB4B1 0x0042"); cmp_ok($dt,'==',$other); -$other=DateTime::Format::GeekTime->parse_datetime("0xB4B1 on day 0x0042"); +$other=$format->parse_datetime("0xB4B1 on day 0x0042"); cmp_ok($dt,'==',$other); -$other=DateTime::Format::GeekTime->parse_datetime("B4B1 0042"); +$other=$format->parse_datetime("B4B1 0042"); cmp_ok($dt,'==',$other); -$other=DateTime::Format::GeekTime->parse_datetime("B4B10042"); +$other=$format->parse_datetime("B4B10042"); cmp_ok($dt,'==',$other); -$other=DateTime::Format::GeekTime->parse_datetime("b4b10042"); +$other=$format->parse_datetime("b4b10042"); cmp_ok($dt,'==',$other); -$other=DateTime::Format::GeekTime->parse_datetime("0xB4B1 0x042"); +$other=$format->parse_datetime("0xB4B1 0x042"); cmp_ok($dt,'==',$other); -$other=DateTime::Format::GeekTime->parse_datetime("B4B1 042"); +$other=$format->parse_datetime("B4B1 042"); cmp_ok($dt,'==',$other); -$other=DateTime::Format::GeekTime->parse_datetime("B4B1042"); +$other=$format->parse_datetime("B4B1042"); cmp_ok($dt,'==',$other); -$other=DateTime::Format::GeekTime->parse_datetime("b4b1042"); +$other=$format->parse_datetime("b4b1042"); cmp_ok($dt,'==',$other); } -- cgit v1.2.3