Bug 18457: Add tests

[koha-ffzg.git] / t / db_dependent / Letters.t

diff --git a/t/db_dependent/Letters.t b/t/db_dependent/Letters.t
index e752a45..33f7af4 100644 (file)
--- a/t/db_dependent/Letters.t
+++ b/t/db_dependent/Letters.t
@@ -18,7 +18,7 @@
 # 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;
 
@@ -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' );
+};