|
Lines 1-7
Link Here
|
| 1 |
#!/usr/bin/perl |
1 |
#!/usr/bin/perl |
| 2 |
|
2 |
|
| 3 |
use C4::Context; |
3 |
use C4::Context; |
| 4 |
use Test::More tests => 86; |
4 |
use Test::More tests => 96; |
| 5 |
use Modern::Perl; |
5 |
use Modern::Perl; |
| 6 |
|
6 |
|
| 7 |
my $dbh = C4::Context->dbh; |
7 |
my $dbh = C4::Context->dbh; |
|
Lines 11-17
$dbh->{AutoCommit} = 0;
Link Here
|
| 11 |
use C4::Serials::Frequency; |
11 |
use C4::Serials::Frequency; |
| 12 |
use C4::Serials; |
12 |
use C4::Serials; |
| 13 |
|
13 |
|
| 14 |
# TEST CASE 1 - 1 issue per day, no irregularities |
14 |
# TEST CASE - 1 issue per day, no irregularities |
| 15 |
my $frequency = { |
15 |
my $frequency = { |
| 16 |
description => "One issue per day", |
16 |
description => "One issue per day", |
| 17 |
unit => 'day', |
17 |
unit => 'day', |
|
Lines 35-41
is($publisheddate, '1970-01-03');
Link Here
|
| 35 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
35 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 36 |
is($publisheddate, '1970-01-04'); |
36 |
is($publisheddate, '1970-01-04'); |
| 37 |
|
37 |
|
| 38 |
# TEST CASE 2 - 1 issue per day, irregularities |
38 |
# TEST CASE - 1 issue per day, irregularities |
| 39 |
$subscription = { |
39 |
$subscription = { |
| 40 |
periodicity => $id, |
40 |
periodicity => $id, |
| 41 |
firstacquidate => '1970-01-01', |
41 |
firstacquidate => '1970-01-01', |
|
Lines 50-56
is($publisheddate, '1970-01-05');
Link Here
|
| 50 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
50 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 51 |
is($publisheddate, '1970-01-06'); |
51 |
is($publisheddate, '1970-01-06'); |
| 52 |
|
52 |
|
| 53 |
# TEST CASE 3 - 2 issues per day, no irregularity |
53 |
# TEST CASE - 2 issues per day, no irregularity |
| 54 |
$id = AddSubscriptionFrequency({ |
54 |
$id = AddSubscriptionFrequency({ |
| 55 |
description => "Two issues per day", |
55 |
description => "Two issues per day", |
| 56 |
unit => 'day', |
56 |
unit => 'day', |
|
Lines 73-79
is($publisheddate, '1970-01-02');
Link Here
|
| 73 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
73 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 74 |
is($publisheddate, '1970-01-03'); |
74 |
is($publisheddate, '1970-01-03'); |
| 75 |
|
75 |
|
| 76 |
# TEST CASE 4 - 2 issues per day, irregularities |
76 |
# TEST CASE - 2 issues per day, irregularities |
| 77 |
$subscription = { |
77 |
$subscription = { |
| 78 |
periodicity => $id, |
78 |
periodicity => $id, |
| 79 |
firstacquidate => '1970-01-01', |
79 |
firstacquidate => '1970-01-01', |
|
Lines 92-98
is($publisheddate, '1970-01-04');
Link Here
|
| 92 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
92 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 93 |
is($publisheddate, '1970-01-05'); |
93 |
is($publisheddate, '1970-01-05'); |
| 94 |
|
94 |
|
| 95 |
# TEST CASE 5 - 1 issue every 2 days, no irregularity |
95 |
# TEST CASE - 1 issue every 2 days, no irregularity |
| 96 |
$id = AddSubscriptionFrequency({ |
96 |
$id = AddSubscriptionFrequency({ |
| 97 |
description => "one issue every two days", |
97 |
description => "one issue every two days", |
| 98 |
unit => 'day', |
98 |
unit => 'day', |
|
Lines 111-117
is($publisheddate, '1970-01-03');
Link Here
|
| 111 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
111 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 112 |
is($publisheddate, '1970-01-05'); |
112 |
is($publisheddate, '1970-01-05'); |
| 113 |
|
113 |
|
| 114 |
# TEST CASE 6 - 1 issue every 2 days, irregularities |
114 |
# TEST CASE - 1 issue every 2 days, irregularities |
| 115 |
$subscription = { |
115 |
$subscription = { |
| 116 |
periodicity => $id, |
116 |
periodicity => $id, |
| 117 |
firstacquidate => '1970-01-01', |
117 |
firstacquidate => '1970-01-01', |
|
Lines 126-132
is($publisheddate, '1970-01-07');
Link Here
|
| 126 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
126 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 127 |
is($publisheddate, '1970-01-09'); |
127 |
is($publisheddate, '1970-01-09'); |
| 128 |
|
128 |
|
| 129 |
# TEST CASE 7 - 1 issue per week, no irregularity |
129 |
# TEST CASE - 1 issue per week, no irregularity |
| 130 |
$id = AddSubscriptionFrequency({ |
130 |
$id = AddSubscriptionFrequency({ |
| 131 |
description => "one issue per week", |
131 |
description => "one issue per week", |
| 132 |
unit => 'week', |
132 |
unit => 'week', |
|
Lines 145-151
is($publisheddate, '1970-01-08');
Link Here
|
| 145 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
145 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 146 |
is($publisheddate, '1970-01-15'); |
146 |
is($publisheddate, '1970-01-15'); |
| 147 |
|
147 |
|
| 148 |
# TEST CASE 8 - 1 issue per week, irregularities |
148 |
# TEST CASE - 1 issue per week, irregularities |
| 149 |
$subscription = { |
149 |
$subscription = { |
| 150 |
periodicity => $id, |
150 |
periodicity => $id, |
| 151 |
firstacquidate => '1970-01-01', |
151 |
firstacquidate => '1970-01-01', |
|
Lines 160-166
is($publisheddate, '1970-01-22');
Link Here
|
| 160 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
160 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 161 |
is($publisheddate, '1970-01-29'); |
161 |
is($publisheddate, '1970-01-29'); |
| 162 |
|
162 |
|
| 163 |
# TEST CASE 9 - 1 issue every 2 weeks, no irregularity |
163 |
# TEST CASE - 1 issue every 2 weeks, no irregularity |
| 164 |
$id = AddSubscriptionFrequency({ |
164 |
$id = AddSubscriptionFrequency({ |
| 165 |
description => "one issue every 2 weeks", |
165 |
description => "one issue every 2 weeks", |
| 166 |
unit => 'week', |
166 |
unit => 'week', |
|
Lines 181-187
is($publisheddate, '1970-01-29');
Link Here
|
| 181 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
181 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 182 |
is($publisheddate, '1970-02-12'); |
182 |
is($publisheddate, '1970-02-12'); |
| 183 |
|
183 |
|
| 184 |
# TEST CASE 10 - 1 issue every 2 weeks, irregularities |
184 |
# TEST CASE - 1 issue every 2 weeks, irregularities |
| 185 |
$subscription = { |
185 |
$subscription = { |
| 186 |
periodicity => $id, |
186 |
periodicity => $id, |
| 187 |
firstacquidate => '1970-01-01', |
187 |
firstacquidate => '1970-01-01', |
|
Lines 196-202
is($publisheddate, '1970-02-12');
Link Here
|
| 196 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
196 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 197 |
is($publisheddate, '1970-02-26'); |
197 |
is($publisheddate, '1970-02-26'); |
| 198 |
|
198 |
|
| 199 |
# TEST CASE 11 - 2 issues per week, no irregularity |
199 |
# TEST CASE - 2 issues per week, no irregularity |
| 200 |
$id = AddSubscriptionFrequency({ |
200 |
$id = AddSubscriptionFrequency({ |
| 201 |
description => "two issues per week", |
201 |
description => "two issues per week", |
| 202 |
unit => 'week', |
202 |
unit => 'week', |
|
Lines 211-227
$subscription = {
Link Here
|
| 211 |
}; |
211 |
}; |
| 212 |
$publisheddate = $subscription->{firstacquidate}; |
212 |
$publisheddate = $subscription->{firstacquidate}; |
| 213 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
213 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 214 |
is($publisheddate, '1970-01-01'); |
214 |
is($publisheddate, '1970-01-03'); |
| 215 |
# when more than 1 issue per week, date is automatically set to monday |
215 |
# when more than 1 issue per week, date is automatically set to the same day of |
| 216 |
# because we can't guess the right day |
216 |
# week as firstacquidate |
| 217 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
217 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 218 |
is($publisheddate, '1970-01-05'); |
218 |
is($publisheddate, '1970-01-08'); |
| 219 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
219 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 220 |
is($publisheddate, '1970-01-05'); |
220 |
is($publisheddate, '1970-01-10'); |
| 221 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
221 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 222 |
is($publisheddate, '1970-01-12'); |
222 |
is($publisheddate, '1970-01-15'); |
| 223 |
|
223 |
|
| 224 |
# TEST CASE 12 - 2 issues per week, irregularities |
224 |
# TEST CASE - 2 issues per week, irregularities |
| 225 |
$subscription = { |
225 |
$subscription = { |
| 226 |
periodicity => $id, |
226 |
periodicity => $id, |
| 227 |
firstacquidate => '1970-01-01', |
227 |
firstacquidate => '1970-01-01', |
|
Lines 230-246
$subscription = {
Link Here
|
| 230 |
}; |
230 |
}; |
| 231 |
$publisheddate = $subscription->{firstacquidate}; |
231 |
$publisheddate = $subscription->{firstacquidate}; |
| 232 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
232 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 233 |
is($publisheddate, '1970-01-01'); |
233 |
is($publisheddate, '1970-01-03'); |
| 234 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
234 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 235 |
is($publisheddate, '1970-01-05'); |
235 |
is($publisheddate, '1970-01-10'); |
|
|
236 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 237 |
is($publisheddate, '1970-01-22'); |
| 238 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 239 |
is($publisheddate, '1970-01-24'); |
| 240 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 241 |
is($publisheddate, '1970-01-29'); |
| 242 |
|
| 243 |
# TEST CASE - 6 issues per week, no irregularity |
| 244 |
$id = AddSubscriptionFrequency({ |
| 245 |
description => "six issues per week", |
| 246 |
unit => 'week', |
| 247 |
issuesperunit => 6, |
| 248 |
unitsperissue => 1, |
| 249 |
}); |
| 250 |
$subscription = { |
| 251 |
periodicity => $id, |
| 252 |
firstacquidate => '1970-01-06', |
| 253 |
irregularity => '', |
| 254 |
countissuesperunit => 1, |
| 255 |
}; |
| 256 |
$publisheddate = $subscription->{firstacquidate}; |
| 257 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 258 |
is($publisheddate, '1970-01-07'); |
| 259 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 260 |
is($publisheddate, '1970-01-08'); |
| 261 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 262 |
is($publisheddate, '1970-01-09'); |
| 263 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 264 |
is($publisheddate, '1970-01-10'); |
| 265 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 266 |
is($publisheddate, '1970-01-11'); |
| 267 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 268 |
is($publisheddate, '1970-01-13'); |
| 269 |
|
| 270 |
# TEST CASE - 6 issues per week, irregularities |
| 271 |
$subscription = { |
| 272 |
periodicity => $id, |
| 273 |
firstacquidate => '1970-01-06', |
| 274 |
irregularity => '3;5;6', |
| 275 |
countissuesperunit => 1, |
| 276 |
}; |
| 277 |
$publisheddate = $subscription->{firstacquidate}; |
| 278 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 279 |
is($publisheddate, '1970-01-07'); |
| 236 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
280 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 237 |
is($publisheddate, '1970-01-19'); |
281 |
is($publisheddate, '1970-01-09'); |
| 238 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
282 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 239 |
is($publisheddate, '1970-01-19'); |
283 |
is($publisheddate, '1970-01-13'); |
| 240 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
284 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 241 |
is($publisheddate, '1970-01-26'); |
285 |
is($publisheddate, '1970-01-14'); |
| 242 |
|
286 |
|
| 243 |
# TEST CASE 13 - 1 issue per month, no irregularity |
287 |
# TEST CASE - 1 issue per month, no irregularity |
| 244 |
$id = AddSubscriptionFrequency({ |
288 |
$id = AddSubscriptionFrequency({ |
| 245 |
description => "1 issue per month", |
289 |
description => "1 issue per month", |
| 246 |
unit => 'month', |
290 |
unit => 'month', |
|
Lines 261-267
is($publisheddate, '1970-03-01');
Link Here
|
| 261 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
305 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 262 |
is($publisheddate, '1970-04-01'); |
306 |
is($publisheddate, '1970-04-01'); |
| 263 |
|
307 |
|
| 264 |
# TEST CASE 14 - 1 issue per month, irregularities |
308 |
# TEST CASE - 1 issue per month, irregularities |
| 265 |
$subscription = { |
309 |
$subscription = { |
| 266 |
periodicity => $id, |
310 |
periodicity => $id, |
| 267 |
firstacquidate => '1970-01-01', |
311 |
firstacquidate => '1970-01-01', |
|
Lines 276-282
is($publisheddate, '1970-05-01');
Link Here
|
| 276 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
320 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 277 |
is($publisheddate, '1970-06-01'); |
321 |
is($publisheddate, '1970-06-01'); |
| 278 |
|
322 |
|
| 279 |
# TEST CASE 15 - 1 issue every 2 months, no irregularity |
323 |
# TEST CASE - 1 issue every 2 months, no irregularity |
| 280 |
$id = AddSubscriptionFrequency({ |
324 |
$id = AddSubscriptionFrequency({ |
| 281 |
description => "1 issue every 2 months", |
325 |
description => "1 issue every 2 months", |
| 282 |
unit => 'month', |
326 |
unit => 'month', |
|
Lines 297-303
is($publisheddate, '1970-05-01');
Link Here
|
| 297 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
341 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 298 |
is($publisheddate, '1970-07-01'); |
342 |
is($publisheddate, '1970-07-01'); |
| 299 |
|
343 |
|
| 300 |
# TEST CASE 16 - 1 issue every 2 months, irregularities |
344 |
# TEST CASE - 1 issue every 2 months, irregularities |
| 301 |
$subscription = { |
345 |
$subscription = { |
| 302 |
periodicity => $id, |
346 |
periodicity => $id, |
| 303 |
firstacquidate => '1970-01-01', |
347 |
firstacquidate => '1970-01-01', |
|
Lines 312-318
is($publisheddate, '1970-09-01');
Link Here
|
| 312 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
356 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 313 |
is($publisheddate, '1970-11-01'); |
357 |
is($publisheddate, '1970-11-01'); |
| 314 |
|
358 |
|
| 315 |
# TEST CASE 17 - 2 issues per month, no irregularity |
359 |
# TEST CASE - 2 issues per month, no irregularity |
| 316 |
$id = AddSubscriptionFrequency({ |
360 |
$id = AddSubscriptionFrequency({ |
| 317 |
description => "2 issues per month", |
361 |
description => "2 issues per month", |
| 318 |
unit => 'month', |
362 |
unit => 'month', |
|
Lines 327-341
$subscription = {
Link Here
|
| 327 |
}; |
371 |
}; |
| 328 |
$publisheddate = $subscription->{firstacquidate}; |
372 |
$publisheddate = $subscription->{firstacquidate}; |
| 329 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
373 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 330 |
is($publisheddate, '1970-01-01'); |
374 |
is($publisheddate, '1970-01-15'); |
| 331 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
375 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 332 |
is($publisheddate, '1970-02-01'); |
376 |
is($publisheddate, '1970-02-01'); |
| 333 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
377 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 334 |
is($publisheddate, '1970-02-01'); |
378 |
is($publisheddate, '1970-02-15'); |
| 335 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
379 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 336 |
is($publisheddate, '1970-03-01'); |
380 |
is($publisheddate, '1970-03-01'); |
| 337 |
|
381 |
|
| 338 |
# TEST CASE 18 - 2 issues per month, irregularities |
382 |
# TEST CASE - 2 issues per month, irregularities |
| 339 |
$subscription = { |
383 |
$subscription = { |
| 340 |
periodicity => $id, |
384 |
periodicity => $id, |
| 341 |
firstacquidate => '1970-01-01', |
385 |
firstacquidate => '1970-01-01', |
|
Lines 344-360
$subscription = {
Link Here
|
| 344 |
}; |
388 |
}; |
| 345 |
$publisheddate = $subscription->{firstacquidate}; |
389 |
$publisheddate = $subscription->{firstacquidate}; |
| 346 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
390 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 347 |
is($publisheddate, '1970-01-01'); |
391 |
is($publisheddate, '1970-01-15'); |
| 348 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
392 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 349 |
is($publisheddate, '1970-02-01'); |
393 |
is($publisheddate, '1970-02-15'); |
| 350 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
394 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 351 |
is($publisheddate, '1970-04-01'); |
395 |
is($publisheddate, '1970-04-01'); |
| 352 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
396 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 353 |
is($publisheddate, '1970-04-01'); |
397 |
is($publisheddate, '1970-04-15'); |
| 354 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
398 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 355 |
is($publisheddate, '1970-05-01'); |
399 |
is($publisheddate, '1970-05-01'); |
| 356 |
|
400 |
|
| 357 |
# TEST CASE 19 - 1 issue per year, no irregularity |
401 |
# TEST CASE - 1 issue per year, no irregularity |
| 358 |
$id = AddSubscriptionFrequency({ |
402 |
$id = AddSubscriptionFrequency({ |
| 359 |
description => "1 issue per year", |
403 |
description => "1 issue per year", |
| 360 |
unit => 'year', |
404 |
unit => 'year', |
|
Lines 375-381
is($publisheddate, '1972-01-01');
Link Here
|
| 375 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
419 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 376 |
is($publisheddate, '1973-01-01'); |
420 |
is($publisheddate, '1973-01-01'); |
| 377 |
|
421 |
|
| 378 |
# TEST CASE 20 - 1 issue per year, irregularities |
422 |
# TEST CASE - 1 issue per year, irregularities |
| 379 |
$subscription = { |
423 |
$subscription = { |
| 380 |
periodicity => $id, |
424 |
periodicity => $id, |
| 381 |
firstacquidate => '1970-01-01', |
425 |
firstacquidate => '1970-01-01', |
|
Lines 390-396
is($publisheddate, '1974-01-01');
Link Here
|
| 390 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
434 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 391 |
is($publisheddate, '1975-01-01'); |
435 |
is($publisheddate, '1975-01-01'); |
| 392 |
|
436 |
|
| 393 |
# TEST CASE 21 - 1 issue every 2 years, no irregularity |
437 |
# TEST CASE - 1 issue every 2 years, no irregularity |
| 394 |
$id = AddSubscriptionFrequency({ |
438 |
$id = AddSubscriptionFrequency({ |
| 395 |
description => "1 issue every 2 years", |
439 |
description => "1 issue every 2 years", |
| 396 |
unit => 'year', |
440 |
unit => 'year', |
|
Lines 411-417
is($publisheddate, '1974-01-01');
Link Here
|
| 411 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
455 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 412 |
is($publisheddate, '1976-01-01'); |
456 |
is($publisheddate, '1976-01-01'); |
| 413 |
|
457 |
|
| 414 |
# TEST CASE 22 - 1 issue every 2 years, irregularities |
458 |
# TEST CASE - 1 issue every 2 years, irregularities |
| 415 |
$subscription = { |
459 |
$subscription = { |
| 416 |
periodicity => $id, |
460 |
periodicity => $id, |
| 417 |
firstacquidate => '1970-01-01', |
461 |
firstacquidate => '1970-01-01', |
|
Lines 426-432
is($publisheddate, '1978-01-01');
Link Here
|
| 426 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
470 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 427 |
is($publisheddate, '1980-01-01'); |
471 |
is($publisheddate, '1980-01-01'); |
| 428 |
|
472 |
|
| 429 |
# TEST CASE 23 - 2 issues per year, no irregularity |
473 |
# TEST CASE - 2 issues per year, no irregularity |
| 430 |
$id = AddSubscriptionFrequency({ |
474 |
$id = AddSubscriptionFrequency({ |
| 431 |
description => "1 issue every 2 years", |
475 |
description => "1 issue every 2 years", |
| 432 |
unit => 'year', |
476 |
unit => 'year', |
|
Lines 441-455
$subscription = {
Link Here
|
| 441 |
}; |
485 |
}; |
| 442 |
$publisheddate = $subscription->{firstacquidate}; |
486 |
$publisheddate = $subscription->{firstacquidate}; |
| 443 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
487 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 444 |
is($publisheddate, '1970-01-01'); |
488 |
is($publisheddate, '1970-07-02'); |
| 445 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
489 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 446 |
is($publisheddate, '1971-01-01'); |
490 |
is($publisheddate, '1971-01-01'); |
| 447 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
491 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 448 |
is($publisheddate, '1971-01-01'); |
492 |
is($publisheddate, '1971-07-02'); |
| 449 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
493 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 450 |
is($publisheddate, '1972-01-01'); |
494 |
is($publisheddate, '1972-01-01'); |
| 451 |
|
495 |
|
| 452 |
# TEST CASE 24 - 2 issues per year, irregularities |
496 |
# TEST CASE - 2 issues per year, irregularities |
| 453 |
$subscription = { |
497 |
$subscription = { |
| 454 |
periodicity => $id, |
498 |
periodicity => $id, |
| 455 |
firstacquidate => '1970-01-01', |
499 |
firstacquidate => '1970-01-01', |
|
Lines 458-474
$subscription = {
Link Here
|
| 458 |
}; |
502 |
}; |
| 459 |
$publisheddate = $subscription->{firstacquidate}; |
503 |
$publisheddate = $subscription->{firstacquidate}; |
| 460 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
504 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 461 |
is($publisheddate, '1970-01-01'); |
505 |
is($publisheddate, '1970-07-02'); |
| 462 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
506 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 463 |
is($publisheddate, '1971-01-01'); |
507 |
is($publisheddate, '1971-07-02'); |
| 464 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
508 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 465 |
is($publisheddate, '1973-01-01'); |
509 |
is($publisheddate, '1973-01-01'); |
| 466 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
510 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 467 |
is($publisheddate, '1973-01-01'); |
511 |
is($publisheddate, '1973-07-02'); |
| 468 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
512 |
$publisheddate = GetNextDate($subscription, $publisheddate); |
| 469 |
is($publisheddate, '1974-01-01'); |
513 |
is($publisheddate, '1974-01-01'); |
| 470 |
|
514 |
|
| 471 |
# TEST CASE 25 - Irregular |
515 |
# TEST CASE - Irregular |
| 472 |
$id = AddSubscriptionFrequency({ |
516 |
$id = AddSubscriptionFrequency({ |
| 473 |
description => "Irregular", |
517 |
description => "Irregular", |
| 474 |
unit => undef, |
518 |
unit => undef, |
| 475 |
- |
|
|