diff options
Diffstat (limited to 't/precision2.t')
-rw-r--r-- | t/precision2.t | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/t/precision2.t b/t/precision2.t new file mode 100644 index 0000000..ef38f2a --- /dev/null +++ b/t/precision2.t @@ -0,0 +1,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); +} |