|
Lines 921-927
subtest 'Test limit parameter for SendQueuedMessages' => sub {
Link Here
|
| 921 |
|
921 |
|
| 922 |
subtest 'Test message_id parameter for SendQueuedMessages' => sub { |
922 |
subtest 'Test message_id parameter for SendQueuedMessages' => sub { |
| 923 |
|
923 |
|
| 924 |
plan tests => 6; |
924 |
plan tests => 8; |
| 925 |
|
925 |
|
| 926 |
my $dbh = C4::Context->dbh; |
926 |
my $dbh = C4::Context->dbh; |
| 927 |
|
927 |
|
|
Lines 949-961
subtest 'Test message_id parameter for SendQueuedMessages' => sub {
Link Here
|
| 949 |
'from_address' => 'root@localhost.' # invalid KohaAdminEmailAddress |
949 |
'from_address' => 'root@localhost.' # invalid KohaAdminEmailAddress |
| 950 |
}; |
950 |
}; |
| 951 |
my $message_id = C4::Letters::EnqueueLetter($my_message); |
951 |
my $message_id = C4::Letters::EnqueueLetter($my_message); |
| 952 |
throws_ok { |
952 |
my $processed = C4::Letters::SendQueuedMessages( { message_id => $message_id } ); |
| 953 |
C4::Letters::SendQueuedMessages( { message_id => $message_id } ); |
953 |
is( $processed, 1, 'Processed 1 message when one message_id passed' ); |
| 954 |
} 'Koha::Exceptions::BadParameter', |
|
|
| 955 |
'Exception thrown if invalid email is passed'; |
| 956 |
my $message_1 = C4::Letters::GetMessage($message_id); |
954 |
my $message_1 = C4::Letters::GetMessage($message_id); |
| 957 |
# FIXME must be 'failed' |
955 |
is( $message_1->{status}, 'failed', 'Invalid KohaAdminEmailAddress => status failed' ); |
| 958 |
is( $message_1->{status}, 'pending', 'Invalid KohaAdminEmailAddress => status pending' ); |
956 |
is( $message_1->{delivery_note}, "Invalid 'from' parameter: " . 'root@localhost.', 'Delivery note for invalid from address'); |
|
|
957 |
is( $message_1->{error_code}, 'INVALID_EMAIL', 'Error code set correctly for invalid email parameter'); |
| 959 |
|
958 |
|
| 960 |
$my_message->{from_address} = 'root@example.org'; # valid KohaAdminEmailAddress |
959 |
$my_message->{from_address} = 'root@example.org'; # valid KohaAdminEmailAddress |
| 961 |
$message_id = C4::Letters::EnqueueLetter($my_message); |
960 |
$message_id = C4::Letters::EnqueueLetter($my_message); |
|
Lines 964-969
subtest 'Test message_id parameter for SendQueuedMessages' => sub {
Link Here
|
| 964 |
"SendQueuedMessages is using the mocked send_or_die routine"; |
963 |
"SendQueuedMessages is using the mocked send_or_die routine"; |
| 965 |
$message_1 = C4::Letters::GetMessage($message_1->{message_id}); |
964 |
$message_1 = C4::Letters::GetMessage($message_1->{message_id}); |
| 966 |
my $message_2 = C4::Letters::GetMessage($message_id); |
965 |
my $message_2 = C4::Letters::GetMessage($message_id); |
| 967 |
is( $message_1->{status}, 'pending', 'Message 1 status is unchanged' ); # Must be 'failed' |
966 |
is( $message_1->{status}, 'failed', 'Message 1 status is unchanged' ); |
| 968 |
is( $message_2->{status}, 'sent', 'Valid KohaAdminEmailAddress => status sent' ); |
967 |
is( $message_2->{status}, 'sent', 'Valid KohaAdminEmailAddress => status sent' ); |
| 969 |
}; |
968 |
}; |
| 970 |
- |
|
|