view release on metacpan or  search on metacpan

t/200_year_2025.t  view on Meta::CPAN

# - perl -
use strict;
use warnings;
use Data::Dumper qw{Dumper};
use Test::More tests => 12;
use Date::Holidays::NYSE qw{is_holiday holidays};

#From: https://www.nyse.com/markets/hours-calendars
#From: https://www.nyse.com/index (Dec, 30, 2024) "The U.S stock market will close on Thursday January 9 and the bond market will close early that day in observance of Day of Mourning for Jimmy Carter."

my $year = 2025;
is( is_holiday($year,  1,  1), q{New Year's Day});
is( is_holiday($year,  1,  9), q{Day of Mourning for President Jimmy Carter});
is( is_holiday($year,  1, 20), q{Martin Luther King, Jr. Day});
is( is_holiday($year,  2, 17), q{Washington's Birthday});
is( is_holiday($year,  4, 18), q{Good Friday});
is( is_holiday($year,  5, 26), q{Memorial Day});
is( is_holiday($year,  6, 19), q{Juneteenth National Independence Day});
is( is_holiday($year,  7,  4), q{Independence Day});
is( is_holiday($year,  9,  1), q{Labor Day});
is( is_holiday($year, 11, 27), q{Thanksgiving Day});
is( is_holiday($year, 12, 25), q{Christmas Day});

is(scalar(keys %{holidays($year)}), 11);