root/lang/perl/DateTime-Holiday-Japanese/trunk/t/07_case.t @ 38675

use strict;
use Test::More;
use YAML();
use DateTime::Holiday::Japanese qw/
    is_holiday
    is_holiday_name
    holiday_name
/;
use utf8;
use Encode;

my @files = glob q{./t/testdata/*.yaml};

plan tests => 3731;

my $dt1 = DateTime->now( time_zone => 'Asia/Tokyo' );
my $dt2 = DateTime->now( time_zone => 'Asia/Tokyo' );

for my $file (@files) {
    my $test = YAML::LoadFile($file);
    if( $file =~ /\/(\d{4})\.yaml$/ ) {
        my $year = $1;
        $dt1->set( year => $year , month => 1 , day => 1 );
        $dt2->set( year => $year , month => 1 , day => 1 )->add( years => 1 );
        while( $dt1->ymd('') < $dt2->ymd('') ) {
            if( exists $test->{$dt1->ymd('')} ) {
                Encode::_utf8_on($test->{$dt1->ymd('')});
                ok is_holiday($dt1);
                ok is_holiday_name($dt1);
                is holiday_name($dt1) , $test->{$dt1->ymd('')};
            }else{
                ok not is_holiday_name($dt1);
                is holiday_name($dt1) , undef;
            }
            $dt1->add( days => 1 );
        }
    }
}