Lines 91-97
is( C4::Letters::EnqueueLetter(), undef, 'EnqueueLetter without argument returns
Link Here
|
91 |
my $my_message = { |
91 |
my $my_message = { |
92 |
borrowernumber => $borrowernumber, |
92 |
borrowernumber => $borrowernumber, |
93 |
message_transport_type => 'sms', |
93 |
message_transport_type => 'sms', |
94 |
to_address => 'to@example.com', |
94 |
to_address => undef, |
95 |
from_address => 'from@example.com', |
95 |
from_address => 'from@example.com', |
96 |
}; |
96 |
}; |
97 |
my $message_id = C4::Letters::EnqueueLetter($my_message); |
97 |
my $message_id = C4::Letters::EnqueueLetter($my_message); |
Lines 493-499
is($mail{'Message'}, 'Silence in the library,'.$subscriptionid.',No. 0', 'Serial
Link Here
|
493 |
} |
493 |
} |
494 |
|
494 |
|
495 |
subtest 'SendQueuedMessages' => sub { |
495 |
subtest 'SendQueuedMessages' => sub { |
496 |
plan tests => 1; |
496 |
|
|
|
497 |
plan tests => 2; |
497 |
t::lib::Mocks::mock_preference( 'SMSSendDriver', 'Email' ); |
498 |
t::lib::Mocks::mock_preference( 'SMSSendDriver', 'Email' ); |
498 |
my $patron = Koha::Patrons->find($borrowernumber); |
499 |
my $patron = Koha::Patrons->find($borrowernumber); |
499 |
$dbh->do(q| |
500 |
$dbh->do(q| |
Lines 503-506
subtest 'SendQueuedMessages' => sub {
Link Here
|
503 |
); |
504 |
); |
504 |
eval { C4::Letters::SendQueuedMessages(); }; |
505 |
eval { C4::Letters::SendQueuedMessages(); }; |
505 |
is( $@, '', 'SendQueuedMessages should not explode if the patron does not have a sms provider set' ); |
506 |
is( $@, '', 'SendQueuedMessages should not explode if the patron does not have a sms provider set' ); |
|
|
507 |
|
508 |
my $sms_pro = $builder->build({ source => 'SmsProvider', value => { domain => 'kidclamp.rocks' } }); |
509 |
ModMember( borrowernumber => $borrowernumber, smsalertnumber => '5555555555', sms_provider_id => $sms_pro->{id} ); |
510 |
$message_id = C4::Letters::EnqueueLetter($my_message); #using datas set around line 95 and forward |
511 |
C4::Letters::SendQueuedMessages(); |
512 |
my $sms_message_address = $schema->resultset('MessageQueue')->search({ |
513 |
borrowernumber => $borrowernumber, |
514 |
status => 'sent' |
515 |
})->next()->to_address(); |
516 |
is( $sms_message_address, '5555555555@kidclamp.rocks', 'SendQueuedMessages populates the to address correctly for SMS by email' ); |
517 |
|
506 |
}; |
518 |
}; |
507 |
- |
|
|