From 4fc17084937758284ea5122df9a8827c133a529c Mon Sep 17 00:00:00 2001 From: Mark Tompsett Date: Thu, 8 Mar 2018 00:13:09 +0000 Subject: [PATCH] Bug 18570: Prove that the letter code parameter tweaks work Run the following commands: kshell prove -v t/db_dependent/Letters.t --- t/db_dependent/Letters.t | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Letters.t b/t/db_dependent/Letters.t index d8e96a6..4625ca2 100644 --- a/t/db_dependent/Letters.t +++ b/t/db_dependent/Letters.t @@ -632,7 +632,7 @@ subtest 'TranslateNotices' => sub { subtest 'SendQueuedMessages' => sub { - plan tests => 3; + plan tests => 4; t::lib::Mocks::mock_preference( 'SMSSendDriver', 'Email' ); my $patron = Koha::Patrons->find($borrowernumber); $dbh->do(q| @@ -655,6 +655,13 @@ subtest 'SendQueuedMessages' => sub { $schema->resultset('MessageQueue')->search({borrowernumber => $borrowernumber,status => 'sent'})->delete(); #clear borrower queue $my_message->{to_address} = 'fixme@kidclamp.iswrong'; $message_id = C4::Letters::EnqueueLetter($my_message); + + my $number_attempted = C4::Letters::SendQueuedMessages({ + borrowernumber => -1, # -1 still triggers the borrowernumber condition + letter_code => 'PASSWORD_RESET', + }); + is ( $number_attempted, 0, 'There were no password reset messages for SendQueuedMessages to attempt.' ); + C4::Letters::SendQueuedMessages(); $sms_message_address = $schema->resultset('MessageQueue')->search({ borrowernumber => $borrowernumber, -- 2.1.4