use Test::More qw(no_plan);

BEGIN { 
    use_ok ('Date::Leapyear');
}

@years = (
[4 , 1],[8 , 1],[12 , 1],[16 , 1],
[20 , 1],[24 , 1],[28 , 1],[32 , 1],
[36 , 1],[40 , 1],[44 , 1],[48 , 1],
[52 , 1],[56 , 1],[60 , 1],[64 , 1],
[68 , 1],[72 , 1],[76 , 1],[80 , 1],
[84 , 1],[88 , 1],[92 , 1],[96 , 1],
[100 , 0],[104 , 1],[108 , 1],[112 , 1],
[116 , 1],[120 , 1],[124 , 1],[128 , 1],
[132 , 1],[136 , 1],[140 , 1],[144 , 1],
[148 , 1],[152 , 1],[156 , 1],[160 , 1],
[164 , 1],[168 , 1],[172 , 1],[176 , 1],
[180 , 1],[184 , 1],[188 , 1],[192 , 1],
[196 , 1],[200 , 0],[204 , 1],[208 , 1],
[212 , 1],[216 , 1],[220 , 1],[224 , 1],
[228 , 1],[232 , 1],[236 , 1],[240 , 1],
[244 , 1],[248 , 1],[252 , 1],[256 , 1],
[260 , 1],[264 , 1],[268 , 1],[272 , 1],
[276 , 1],[280 , 1],[284 , 1],[288 , 1],
[292 , 1],[296 , 1],[300 , 0],[304 , 1],
[308 , 1],[312 , 1],[316 , 1],[320 , 1],
[324 , 1],[328 , 1],[332 , 1],[336 , 1],
[340 , 1],[344 , 1],[348 , 1],[352 , 1],
[356 , 1],[360 , 1],[364 , 1],[368 , 1],
[372 , 1],[376 , 1],[380 , 1],[384 , 1],
[388 , 1],[392 , 1],[396 , 1],[400 , 1],
[404 , 1],[408 , 1],[412 , 1],[416 , 1],
[420 , 1],[424 , 1],[428 , 1],[432 , 1],
[436 , 1],[440 , 1],[444 , 1],[448 , 1],
[452 , 1],[456 , 1],[460 , 1],[464 , 1],
[468 , 1],[472 , 1],[476 , 1],[480 , 1],
[484 , 1],[488 , 1],[492 , 1],[496 , 1],
[500 , 0],[504 , 1],[508 , 1],[512 , 1],
[516 , 1],[520 , 1],[524 , 1],[528 , 1],
[532 , 1],[536 , 1],[540 , 1],[544 , 1],
[548 , 1],[552 , 1],[556 , 1],[560 , 1],
[564 , 1],[568 , 1],[572 , 1],[576 , 1],
[580 , 1],[584 , 1],[588 , 1],[592 , 1],
[596 , 1],[600 , 0],[604 , 1],[608 , 1],
[612 , 1],[616 , 1],[620 , 1],[624 , 1],
[628 , 1],[632 , 1],[636 , 1],[640 , 1],
[644 , 1],[648 , 1],[652 , 1],[656 , 1],
[660 , 1],[664 , 1],[668 , 1],[672 , 1],
[676 , 1],[680 , 1],[684 , 1],[688 , 1],
[692 , 1],[696 , 1],[700 , 0],[704 , 1],
[708 , 1],[712 , 1],[716 , 1],[720 , 1],
[724 , 1],[728 , 1],[732 , 1],[736 , 1],
[740 , 1],[744 , 1],[748 , 1],[752 , 1],
[756 , 1],[760 , 1],[764 , 1],[768 , 1],
[772 , 1],[776 , 1],[780 , 1],[784 , 1],
[788 , 1],[792 , 1],[796 , 1],[800 , 1],
[804 , 1],[808 , 1],[812 , 1],[816 , 1],
[820 , 1],[824 , 1],[828 , 1],[832 , 1],
[836 , 1],[840 , 1],[844 , 1],[848 , 1],
[852 , 1],[856 , 1],[860 , 1],[864 , 1],
[868 , 1],[872 , 1],[876 , 1],[880 , 1],
[884 , 1],[888 , 1],[892 , 1],[896 , 1],
[900 , 0],[904 , 1],[908 , 1],[912 , 1],
[916 , 1],[920 , 1],[924 , 1],[928 , 1],
[932 , 1],[936 , 1],[940 , 1],[944 , 1],
[948 , 1],[952 , 1],[956 , 1],[960 , 1],
[964 , 1],[968 , 1],[972 , 1],[976 , 1],
[980 , 1],[984 , 1],[988 , 1],[992 , 1],
[996 , 1],[1000 , 0],[1004 , 1],[1008 , 1],
[1012 , 1],[1016 , 1],[1020 , 1],[1024 , 1],
[1028 , 1],[1032 , 1],[1036 , 1],[1040 , 1],
[1044 , 1],[1048 , 1],[1052 , 1],[1056 , 1],
[1060 , 1],[1064 , 1],[1068 , 1],[1072 , 1],
[1076 , 1],[1080 , 1],[1084 , 1],[1088 , 1],
[1092 , 1],[1096 , 1],[1100 , 0],[1104 , 1],
[1108 , 1],[1112 , 1],[1116 , 1],[1120 , 1],
[1124 , 1],[1128 , 1],[1132 , 1],[1136 , 1],
[1140 , 1],[1144 , 1],[1148 , 1],[1152 , 1],
[1156 , 1],[1160 , 1],[1164 , 1],[1168 , 1],
[1172 , 1],[1176 , 1],[1180 , 1],[1184 , 1],
[1188 , 1],[1192 , 1],[1196 , 1],[1200 , 1],
[1204 , 1],[1208 , 1],[1212 , 1],[1216 , 1],
[1220 , 1],[1224 , 1],[1228 , 1],[1232 , 1],
[1236 , 1],[1240 , 1],[1244 , 1],[1248 , 1],
[1252 , 1],[1256 , 1],[1260 , 1],[1264 , 1],
[1268 , 1],[1272 , 1],[1276 , 1],[1280 , 1],
[1284 , 1],[1288 , 1],[1292 , 1],[1296 , 1],
[1300 , 0],[1304 , 1],[1308 , 1],[1312 , 1],
[1316 , 1],[1320 , 1],[1324 , 1],[1328 , 1],
[1332 , 1],[1336 , 1],[1340 , 1],[1344 , 1],
[1348 , 1],[1352 , 1],[1356 , 1],[1360 , 1],
[1364 , 1],[1368 , 1],[1372 , 1],[1376 , 1],
[1380 , 1],[1384 , 1],[1388 , 1],[1392 , 1],
[1396 , 1],[1400 , 0],[1404 , 1],[1408 , 1],
[1412 , 1],[1416 , 1],[1420 , 1],[1424 , 1],
[1428 , 1],[1432 , 1],[1436 , 1],[1440 , 1],
[1444 , 1],[1448 , 1],[1452 , 1],[1456 , 1],
[1460 , 1],[1464 , 1],[1468 , 1],[1472 , 1],
[1476 , 1],[1480 , 1],[1484 , 1],[1488 , 1],
[1492 , 1],[1496 , 1],[1500 , 0],[1504 , 1],
[1508 , 1],[1512 , 1],[1516 , 1],[1520 , 1],
[1524 , 1],[1528 , 1],[1532 , 1],[1536 , 1],
[1540 , 1],[1544 , 1],[1548 , 1],[1552 , 1],
[1556 , 1],[1560 , 1],[1564 , 1],[1568 , 1],
[1572 , 1],[1576 , 1],[1580 , 1],[1584 , 1],
[1588 , 1],[1592 , 1],[1596 , 1],[1600 , 1],
[1604 , 1],[1608 , 1],[1612 , 1],[1616 , 1],
[1620 , 1],[1624 , 1],[1628 , 1],[1632 , 1],
[1636 , 1],[1640 , 1],[1644 , 1],[1648 , 1],
[1652 , 1],[1656 , 1],[1660 , 1],[1664 , 1],
[1668 , 1],[1672 , 1],[1676 , 1],[1680 , 1],
[1684 , 1],[1688 , 1],[1692 , 1],[1696 , 1],
[1700 , 0],[1704 , 1],[1708 , 1],[1712 , 1],
[1716 , 1],[1720 , 1],[1724 , 1],[1728 , 1],
[1732 , 1],[1736 , 1],[1740 , 1],[1744 , 1],
[1748 , 1],[1752 , 1],[1756 , 1],[1760 , 1],
[1764 , 1],[1768 , 1],[1772 , 1],[1776 , 1],
[1780 , 1],[1784 , 1],[1788 , 1],[1792 , 1],
[1796 , 1],[1800 , 0],[1804 , 1],[1808 , 1],
[1812 , 1],[1816 , 1],[1820 , 1],[1824 , 1],
[1828 , 1],[1832 , 1],[1836 , 1],[1840 , 1],
[1844 , 1],[1848 , 1],[1852 , 1],[1856 , 1],
[1860 , 1],[1864 , 1],[1868 , 1],[1872 , 1],
[1876 , 1],[1880 , 1],[1884 , 1],[1888 , 1],
[1892 , 1],[1896 , 1],[1900 , 0],[1904 , 1],
[1908 , 1],[1912 , 1],[1916 , 1],[1920 , 1],
[1924 , 1],[1928 , 1],[1932 , 1],[1936 , 1],
[1940 , 1],[1944 , 1],[1948 , 1],[1952 , 1],
[1956 , 1],[1960 , 1],[1964 , 1],[1968 , 1],
[1972 , 1],[1976 , 1],[1980 , 1],[1984 , 1],
[1988 , 1],[1992 , 1],[1996 , 1],[2000 , 1],
[2004 , 1],[2008 , 1],[2012 , 1],[2016 , 1],
[2020 , 1],[2024 , 1],[2028 , 1],[2032 , 1],
[2036 , 1],[2040 , 1],[2044 , 1],[2048 , 1],
[2052 , 1],[2056 , 1],[2060 , 1],[2064 , 1],
[2068 , 1],[2072 , 1],[2076 , 1],[2080 , 1],
[2084 , 1],[2088 , 1],[2092 , 1],[2096 , 1],
[2100 , 0],[2104 , 1],[2108 , 1],[2112 , 1],
[2116 , 1],[2120 , 1],[2124 , 1],[2128 , 1],
[2132 , 1],[2136 , 1],[2140 , 1],[2144 , 1],
[2148 , 1],[2152 , 1],[2156 , 1],[2160 , 1],
[2164 , 1],[2168 , 1],[2172 , 1],[2176 , 1],
[2180 , 1],[2184 , 1],[2188 , 1],[2192 , 1],
[2196 , 1],[2200 , 0],[2204 , 1],[2208 , 1],
[2212 , 1],[2216 , 1],[2220 , 1],[2224 , 1],
[2228 , 1],[2232 , 1],[2236 , 1],[2240 , 1],
[2244 , 1],[2248 , 1],[2252 , 1],[2256 , 1],
[2260 , 1],[2264 , 1],[2268 , 1],[2272 , 1],
[2276 , 1],[2280 , 1],[2284 , 1],[2288 , 1],
[2292 , 1],[2296 , 1],[2300 , 0],[2304 , 1],
[2308 , 1],[2312 , 1],[2316 , 1],[2320 , 1],
[2324 , 1],[2328 , 1],[2332 , 1],[2336 , 1],
[2340 , 1],[2344 , 1],[2348 , 1],[2352 , 1],
[2356 , 1],[2360 , 1],[2364 , 1],[2368 , 1],
[2372 , 1],[2376 , 1],[2380 , 1],[2384 , 1],
[2388 , 1],[2392 , 1],[2396 , 1],[2400 , 1],
[2404 , 1],[2408 , 1],[2412 , 1],[2416 , 1],
[2420 , 1],[2424 , 1],[2428 , 1],[2432 , 1],
[2436 , 1],[2440 , 1],[2444 , 1],[2448 , 1],
[2452 , 1],[2456 , 1],[2460 , 1],[2464 , 1],
[2468 , 1],[2472 , 1],[2476 , 1],[2480 , 1],
[2484 , 1],[2488 , 1],[2492 , 1],[2496 , 1],
[2500 , 0],[2504 , 1],[2508 , 1],[2512 , 1],
[2516 , 1],[2520 , 1],[2524 , 1],[2528 , 1],
[2532 , 1],[2536 , 1],[2540 , 1],[2544 , 1],
[2548 , 1],[2552 , 1],[2556 , 1],[2560 , 1],
[2564 , 1],[2568 , 1],[2572 , 1],[2576 , 1],
[2580 , 1],[2584 , 1],[2588 , 1],[2592 , 1],
[2596 , 1],[2600 , 0],[2604 , 1],[2608 , 1],
[2612 , 1],[2616 , 1],[2620 , 1],[2624 , 1],
[2628 , 1],[2632 , 1],[2636 , 1],[2640 , 1],
[2644 , 1],[2648 , 1],[2652 , 1],[2656 , 1],
[2660 , 1],[2664 , 1],[2668 , 1],[2672 , 1],
[2676 , 1],[2680 , 1],[2684 , 1],[2688 , 1],
[2692 , 1],[2696 , 1],[2700 , 0],[2704 , 1],
[2708 , 1],[2712 , 1],[2716 , 1],[2720 , 1],
[2724 , 1],[2728 , 1],[2732 , 1],[2736 , 1],
[2740 , 1],[2744 , 1],[2748 , 1],[2752 , 1],
[2756 , 1],[2760 , 1],[2764 , 1],[2768 , 1],
[2772 , 1],[2776 , 1],[2780 , 1],[2784 , 1],
[2788 , 1],[2792 , 1],[2796 , 1],[2800 , 1],
[2804 , 1],[2808 , 1],[2812 , 1],[2816 , 1],
[2820 , 1],[2824 , 1],[2828 , 1],[2832 , 1],
[2836 , 1],[2840 , 1],[2844 , 1],[2848 , 1],
[2852 , 1],[2856 , 1],[2860 , 1],[2864 , 1],
[2868 , 1],[2872 , 1],[2876 , 1],[2880 , 1],
[2884 , 1],[2888 , 1],[2892 , 1],[2896 , 1],
[2900 , 0],[2904 , 1],[2908 , 1],[2912 , 1],
[2916 , 1],[2920 , 1],[2924 , 1],[2928 , 1],
[2932 , 1],[2936 , 1],[2940 , 1],[2944 , 1],
[2948 , 1],[2952 , 1],[2956 , 1],[2960 , 1],
[2964 , 1],[2968 , 1],[2972 , 1],[2976 , 1],
[2980 , 1],[2984 , 1],[2988 , 1],[2992 , 1],
[2996 , 1],[3000 , 0],
);

foreach my $year (@years) {
    is( isleap($year->[0]), $year->[1], "Year $year->[0]" );
}