Lines 18-24
Link Here
|
18 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
18 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
19 |
|
19 |
|
20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
21 |
use Test::More tests => 100; |
21 |
use Test::More tests => 97; |
22 |
use Test::MockModule; |
22 |
use Test::MockModule; |
23 |
use Test::Warn; |
23 |
use Test::Warn; |
24 |
use Test::Exception; |
24 |
use Test::Exception; |
Lines 157-162
is( $messages->[0]->{failure_code}, '', 'Failure code for successful message cor
Link Here
|
157 |
my $yesterday = dt_from_string->subtract( days => 1 ); |
157 |
my $yesterday = dt_from_string->subtract( days => 1 ); |
158 |
Koha::Notice::Messages->find($messages->[0]->{message_id})->time_queued($yesterday)->store; |
158 |
Koha::Notice::Messages->find($messages->[0]->{message_id})->time_queued($yesterday)->store; |
159 |
|
159 |
|
|
|
160 |
|
161 |
# EnqueueLetter - Test characters limitation for SMS |
162 |
$my_message->{letter}->{content} = "a" x 2000; |
163 |
|
164 |
t::lib::Mocks::mock_preference('SMSSendMaxChar', ''); |
165 |
$message_id = C4::Letters::EnqueueLetter($my_message); |
166 |
my $message = $schema->resultset('MessageQueue')->search({ message_id => $message_id })->next(); |
167 |
is( length($message->content()), 2000, "EnqueueLetter doesn't resize the message when SMSSendMaxChar is empty" ); |
168 |
$message->delete(); |
169 |
|
170 |
t::lib::Mocks::mock_preference('SMSSendMaxChar', 100); |
171 |
$message_id = C4::Letters::EnqueueLetter($my_message); |
172 |
$message = $schema->resultset('MessageQueue')->search({ message_id => $message_id })->next(); |
173 |
is( length($message->content()), 100, "EnqueueLetter resizes the message according to the value of SMSSendMaxChar" ); |
174 |
$message->delete(); |
175 |
|
176 |
|
160 |
# SendQueuedMessages |
177 |
# SendQueuedMessages |
161 |
|
178 |
|
162 |
throws_ok { |
179 |
throws_ok { |
Lines 194-200
is(dt_from_string($messages->[0]->{time_queued}), $yesterday, 'Time queued remai
Link Here
|
194 |
|
211 |
|
195 |
# ResendMessage |
212 |
# ResendMessage |
196 |
my $resent = C4::Letters::ResendMessage($messages->[0]->{message_id}); |
213 |
my $resent = C4::Letters::ResendMessage($messages->[0]->{message_id}); |
197 |
my $message = C4::Letters::GetMessage( $messages->[0]->{message_id}); |
214 |
$message = C4::Letters::GetMessage( $messages->[0]->{message_id}); |
198 |
is( $resent, 1, 'The message should have been resent' ); |
215 |
is( $resent, 1, 'The message should have been resent' ); |
199 |
is($message->{status},'pending', 'ResendMessage sets status to pending correctly (bug 12426)'); |
216 |
is($message->{status},'pending', 'ResendMessage sets status to pending correctly (bug 12426)'); |
200 |
$resent = C4::Letters::ResendMessage($messages->[0]->{message_id}); |
217 |
$resent = C4::Letters::ResendMessage($messages->[0]->{message_id}); |
Lines 958-964
subtest 'Test SMS handling in SendQueuedMessages' => sub {
Link Here
|
958 |
qr|Fake send_or_die|, |
975 |
qr|Fake send_or_die|, |
959 |
"SendAlerts is using the mocked send_or_die routine (claimissues)"; |
976 |
"SendAlerts is using the mocked send_or_die routine (claimissues)"; |
960 |
|
977 |
|
961 |
my $message = $schema->resultset('MessageQueue')->search({ |
978 |
$message = $schema->resultset('MessageQueue')->search({ |
962 |
borrowernumber => $borrowernumber, |
979 |
borrowernumber => $borrowernumber, |
963 |
status => 'sent' |
980 |
status => 'sent' |
964 |
})->next(); |
981 |
})->next(); |
965 |
- |
|
|