|
Lines 704-710
subtest "NewSubscription|ModSubscription" => sub {
Link Here
|
| 704 |
}; |
704 |
}; |
| 705 |
|
705 |
|
| 706 |
subtest "test numbering pattern with dates in GetSeq GetNextSeq" => sub { |
706 |
subtest "test numbering pattern with dates in GetSeq GetNextSeq" => sub { |
| 707 |
plan tests => 4; |
707 |
plan tests => 6; |
| 708 |
$subscription = { |
708 |
$subscription = { |
| 709 |
lastvalue1 => 1, lastvalue2 => 1, lastvalue3 => 1, |
709 |
lastvalue1 => 1, lastvalue2 => 1, lastvalue3 => 1, |
| 710 |
innerloop1 => 0, innerloop2 => 0, innerloop3 => 0, |
710 |
innerloop1 => 0, innerloop2 => 0, innerloop3 => 0, |
|
Lines 737-742
subtest "test numbering pattern with dates in GetSeq GetNextSeq" => sub {
Link Here
|
| 737 |
'GetNextSeq correctly calculates numbering from planned date, leap year' |
737 |
'GetNextSeq correctly calculates numbering from planned date, leap year' |
| 738 |
); |
738 |
); |
| 739 |
|
739 |
|
|
|
740 |
$pattern = { |
| 741 |
numberingmethod => '{Year} {Day} {DayName} {Month2} {MonthName}', |
| 742 |
}; |
| 743 |
$subscription->{firstacquidate} = '2024-02-29'; |
| 744 |
$planneddate = '2024-02-29'; |
| 745 |
$numbering = GetSeq( $subscription, $pattern ); |
| 746 |
is( |
| 747 |
$numbering, '2024 29 Thursday 02 February', |
| 748 |
'GetSeq correctly calculates 2 digit month numbering from first aqui date, leap year' |
| 749 |
); |
| 750 |
($numbering) = GetNextSeq( $subscription, $pattern, undef, $planneddate ); |
| 751 |
is( |
| 752 |
$numbering, '2024 29 Thursday 02 February', |
| 753 |
'GetNextSeq correctly calculates 2 digit month numbering from planned date, leap year' |
| 754 |
); |
| 755 |
|
| 740 |
}; |
756 |
}; |
| 741 |
|
757 |
|
| 742 |
subtest "DelSubscription" => sub { |
758 |
subtest "DelSubscription" => sub { |
| 743 |
- |
|
|