|
Lines 247-252
is( $ISBN_letter->{name}, 'book', 'letter name for "ISBN" letter is book' );
Link Here
|
| 247 |
# GetPreparedLetter |
247 |
# GetPreparedLetter |
| 248 |
t::lib::Mocks::mock_preference('OPACBaseURL', 'http://thisisatest.com'); |
248 |
t::lib::Mocks::mock_preference('OPACBaseURL', 'http://thisisatest.com'); |
| 249 |
t::lib::Mocks::mock_preference( 'SendAllEmailsTo', '' ); |
249 |
t::lib::Mocks::mock_preference( 'SendAllEmailsTo', '' ); |
|
|
250 |
t::lib::Mocks::mock_preference( 'ReplytoDefault', q{} ); |
| 250 |
|
251 |
|
| 251 |
my $sms_content = 'This is a SMS for an <<status>>'; |
252 |
my $sms_content = 'This is a SMS for an <<status>>'; |
| 252 |
$dbh->do( q|INSERT INTO letter(branchcode,module,code,name,is_html,title,content,message_transport_type) VALUES (?,'my module','my code','my name',1,'my title',?,'sms')|, undef, $library->{branchcode}, $sms_content ); |
253 |
$dbh->do( q|INSERT INTO letter(branchcode,module,code,name,is_html,title,content,message_transport_type) VALUES (?,'my module','my code','my name',1,'my title',?,'sms')|, undef, $library->{branchcode}, $sms_content ); |
|
Lines 525-533
t::lib::Mocks::mock_preference( 'KohaAdminEmailAddress', 'library@domain.com' );
Link Here
|
| 525 |
} |
526 |
} |
| 526 |
qr|Fake send_or_die|, |
527 |
qr|Fake send_or_die|, |
| 527 |
"SendAlerts is using the mocked send_or_die routine (orderacquisition)"; |
528 |
"SendAlerts is using the mocked send_or_die routine (orderacquisition)"; |
| 528 |
is( $err, 1, "Successfully sent order." ); |
529 |
is( $err, 1, "Successfully sent order." ); |
| 529 |
is( $email_object->email->header('To'), 'testemail@mydomain.com', "mailto correct in sent order" ); |
530 |
is( $email_object->email->header('To'), 'testemail@mydomain.com', "mailto correct in sent order" ); |
| 530 |
is( defined( $email_object->email->header('Reply-To') ), '', "No reply-to address is set" ); |
531 |
is( scalar $email_object->email->header('Reply-To'), undef, "No reply-to address is set" ); |
| 531 |
is( |
532 |
is( |
| 532 |
$email_object->email->body, |
533 |
$email_object->email->body, |
| 533 |
'my vendor|John Smith|Ordernumber ' |
534 |
'my vendor|John Smith|Ordernumber ' |
|
Lines 764-771
subtest 'SendAlerts - claimissue' => sub {
Link Here
|
| 764 |
is( $err, 1, "Successfully sent claim" ); |
765 |
is( $err, 1, "Successfully sent claim" ); |
| 765 |
is( $email_object->email->header('To'), |
766 |
is( $email_object->email->header('To'), |
| 766 |
'testemail@mydomain.com', "mailto correct in sent claim" ); |
767 |
'testemail@mydomain.com', "mailto correct in sent claim" ); |
| 767 |
is( defined($email_object->email->header('Reply-To')), |
768 |
is( scalar $email_object->email->header('Reply-To'), undef, "reply-to is not set" ); |
| 768 |
'', "reply-to is not set" ); |
|
|
| 769 |
is( |
769 |
is( |
| 770 |
$email_object->email->body, |
770 |
$email_object->email->body, |
| 771 |
"$serialids[0]|2013-01-01|Silence in the library|xxxx-yyyy", |
771 |
"$serialids[0]|2013-01-01|Silence in the library|xxxx-yyyy", |
| 772 |
- |
|
|