|
Lines 18-24
Link Here
|
| 18 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
18 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
| 19 |
|
19 |
|
| 20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
| 21 |
use Test::More tests => 58; |
21 |
use Test::More tests => 62; |
| 22 |
use Test::MockModule; |
22 |
use Test::MockModule; |
| 23 |
use Test::Warn; |
23 |
use Test::Warn; |
| 24 |
|
24 |
|
|
Lines 336-341
$bookseller->contacts->[0]->email('testemail@mydomain.com');
Link Here
|
| 336 |
C4::Bookseller::ModBookseller($bookseller); |
336 |
C4::Bookseller::ModBookseller($bookseller); |
| 337 |
$bookseller = Koha::Acquisition::Bookseller->fetch({ id => $booksellerid }); |
337 |
$bookseller = Koha::Acquisition::Bookseller->fetch({ id => $booksellerid }); |
| 338 |
|
338 |
|
|
|
339 |
{ |
| 339 |
warning_is { |
340 |
warning_is { |
| 340 |
$err = SendAlerts( 'claimacquisition', [ $ordernumber ], 'TESTACQCLAIM' ) } |
341 |
$err = SendAlerts( 'claimacquisition', [ $ordernumber ], 'TESTACQCLAIM' ) } |
| 341 |
"Fake sendmail", |
342 |
"Fake sendmail", |
|
Lines 344-348
warning_is {
Link Here
|
| 344 |
is($err, 1, "Successfully sent claim"); |
345 |
is($err, 1, "Successfully sent claim"); |
| 345 |
is($mail{'To'}, 'testemail@mydomain.com', "mailto correct in sent claim"); |
346 |
is($mail{'To'}, 'testemail@mydomain.com', "mailto correct in sent claim"); |
| 346 |
is($mail{'Message'}, 'my vendor|John Smith|Ordernumber ' . $ordernumber . ' (Silence in the library) (1 ordered)', 'Claim notice text constructed successfully'); |
347 |
is($mail{'Message'}, 'my vendor|John Smith|Ordernumber ' . $ordernumber . ' (Silence in the library) (1 ordered)', 'Claim notice text constructed successfully'); |
|
|
348 |
} |
| 349 |
|
| 350 |
{ |
| 351 |
use C4::Serials; |
| 352 |
|
| 353 |
my $notes = 'notes'; |
| 354 |
my $internalnotes = 'intnotes'; |
| 355 |
my $subscriptionid = NewSubscription( |
| 356 |
undef, "", undef, undef, undef, $biblionumber, |
| 357 |
'2013-01-01', 1, undef, undef, undef, |
| 358 |
undef, undef, undef, undef, undef, undef, |
| 359 |
1, $notes,undef, '2013-01-01', undef, 1, |
| 360 |
undef, undef, 0, $internalnotes, 0, |
| 361 |
undef, undef, 0, undef, '2013-12-31', 0 |
| 362 |
); |
| 363 |
$dbh->do(q{INSERT INTO letter (module, code, name, title, content) VALUES ('serial','RLIST','Serial issue notification','Serial issue notification','<<biblio.title>>,<<subscription.subscriptionid>>,<<serial.serialseq>>');}); |
| 364 |
my ($serials_count, @serials) = GetSerials($subscriptionid); |
| 365 |
my $serial = $serials[0]; |
| 366 |
|
| 367 |
my $borrowernumber = AddMember( |
| 368 |
firstname => 'John', |
| 369 |
surname => 'Smith', |
| 370 |
categorycode => 'PT', |
| 371 |
branchcode => 'CPL', |
| 372 |
dateofbirth => $date, |
| 373 |
email => 'john.smith@test.de', |
| 374 |
); |
| 375 |
my $alert_id = C4::Letters::addalert($borrowernumber, 'issue', $subscriptionid); |
| 376 |
|
| 377 |
|
| 378 |
my $err2; |
| 379 |
warning_is { |
| 380 |
$err2 = SendAlerts( 'issue', $serial->{serialid}, 'RLIST' ) } |
| 381 |
"Fake sendmail", |
| 382 |
"SendAlerts is using the mocked sendmail routine"; |
| 383 |
is($err2, "", "Successfully sent serial notification"); |
| 384 |
is($mail{'To'}, 'john.smith@test.de', "mailto correct in sent serial notification"); |
| 385 |
is($mail{'Message'}, 'Silence in the library,'.$subscriptionid.',No. 0', 'Serial notification text constructed successfully'); |
| 386 |
} |
| 387 |
|
| 347 |
|
388 |
|
| 348 |
$schema->storage->txn_rollback(); |
389 |
$schema->storage->txn_rollback(); |
| 349 |
- |
|
|