+is($publisheddate, '1970-01-10');
+$publisheddate = GetNextDate($subscription, $publisheddate);
+is($publisheddate, '1970-01-22');
+$publisheddate = GetNextDate($subscription, $publisheddate);
+is($publisheddate, '1970-01-24');
+$publisheddate = GetNextDate($subscription, $publisheddate);
+is($publisheddate, '1970-01-29');
+
+# TEST CASE - 6 issues per week, no irregularity
+$id = AddSubscriptionFrequency({
+ description => "six issues per week",
+ unit => 'week',
+ issuesperunit => 6,
+ unitsperissue => 1,
+});
+$subscription = {
+ periodicity => $id,
+ firstacquidate => '1970-01-06',
+ irregularity => '',
+ countissuesperunit => 1,
+};
+$publisheddate = $subscription->{firstacquidate};
+$publisheddate = GetNextDate($subscription, $publisheddate);
+is($publisheddate, '1970-01-07');
+$publisheddate = GetNextDate($subscription, $publisheddate);
+is($publisheddate, '1970-01-08');
+$publisheddate = GetNextDate($subscription, $publisheddate);
+is($publisheddate, '1970-01-09');
+$publisheddate = GetNextDate($subscription, $publisheddate);
+is($publisheddate, '1970-01-10');
+$publisheddate = GetNextDate($subscription, $publisheddate);
+is($publisheddate, '1970-01-11');
+$publisheddate = GetNextDate($subscription, $publisheddate);
+is($publisheddate, '1970-01-13');
+
+# TEST CASE - 6 issues per week, irregularities
+$subscription = {
+ periodicity => $id,
+ firstacquidate => '1970-01-06',
+ irregularity => '3;5;6',
+ countissuesperunit => 1,
+};
+$publisheddate = $subscription->{firstacquidate};
+$publisheddate = GetNextDate($subscription, $publisheddate);
+is($publisheddate, '1970-01-07');