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