t/workingdays.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

use Test::More;
use DateTime;

use_ok 'FixMyStreet::WorkingDays';


my $wd = FixMyStreet::WorkingDays->new(
    public_holidays => [
        '2020-09-21',
        '2020-09-15',
    ],
);

my $dt = DateTime->new(year => 2020, month => 9, day => 19);

is $wd->add_days($dt, 1)->ymd, '2020-09-22';
is $wd->sub_days($dt, 5)->ymd, '2020-09-11';
is $wd->is_public_holiday($dt), undef;
is $wd->is_weekend($dt), 1;

done_testing;