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