view release on metacpan or  search on metacpan

t/01_basics.t  view on Meta::CPAN

$date2 = $date->set_localtime(1175990400);
test 215, $date == $date2;

$date2 = $date->set_gmtime(1175990400);
test 216, $date == $date2;

$date2 = $date->set_weekday(SUNDAY, '<=');
test 217, $date == $date2;

# --- easter formula, border cases ---

test_ymd(218, $date->set_easter(2011), 2011, 4, 24);
test_ymd(219, $date->set_easter(2038), 2038, 4, 25);
test_ymd(220, $date->set_easter(2049), 2049, 4, 18);
test_ymd(221, $date->set_easter(2076), 2076, 4, 19);
test_ymd(222, $date->set_easter(2201), 2201, 4, 19);
test_ymd(223, $date->set_easter(2258), 2258, 4, 25);

$date->configure(1600, 1, 1, 1700);
test_ymd(224, $date->set_easter(1666), 1666, 4, 25);