Lines 371-381
$subscription = {
Link Here
|
371 |
}; |
371 |
}; |
372 |
$publisheddate = $subscription->{firstacquidate}; |
372 |
$publisheddate = $subscription->{firstacquidate}; |
373 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
373 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
374 |
is($publisheddate, '1970-01-15'); |
374 |
is($publisheddate, '1970-01-16', 'January has 31 days'); |
375 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
375 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
376 |
is($publisheddate, '1970-02-01'); |
376 |
is($publisheddate, '1970-02-01'); |
377 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
377 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
378 |
is($publisheddate, '1970-02-15'); |
378 |
is($publisheddate, '1970-02-15', 'February has only 28 days'); |
379 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
379 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
380 |
is($publisheddate, '1970-03-01'); |
380 |
is($publisheddate, '1970-03-01'); |
381 |
|
381 |
|
Lines 388-400
$subscription = {
Link Here
|
388 |
}; |
388 |
}; |
389 |
$publisheddate = $subscription->{firstacquidate}; |
389 |
$publisheddate = $subscription->{firstacquidate}; |
390 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
390 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
391 |
is($publisheddate, '1970-01-15'); |
391 |
is($publisheddate, '1970-01-16', 'January has 31 days'); |
392 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
392 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
393 |
is($publisheddate, '1970-02-15'); |
393 |
is($publisheddate, '1970-02-15', 'February has only 28 days'); |
394 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
394 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
395 |
is($publisheddate, '1970-04-01'); |
395 |
is($publisheddate, '1970-04-01'); |
396 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
396 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
397 |
is($publisheddate, '1970-04-15'); |
397 |
is($publisheddate, '1970-04-16', 'April has 30 days'); |
398 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
398 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
399 |
is($publisheddate, '1970-05-01'); |
399 |
is($publisheddate, '1970-05-01'); |
400 |
|
400 |
|
401 |
- |
|
|