View | Details | Raw Unified | Return to bug 36268
Collapse All | Expand All

(-)a/t/db_dependent/Letters.t (-6 / +5 lines)
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
- 

Return to bug 36268