view release on metacpan or  search on metacpan

t/reper.t  view on Meta::CPAN

	[2174029.5 , 4340, 12, 6],
	[2191584.5, 4388, 12, 29],
	[2195261.5, 4399, 1, 22],
	[2229274.5 , 4492, 3, 6],
	[2245580.5, 4536, 10, 28],
	[2266100.5, 4592, 12, 32],
	[2288542.5, 4654, 6, 10],
	[2290901.5, 4660, 11, 26],
	[2323140.5, 4749, 2, 31],
	[2334848.5, 4781, 3, 20],
	[2348020.5, 4817, 4, 12],
	[2366978.5 , 4869, 3, 8],
	[2385648.5, 4920, 4, 18],
	[2392825.5, 4939, 12, 13],
	[2416223.5 , 5004, 1, 3],
	[2425848.5, 5030, 5, 10],
	[2430266.5, 5042, 6, 14],
	[2430833.5 , 5044, 1, 2],
	[2431004.5, 5044, 6, 21],
	[2448698.5, 5092, 11, 31],
	[2450138.5, 5096, 11, 10],
	[2465737.5, 5139, 7, 25],
	[2486076.5, 5195, 3, 31]
);

my @zoroastrian = (
	[1660037.5 ,  220, 12, 5],
	[1746893.5,  458, 11, 21],
	[1770641.5,  523, 12, 14],
	[1892731.5 ,  858, 6, 9],
	[1931579.5,  964, 11, 17],
	[1974851.5 , 1083, 6, 4],
	[2091164.5 , 1402, 2, 2],
	[2121509.5, 1485, 3, 22],
	[2155779.5, 1579, 2, 12],
	[2174029.5, 1629, 2, 12],
	[2191584.5, 1677, 3, 17],
	[2195261.5, 1687, 4, 14],
	[2229274.5, 1780, 6, 22],
	[2245580.5, 1825, 2, 23],
	[2266100.5, 1881, 5, 13],
	[2288542.5, 1942, 11, 10],
	[2290901.5, 1949, 4, 24],
	[2323140.5, 2037, 8, 23],
	[2334848.5, 2069, 9, 21],
	[2348020.5, 2105, 10, 23],
	[2366978.5 , 2157, 10, 1],
	[2385648.5, 2208, 11, 26],
	[2392825.5, 2228, 7, 23],
	[2416223.5 , 2292, 9, 1],
	[2425848.5, 2319, 1, 11],
	[2430266.5, 2331, 2, 19],
	[2430833.5, 2332, 9, 11],
	[2431004.5, 2333, 2, 27],
	[2448698.5, 2381, 8, 21],
	[2450138.5 , 2385, 8, 1],
	[2465737.5, 2428, 4, 25],
	[2486076.5, 2484, 1, 14]
);

for my $calendar (@list) {
    my $Calendar = ucfirst $calendar;
    eval "use Date::Converter::$Calendar";

    my @data;
    eval "\@data = \@$calendar";

    for my $item (@data) {
        my $jed = $item->[0];
        my ($y, $m, $d);
        eval "(\$y, \$m, \$d) = Date::Converter::${Calendar}::jed_to_ymdf($jed)";
        
        ok($y == $item->[1] && $m == $item->[2] && $d == $item->[3], "$Calendar JED=$jed, $y ($item->[1]) / $m ($item->[2]) / $d ($item->[3])");
    }
}