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

(-)a/t/db_dependent/Letters.t (-4 / +5 lines)
Lines 962-968 subtest 'Test limit parameter for SendQueuedMessages' => sub { Link Here
962
962
963
subtest 'Test message_id parameter for SendQueuedMessages' => sub {
963
subtest 'Test message_id parameter for SendQueuedMessages' => sub {
964
964
965
    plan tests => 5;
965
    plan tests => 6;
966
966
967
    my $dbh = C4::Context->dbh;
967
    my $dbh = C4::Context->dbh;
968
968
Lines 987-993 subtest 'Test message_id parameter for SendQueuedMessages' => sub { Link Here
987
        'borrowernumber'         => $borrowernumber,
987
        'borrowernumber'         => $borrowernumber,
988
        'to_address'             => 'to@example.org',
988
        'to_address'             => 'to@example.org',
989
        'message_transport_type' => 'email',
989
        'message_transport_type' => 'email',
990
        'from_address'           => 'root@localhost' # invalid KohaAdminEmailAddress
990
        'from_address'           => 'root@localhost.' # invalid KohaAdminEmailAddress
991
    };
991
    };
992
    my $message_id = C4::Letters::EnqueueLetter($my_message);
992
    my $message_id = C4::Letters::EnqueueLetter($my_message);
993
    throws_ok {
993
    throws_ok {
Lines 1000-1006 subtest 'Test message_id parameter for SendQueuedMessages' => sub { Link Here
1000
1000
1001
    $my_message->{from_address} = 'root@example.org'; # valid KohaAdminEmailAddress
1001
    $my_message->{from_address} = 'root@example.org'; # valid KohaAdminEmailAddress
1002
    $message_id = C4::Letters::EnqueueLetter($my_message);
1002
    $message_id = C4::Letters::EnqueueLetter($my_message);
1003
    C4::Letters::SendQueuedMessages( { message_id => $message_id } );
1003
    warning_like { C4::Letters::SendQueuedMessages( { message_id => $message_id } ); }
1004
        qr|Fake send_or_die|,
1005
        "SendQueuedMessages is using the mocked send_or_die routine";
1004
    $message_1 = C4::Letters::GetMessage($message_1->{message_id});
1006
    $message_1 = C4::Letters::GetMessage($message_1->{message_id});
1005
    my $message_2 = C4::Letters::GetMessage($message_id);
1007
    my $message_2 = C4::Letters::GetMessage($message_id);
1006
    is( $message_1->{status}, 'pending', 'Message 1 status is unchanged' ); # Must be 'failed'
1008
    is( $message_1->{status}, 'pending', 'Message 1 status is unchanged' ); # Must be 'failed'
1007
- 

Return to bug 28017