use Test::More qw(no_plan);

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

my $d;

$d = Date::Discordian->new( ical => '17760704Z' );
is($d->discordian, 'Setting Orange, Confusion 39 YOLD 2942',
"Declaration of Independance" );

$d = Date::Discordian->new( ical => '10660105Z' );
is($d->discordian, 'Setting Orange (Mungoday), Chaos 5 YOLD 2232',
"Battle of Hastings" );

$d = Date::Discordian->new( ical => '19421207Z' );
is($d->discordian, 'Sweetmorn, Aftermath 49 YOLD 3108', "Pearl Harbor" );

$d = Date::Discordian->new( ical => '18831204Z' );
is($d->discordian, 'Pungenday, Aftermath 46 YOLD 3049', "Random" );