|
Lines 633-640
subtest 'TranslateNotices' => sub {
Link Here
|
| 633 |
|
633 |
|
| 634 |
subtest 'SendQueuedMessages' => sub { |
634 |
subtest 'SendQueuedMessages' => sub { |
| 635 |
|
635 |
|
| 636 |
plan tests => 3; |
636 |
plan tests => 5; |
| 637 |
t::lib::Mocks::mock_preference( 'SMSSendDriver', 'Email' ); |
637 |
t::lib::Mocks::mock_preference( 'SMSSendDriver', 'Email' ); |
|
|
638 |
t::lib::Mocks::mock_preference('EmailSMSSendDriverFromAddress', ''); |
| 639 |
|
| 638 |
my $patron = Koha::Patrons->find($borrowernumber); |
640 |
my $patron = Koha::Patrons->find($borrowernumber); |
| 639 |
$dbh->do(q| |
641 |
$dbh->do(q| |
| 640 |
INSERT INTO message_queue(borrowernumber, subject, content, message_transport_type, status, letter_code) |
642 |
INSERT INTO message_queue(borrowernumber, subject, content, message_transport_type, status, letter_code) |
|
Lines 648-663
subtest 'SendQueuedMessages' => sub {
Link Here
|
| 648 |
ModMember( borrowernumber => $borrowernumber, smsalertnumber => '5555555555', sms_provider_id => $sms_pro->id() ); |
650 |
ModMember( borrowernumber => $borrowernumber, smsalertnumber => '5555555555', sms_provider_id => $sms_pro->id() ); |
| 649 |
$message_id = C4::Letters::EnqueueLetter($my_message); #using datas set around line 95 and forward |
651 |
$message_id = C4::Letters::EnqueueLetter($my_message); #using datas set around line 95 and forward |
| 650 |
C4::Letters::SendQueuedMessages(); |
652 |
C4::Letters::SendQueuedMessages(); |
| 651 |
my $sms_message_address = $schema->resultset('MessageQueue')->search({ |
653 |
|
|
|
654 |
my $message = $schema->resultset('MessageQueue')->search({ |
| 652 |
borrowernumber => $borrowernumber, |
655 |
borrowernumber => $borrowernumber, |
| 653 |
status => 'sent' |
656 |
status => 'sent' |
| 654 |
})->next()->to_address(); |
657 |
})->next(); |
| 655 |
is( $sms_message_address, '5555555555@kidclamp.rocks', 'SendQueuedMessages populates the to address correctly for SMS by email when to_address not set' ); |
658 |
|
|
|
659 |
is( $message->to_address(), '5555555555@kidclamp.rocks', 'SendQueuedMessages populates the to address correctly for SMS by email when to_address not set' ); |
| 660 |
is( |
| 661 |
$message->from_address(), |
| 662 |
'from@example.com', |
| 663 |
'SendQueuedMessages uses message queue item \"from address\" for SMS by email when EmailSMSSendDriverFromAddress system preference is not set' |
| 664 |
); |
| 665 |
|
| 666 |
$schema->resultset('MessageQueue')->search({borrowernumber => $borrowernumber, status => 'sent'})->delete(); #clear borrower queue |
| 667 |
|
| 668 |
t::lib::Mocks::mock_preference('EmailSMSSendDriverFromAddress', 'override@example.com'); |
| 669 |
|
| 670 |
$message_id = C4::Letters::EnqueueLetter($my_message); |
| 671 |
C4::Letters::SendQueuedMessages(); |
| 672 |
|
| 673 |
$message = $schema->resultset('MessageQueue')->search({ |
| 674 |
borrowernumber => $borrowernumber, |
| 675 |
status => 'sent' |
| 676 |
})->next(); |
| 677 |
|
| 678 |
is( |
| 679 |
$message->from_address(), |
| 680 |
'override@example.com', |
| 681 |
'SendQueuedMessages uses EmailSMSSendDriverFromAddress value for SMS by email when EmailSMSSendDriverFromAddress is set' |
| 682 |
); |
| 683 |
|
| 656 |
$schema->resultset('MessageQueue')->search({borrowernumber => $borrowernumber,status => 'sent'})->delete(); #clear borrower queue |
684 |
$schema->resultset('MessageQueue')->search({borrowernumber => $borrowernumber,status => 'sent'})->delete(); #clear borrower queue |
| 657 |
$my_message->{to_address} = 'fixme@kidclamp.iswrong'; |
685 |
$my_message->{to_address} = 'fixme@kidclamp.iswrong'; |
| 658 |
$message_id = C4::Letters::EnqueueLetter($my_message); |
686 |
$message_id = C4::Letters::EnqueueLetter($my_message); |
| 659 |
C4::Letters::SendQueuedMessages(); |
687 |
C4::Letters::SendQueuedMessages(); |
| 660 |
$sms_message_address = $schema->resultset('MessageQueue')->search({ |
688 |
my $sms_message_address = $schema->resultset('MessageQueue')->search({ |
| 661 |
borrowernumber => $borrowernumber, |
689 |
borrowernumber => $borrowernumber, |
| 662 |
status => 'sent' |
690 |
status => 'sent' |
| 663 |
})->next()->to_address(); |
691 |
})->next()->to_address(); |
| 664 |
- |
|
|