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 |
- |
|
|