View | Details | Raw Unified | Return to bug 18478
Collapse All | Expand All

(-)a/t/db_dependent/Letters.t (-3 / +14 lines)
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
- 

Return to bug 18478