Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
subtest 'Test message_id parameter for SendQueuedMessages' => sub {
subtest 'Test message_id parameter for SendQueuedMessages' => sub {
my $dbh = C4::Context->dbh;
my $dbh = C4::Context->dbh;
'borrowernumber' => $borrowernumber,
'to_address' => 'to@example.org',
'message_transport_type' => 'email',
'borrowernumber' => $borrowernumber,
'to_address' => 'to@example.org',
'message_transport_type' => 'email',
- 'from_address' => 'root@localhost' # invalid KohaAdminEmailAddress
+ 'from_address' => 'root@localhost.' # invalid KohaAdminEmailAddress
};
my $message_id = C4::Letters::EnqueueLetter($my_message);
throws_ok {
};
my $message_id = C4::Letters::EnqueueLetter($my_message);
throws_ok {
$my_message->{from_address} = 'root@example.org'; # valid KohaAdminEmailAddress
$message_id = C4::Letters::EnqueueLetter($my_message);
$my_message->{from_address} = 'root@example.org'; # valid KohaAdminEmailAddress
$message_id = C4::Letters::EnqueueLetter($my_message);
- C4::Letters::SendQueuedMessages( { message_id => $message_id } );
+ warning_like { C4::Letters::SendQueuedMessages( { message_id => $message_id } ); }
+ qr|Fake send_or_die|,
+ "SendQueuedMessages is using the mocked send_or_die routine";
$message_1 = C4::Letters::GetMessage($message_1->{message_id});
my $message_2 = C4::Letters::GetMessage($message_id);
is( $message_1->{status}, 'pending', 'Message 1 status is unchanged' ); # Must be 'failed'
$message_1 = C4::Letters::GetMessage($message_1->{message_id});
my $message_2 = C4::Letters::GetMessage($message_id);
is( $message_1->{status}, 'pending', 'Message 1 status is unchanged' ); # Must be 'failed'