use 5.012;
use warnings;
use Test::More;
use Test::Deep;
use lib 't/lib'; use PDTest;

plan skip_all => 'set TEST_FULL=1 to enable real test coverage' unless $ENV{TEST_FULL};

my @dias;

# check normal times
push @dias, [299, "2005-01-01 00:00:00", "2008-12-30 00:00:00"];
# check QUAD YEARS threshold
push @dias, [1, "2004-12-31 00:00:00", "2005-01-01 10:00:00"];
# check CENT YEARS threshold
push @dias, [1, "1900-12-31 00:00:00", "1901-01-01 10:00:00"];
# check QUAD CENT YEARS threshold
push @dias, [1, "2000-12-31 00:00:00", "2001-01-01 10:00:00"];

# negative check
push @dias, [9999, "1900-01-01 12:34:56",  "2014-01-01 00:00:00"]; # system's timegm cannot handle 1899-12-31 23:59:59 and earlier

foreach my $dia (@dias) {
    my ($step, $from, $till) = @$dia;
    ok(Panda::Time::test_timegm($step, epoch_from($from), epoch_from($till)));
}

# random check - RAND_FLAG, INGNORED, ITERS COUNT. Rand also checks normalization
ok(Panda::Time::test_timegm(0, 0, 200000));
ok(Panda::Time::test_timegm(0, 0, 200000));

done_testing();