summaryrefslogtreecommitdiff
path: root/t/precision2.t
diff options
context:
space:
mode:
Diffstat (limited to 't/precision2.t')
-rw-r--r--t/precision2.t13
1 files changed, 8 insertions, 5 deletions
diff --git a/t/precision2.t b/t/precision2.t
index ef38f2a..abff8b8 100644
--- a/t/precision2.t
+++ b/t/precision2.t
@@ -11,12 +11,15 @@ else {
}
my $dt=DateTime->new(day=>1,month=>1,year=>2010,
- hour=>0,minute=>0,second=>0,
- time_zone=>'UTC');
+ hour=>0,minute=>0,second=>0,
+ time_zone=>'UTC');
+
+my $formatter= DateTime::Format::GeekTime->new(2010);
+
for my $i (0..86399) {
- my $gkt=DateTime::Format::GeekTime->format_datetime($dt);
- my $round_trip=DateTime::Format::GeekTime->parse_datetime($gkt);
+ my $gkt=$formatter->format_datetime($dt);
+ my $round_trip=$formatter->parse_datetime($gkt);
my $diff=$round_trip->subtract_datetime_absolute($dt)->in_units('seconds');
- cmp_ok($diff,'<=',1);
+ cmp_ok($diff,'<=',1,"$round_trip - $dt");
$dt->add(seconds=>1);
}