t/precision.t


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

#!perl 
use Test::More;
use DateTime;
use DateTime::Format::GeekTime;
 
if ($ENV{SLOW_TESTS}) {
    plan tests=>65536;
}
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=$formatter->parse_datetime($gkt);
    my $round_trip=$formatter->format_datetime($dt);
    is(substr($round_trip,0,19),$gkt);
}