|
Lines 631-644
subtest "test numbering pattern with dates in GetSeq GetNextSeq" => sub {
Link Here
|
| 631 |
'GetSeq correctly calculates numbering from first aqui date, leap year' |
631 |
'GetSeq correctly calculates numbering from first aqui date, leap year' |
| 632 |
); |
632 |
); |
| 633 |
|
633 |
|
| 634 |
my $planneddate = '1970-11-01'; |
634 |
my $planneddate = '1970-10-01'; |
| 635 |
($numbering) = GetNextSeq( $subscription, $pattern, undef, $planneddate ); |
635 |
my $nextpublisheddate = '1970-11-01'; |
| 636 |
is( $numbering, '1970 1 Sunday 11 November', 'GetNextSeq correctly calculates numbering from planned date' ); |
636 |
($numbering) = GetNextSeq( $subscription, $pattern, undef, $planneddate, $nextpublisheddate ); |
| 637 |
$planneddate = '2024-02-29'; |
637 |
is( $numbering, '1970 1 Sunday 11 November', 'GetNextSeq correctly calculates numbering from next published date' ); |
| 638 |
($numbering) = GetNextSeq( $subscription, $pattern, undef, $planneddate ); |
638 |
$planneddate = '2024-01-29'; |
|
|
639 |
$nextpublisheddate = '2024-02-29'; |
| 640 |
($numbering) = GetNextSeq( $subscription, $pattern, undef, $planneddate, $nextpublisheddate ); |
| 639 |
is( |
641 |
is( |
| 640 |
$numbering, '2024 29 Thursday 2 February', |
642 |
$numbering, '2024 29 Thursday 2 February', |
| 641 |
'GetNextSeq correctly calculates numbering from planned date, leap year' |
643 |
'GetNextSeq correctly calculates numbering from next published date, leap year' |
| 642 |
); |
644 |
); |
| 643 |
|
645 |
|
| 644 |
}; |
646 |
}; |
| 645 |
- |
|
|