summaryrefslogtreecommitdiff
path: root/t/precision.t
diff options
context:
space:
mode:
Diffstat (limited to 't/precision.t')
-rw-r--r--t/precision.t6
1 files changed, 4 insertions, 2 deletions
diff --git a/t/precision.t b/t/precision.t
index 751e1d6..bc01821 100644
--- a/t/precision.t
+++ b/t/precision.t
@@ -10,9 +10,11 @@ else {
plan skip_all => 'Slow test, set $ENV{SLOW_TESTS} to run it';
}
+my $formatter= DateTime::Format::GeekTime->new(2010);
+
for my $i (0..65535) {
my $gkt=sprintf '0x%04X on day 0x000',$i;
- my $dt=DateTime::Format::GeekTime->parse_datetime($gkt);
- my $round_trip=DateTime::Format::GeekTime->format_datetime($dt);
+ my $dt=$formatter->parse_datetime($gkt);
+ my $round_trip=$formatter->format_datetime($dt);
is(substr($round_trip,0,19),$gkt);
}