use Test::More qw(no_plan);

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

is( discordian(946702800),  'Sweetmorn, Chaos 1 YOLD 3166',
    "January 1, 2000");

is( discordian(951714000), 'Prickle Prickle, Chaos 59 YOLD 3166', 
    "February 28, 2000");

is( discordian(951800400), "St. Tibb's Day YOLD 3166",
    "February 29, 2000");

is( discordian(966108845), 
    'Prickle Prickle (Zaraday), Bureaucracy 5 YOLD 3166',
    "August 12, 2000");