#!perl
use strict;
use Test::More (tests => 11);
use utf8;

BEGIN
{
    use_ok("DateTime::Calendar::Japanese::Era", qw(SOUTH_REGIME NORTH_REGIME) );
}

my $class = 'DateTime::Calendar::Japanese::Era';
my @eras =(
    $class->lookup_by_date(datetime => DateTime->new(year => 1990)),
);
push @eras, $class->lookup_by_name(name => '平成');
    
foreach my $e (@eras) {
    isa_ok($e, 'DateTime::Calendar::Japanese::Era');
    ok($e->start->compare( DateTime->new(year => 1989, month => 1,  day => 8, time_zone => 'Asia/Tokyo')) == 0);
    ok($e->end->compare( DateTime::Infinite::Future->new() ) == 0);
    is($e->id, 'HEISEI');
    is($e->name, '平成');
}