# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use Test::More tests => 80;
+use Test::More tests => 81;
use Test::MockModule;
use Test::Warn;
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' );
+};