|
Lines 19-25
Link Here
|
| 19 |
|
19 |
|
| 20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
| 21 |
use File::Basename qw(dirname); |
21 |
use File::Basename qw(dirname); |
| 22 |
use Test::More tests => 100; |
22 |
use Test::More tests => 102; |
| 23 |
use Test::MockModule; |
23 |
use Test::MockModule; |
| 24 |
use Test::Warn; |
24 |
use Test::Warn; |
| 25 |
use Test::Exception; |
25 |
use Test::Exception; |
|
Lines 158-163
is( $messages->[0]->{failure_code}, '', 'Failure code for successful message cor
Link Here
|
| 158 |
my $yesterday = dt_from_string->subtract( days => 1 ); |
158 |
my $yesterday = dt_from_string->subtract( days => 1 ); |
| 159 |
Koha::Notice::Messages->find($messages->[0]->{message_id})->time_queued($yesterday)->store; |
159 |
Koha::Notice::Messages->find($messages->[0]->{message_id})->time_queued($yesterday)->store; |
| 160 |
|
160 |
|
|
|
161 |
|
| 162 |
# EnqueueLetter - Test characters limitation for SMS |
| 163 |
$my_message->{letter}->{content} = "a" x 2000; |
| 164 |
|
| 165 |
t::lib::Mocks::mock_preference('SMSSendMaxChar', ''); |
| 166 |
$message_id = C4::Letters::EnqueueLetter($my_message); |
| 167 |
my $message = $schema->resultset('MessageQueue')->search({ message_id => $message_id })->next(); |
| 168 |
is( length($message->content()), 2000, "EnqueueLetter doesn't resize the message when SMSSendMaxChar is empty" ); |
| 169 |
$message->delete(); |
| 170 |
|
| 171 |
t::lib::Mocks::mock_preference('SMSSendMaxChar', 100); |
| 172 |
$message_id = C4::Letters::EnqueueLetter($my_message); |
| 173 |
$message = $schema->resultset('MessageQueue')->search({ message_id => $message_id })->next(); |
| 174 |
is( length($message->content()), 100, "EnqueueLetter resizes the message according to the value of SMSSendMaxChar" ); |
| 175 |
$message->delete(); |
| 176 |
|
| 177 |
|
| 161 |
# SendQueuedMessages |
178 |
# SendQueuedMessages |
| 162 |
|
179 |
|
| 163 |
throws_ok { |
180 |
throws_ok { |
|
Lines 195-201
is(dt_from_string($messages->[0]->{time_queued}), $yesterday, 'Time queued remai
Link Here
|
| 195 |
|
212 |
|
| 196 |
# ResendMessage |
213 |
# ResendMessage |
| 197 |
my $resent = C4::Letters::ResendMessage($messages->[0]->{message_id}); |
214 |
my $resent = C4::Letters::ResendMessage($messages->[0]->{message_id}); |
| 198 |
my $message = C4::Letters::GetMessage( $messages->[0]->{message_id}); |
215 |
$message = C4::Letters::GetMessage( $messages->[0]->{message_id}); |
| 199 |
is( $resent, 1, 'The message should have been resent' ); |
216 |
is( $resent, 1, 'The message should have been resent' ); |
| 200 |
is($message->{status},'pending', 'ResendMessage sets status to pending correctly (bug 12426)'); |
217 |
is($message->{status},'pending', 'ResendMessage sets status to pending correctly (bug 12426)'); |
| 201 |
$resent = C4::Letters::ResendMessage($messages->[0]->{message_id}); |
218 |
$resent = C4::Letters::ResendMessage($messages->[0]->{message_id}); |
|
Lines 1027-1033
subtest 'Test SMS handling in SendQueuedMessages' => sub {
Link Here
|
| 1027 |
qr|Fake send_or_die|, |
1044 |
qr|Fake send_or_die|, |
| 1028 |
"SendAlerts is using the mocked send_or_die routine (claimissues)"; |
1045 |
"SendAlerts is using the mocked send_or_die routine (claimissues)"; |
| 1029 |
|
1046 |
|
| 1030 |
my $message = $schema->resultset('MessageQueue')->search({ |
1047 |
$message = $schema->resultset('MessageQueue')->search({ |
| 1031 |
borrowernumber => $borrowernumber, |
1048 |
borrowernumber => $borrowernumber, |
| 1032 |
status => 'sent' |
1049 |
status => 'sent' |
| 1033 |
})->next(); |
1050 |
})->next(); |
| 1034 |
- |
|
|