t/precision2.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

#!perl 
use Test::More;
use DateTime;
use DateTime::Format::GeekTime;
 
if ($ENV{SLOW_TESTS}) {
    plan tests=>86400;
}
else {
    plan skip_all => 'Slow test, set $ENV{SLOW_TESTS} to run it';
}
 
my $dt=DateTime->new(day=>1,month=>1,year=>2010,
                       hour=>0,minute=>0,second=>0,
                 time_zone=>'UTC');
for my $i (0..86399) {
    my $gkt=DateTime::Format::GeekTime->format_datetime($dt);
    my $round_trip=DateTime::Format::GeekTime->parse_datetime($gkt);
    my $diff=$round_trip->subtract_datetime_absolute($dt)->in_units('seconds');
    cmp_ok($diff,'<=',1);
    $dt->add(seconds=>1);
}