ヤミRoot VoidGate

User / IP	: 216.73.216.2
Host / Server	: 146.88.233.70 / dev.loger.cm
System	: Linux hybrid1120.fr.ns.planethoster.net 3.10.0-957.21.2.el7.x86_64 #1 SMP Wed Jun 5 14:26:44 UTC 2019 x86_64

: /home/itrave/.cpanm/work/1568630761.27314/DateTime-1.51/t/

Viewing: 40leap-years.t

use strict;
use warnings;

use Test::More;

use DateTime;

## no critic (Subroutines::ProtectPrivateSubs)
for my $y ( 0, 400, 2000, 2004 ) {
    ok( DateTime->_is_leap_year($y), "$y is a leap year" );
}

for my $y ( 1, 100, 1900, 2133 ) {
    ok( !DateTime->_is_leap_year($y), "$y is not a leap year" );
}

done_testing();

Coded With 💗 by 0x6ick