Lines 18-28
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 => 69; |
21 |
use Test::More tests => 70; |
22 |
use Test::MockModule; |
22 |
use Test::MockModule; |
23 |
use Test::Warn; |
23 |
use Test::Warn; |
24 |
|
24 |
|
25 |
use MARC::Record; |
25 |
use MARC::Record; |
|
|
26 |
use Module::Load::Conditional qw/check_install/; |
26 |
|
27 |
|
27 |
my %mail; |
28 |
my %mail; |
28 |
my $module = new Test::MockModule('Mail::Sendmail'); |
29 |
my $module = new Test::MockModule('Mail::Sendmail'); |
Lines 160-165
is( $resent, undef, 'ResendMessage should return undef if not message_id given'
Link Here
|
160 |
is($messages->[0]->{delivery_note}, 'Missing SMS number', |
161 |
is($messages->[0]->{delivery_note}, 'Missing SMS number', |
161 |
'Delivery note for no smsalertnumber correctly set'); |
162 |
'Delivery note for no smsalertnumber correctly set'); |
162 |
|
163 |
|
|
|
164 |
subtest 'Test SMS::Send driver connectivity exception' => sub { |
165 |
if ( check_install( module => 'SMS::Send::Test') ) { |
166 |
plan tests => 3; |
167 |
} else { |
168 |
plan skip_all => 'SMS::Send not installed'; |
169 |
} |
170 |
|
171 |
|
172 |
my $sms_send_module = new Test::MockModule('SMS::Send::Test'); |
173 |
$sms_send_module->mock( |
174 |
'send_sms', |
175 |
sub { |
176 |
warn "Fake SMS driver"; |
177 |
Koha::Exceptions::ConnectionFailed->throw(error => "Connection failed"); |
178 |
} |
179 |
); |
180 |
t::lib::Mocks::mock_preference('SMSSendDriver', 'Test'); |
181 |
Koha::Patrons->find($borrowernumber)->set({ smsalertnumber => "+1234567890" })->store; |
182 |
warning_is { $messages_processed = C4::Letters::SendQueuedMessages(); } |
183 |
"Fake SMS driver", |
184 |
"SMS sent using the mocked SMS::Send driver subroutine send_sms"; |
185 |
$messages = C4::Letters::GetQueuedMessages(); |
186 |
is( $messages->[0]->{status}, 'pending', |
187 |
'Message is still pending after SendQueuedMessages() because of network failure (bug 14791)' ); |
188 |
is( $messages->[0]->{delivery_note}, 'Connection failed. Attempting to resend.', |
189 |
'Message has correct delivery note about resending' ); |
190 |
}; |
191 |
|
192 |
|
163 |
|
193 |
|
164 |
# GetLetters |
194 |
# GetLetters |
165 |
my $letters = C4::Letters::GetLetters(); |
195 |
my $letters = C4::Letters::GetLetters(); |
166 |
- |
|
|