@@ -, +, @@ --- t/db_dependent/Letters.t | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) --- a/t/db_dependent/Letters.t +++ a/t/db_dependent/Letters.t @@ -18,7 +18,7 @@ # along with Koha; if not, see . use Modern::Perl; -use Test::More tests => 80; +use Test::More tests => 81; use Test::MockModule; use Test::Warn; @@ -533,3 +533,16 @@ is($err2, 1, "Successfully sent serial notification"); is($mail{'To'}, 'john.smith@test.de', "mailto correct in sent serial notification"); is($mail{'Message'}, 'Silence in the library,'.$subscriptionid.',No. 0', 'Serial notification text constructed successfully'); } + +subtest 'SendQueuedMessages' => sub { + plan tests => 1; + t::lib::Mocks::mock_preference( 'SMSSendDriver', 'Email' ); + my $patron = Koha::Patrons->find($borrowernumber); + $dbh->do(q| + INSERT INTO message_queue(borrowernumber, subject, content, message_transport_type, status, letter_code) + VALUES (?, 'subject', 'content', 'sms', 'pending', 'just_a_code') + |, undef, $borrowernumber + ); + eval { C4::Letters::SendQueuedMessages(); }; + is( $@, '', 'SendQueuedMessages should not explode if the patron does not have a sms provider set' ); +}; --