Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...

is ($counts{'2017-09-03'}, 4, "2017-09-03 tally correct");
is ($counts{'2017-09-04'}, 2, "2017-09-04 tally correct");

Select or download this

use strict;
use warnings;
...

is ($counts{'2017-09-03'}, 4, "2017-09-03 tally correct");
is ($counts{'2017-09-04'}, 2, "2017-09-04 tally correct");