# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use Test::More tests => 72;
+use Test::More tests => 75;
use Test::MockModule;
use Test::Warn;
use_ok('C4::Members');
use_ok('C4::Acquisition');
use_ok('C4::Biblio');
-use_ok('C4::Bookseller');
use_ok('C4::Letters');
use t::lib::Mocks;
use t::lib::TestBuilder;
use Koha::Database;
use Koha::DateUtils qw( dt_from_string output_pref );
-use Koha::Acquisition::Order;
-use Koha::Acquisition::Bookseller;
+use Koha::Acquisition::Booksellers;
+use Koha::Acquisition::Bookseller::Contacts;
+use Koha::Acquisition::Orders;
use Koha::Libraries;
+use Koha::Notice::Templates;
my $schema = Koha::Database->schema;
$schema->storage->txn_begin();
my $library = $builder->build({
source => 'Branch',
});
+my $patron_category = $builder->build({ source => 'Category' })->{categorycode};
my $date = dt_from_string;
my $borrowernumber = AddMember(
firstname => 'Jane',
surname => 'Smith',
- categorycode => 'PT',
+ categorycode => $patron_category,
branchcode => $library->{branchcode},
dateofbirth => $date,
+ smsalertnumber => undef,
);
my $marc_record = MARC::Record->new;
my( $biblionumber, $biblioitemnumber ) = AddBiblio( $marc_record, '' );
+
+
# GetMessageTransportTypes
my $mtts = C4::Letters::GetMessageTransportTypes();
is( @$mtts, 0, 'GetMessageTransportTypes returns the correct number of message types' );
my $my_message = {
borrowernumber => $borrowernumber,
message_transport_type => 'sms',
- to_address => 'to@example.com',
+ to_address => undef,
from_address => 'from@example.com',
};
my $message_id = C4::Letters::EnqueueLetter($my_message);
code => 'TEST_MESSAGE',
content_type => 'text/plain',
};
+
$message_id = C4::Letters::EnqueueLetter($my_message);
is( $message_id, undef, 'EnqueueLetter without the message type argument argument returns undef' );
# SendQueuedMessages
-my $messages_processed = C4::Letters::SendQueuedMessages();
-is($messages_processed, 1, 'all queued messages processed');
-
+my $messages_processed = C4::Letters::SendQueuedMessages( { type => 'email' });
+is($messages_processed, 0, 'No queued messages processed if type limit passed with unused type');
+$messages_processed = C4::Letters::SendQueuedMessages( { type => 'sms' });
+is($messages_processed, 1, 'All queued messages processed, found correct number of messages with type limit');
$messages = C4::Letters::GetQueuedMessages({ borrowernumber => $borrowernumber });
is(
$messages->[0]->{status},
$dbh->do( q|INSERT INTO letter(branchcode,module,code,name,is_html,title,content,message_transport_type) VALUES (?,'my module','my code','my name',1,?,?,'email')|, undef, $library->{branchcode}, $title, $content );
$letters = C4::Letters::GetLetters();
is( @$letters, 1, 'GetLetters returns the correct number of letters' );
-is( $letters->[0]->{branchcode}, $library->{branchcode}, 'GetLetters gets the branch code correctly' );
is( $letters->[0]->{module}, 'my module', 'GetLetters gets the module correctly' );
is( $letters->[0]->{code}, 'my code', 'GetLetters gets the code correctly' );
is( $letters->[0]->{name}, 'my name', 'GetLetters gets the name correctly' );
# getletter
-my $letter = C4::Letters::getletter('my module', 'my code', $library->{branchcode}, 'email');
-is( $letter->{branchcode}, $library->{branchcode}, 'GetLetters gets the branch code correctly' );
-is( $letter->{module}, 'my module', 'GetLetters gets the module correctly' );
-is( $letter->{code}, 'my code', 'GetLetters gets the code correctly' );
-is( $letter->{name}, 'my name', 'GetLetters gets the name correctly' );
-is( $letter->{is_html}, 1, 'GetLetters gets the boolean is_html correctly' );
-is( $letter->{title}, $title, 'GetLetters gets the title correctly' );
-is( $letter->{content}, $content, 'GetLetters gets the content correctly' );
-is( $letter->{message_transport_type}, 'email', 'GetLetters gets the message type correctly' );
+subtest 'getletter' => sub {
+ plan tests => 16;
+ t::lib::Mocks::mock_preference('IndependentBranches', 0);
+ my $letter = C4::Letters::getletter('my module', 'my code', $library->{branchcode}, 'email');
+ is( $letter->{branchcode}, $library->{branchcode}, 'GetLetters gets the branch code correctly' );
+ is( $letter->{module}, 'my module', 'GetLetters gets the module correctly' );
+ is( $letter->{code}, 'my code', 'GetLetters gets the code correctly' );
+ is( $letter->{name}, 'my name', 'GetLetters gets the name correctly' );
+ is( $letter->{is_html}, 1, 'GetLetters gets the boolean is_html correctly' );
+ is( $letter->{title}, $title, 'GetLetters gets the title correctly' );
+ is( $letter->{content}, $content, 'GetLetters gets the content correctly' );
+ is( $letter->{message_transport_type}, 'email', 'GetLetters gets the message type correctly' );
+
+ my $context = Test::MockModule->new('C4::Context');
+ $context->mock( 'userenv', sub {
+ return {
+ flags => 1,
+ branch => "anotherlib" }
+ });
+
+ t::lib::Mocks::mock_preference('IndependentBranches', 1);
+ $letter = C4::Letters::getletter('my module', 'my code', $library->{branchcode}, 'email');
+ is( $letter->{branchcode}, $library->{branchcode}, 'GetLetters gets the branch code correctly' );
+ is( $letter->{module}, 'my module', 'GetLetters gets the module correctly' );
+ is( $letter->{code}, 'my code', 'GetLetters gets the code correctly' );
+ is( $letter->{name}, 'my name', 'GetLetters gets the name correctly' );
+ is( $letter->{is_html}, 1, 'GetLetters gets the boolean is_html correctly' );
+ is( $letter->{title}, $title, 'GetLetters gets the title correctly' );
+ is( $letter->{content}, $content, 'GetLetters gets the content correctly' );
+ is( $letter->{message_transport_type}, 'email', 'GetLetters gets the message type correctly' );
+
+ $context->unmock('userenv');
+};
+
+
# Regression test for Bug 14206
$dbh->do( q|INSERT INTO letter(branchcode,module,code,name,is_html,title,content,message_transport_type) VALUES ('FFL','my module','my code','my name',1,?,?,'print')|, undef, $title, $content );
is( $letter14206_c->{message_transport_type}, 'print', 'Bug 14206 - correct mtt detected for call from overdue_notices.pl' );
# addalert
-my $type = 'my type';
my $externalid = 'my external id';
-my $alert_id = C4::Letters::addalert($borrowernumber, $type, $externalid);
+my $alert_id = C4::Letters::addalert($borrowernumber, $externalid);
isnt( $alert_id, undef, 'addalert does not return undef' );
-my $alerts = C4::Letters::getalert($borrowernumber);
+
+# getalert
+my $alerts = C4::Letters::getalert();
+is( @$alerts, 1, 'getalert should not fail without parameter' );
+$alerts = C4::Letters::getalert($borrowernumber);
is( @$alerts, 1, 'addalert adds an alert' );
is( $alerts->[0]->{alertid}, $alert_id, 'addalert returns the alert id correctly' );
-is( $alerts->[0]->{type}, $type, 'addalert stores the type correctly' );
is( $alerts->[0]->{externalid}, $externalid, 'addalert stores the externalid correctly' );
-
-# getalert
-$alerts = C4::Letters::getalert($borrowernumber, $type);
+$alerts = C4::Letters::getalert($borrowernumber);
is( @$alerts, 1, 'getalert returns the correct number of alerts' );
-$alerts = C4::Letters::getalert($borrowernumber, $type, $externalid);
+$alerts = C4::Letters::getalert($borrowernumber, $externalid);
is( @$alerts, 1, 'getalert returns the correct number of alerts' );
-$alerts = C4::Letters::getalert($borrowernumber, 'another type');
-is( @$alerts, 0, 'getalert returns the correct number of alerts' );
-$alerts = C4::Letters::getalert($borrowernumber, $type, 'another external id');
+$alerts = C4::Letters::getalert($borrowernumber, 'another external id');
is( @$alerts, 0, 'getalert returns the correct number of alerts' );
));
my $retrieved_library = Koha::Libraries->find($library->{branchcode});
my $my_title_letter = $retrieved_library->branchname . qq| - $substitute->{status}|;
+my $biblio_timestamp = dt_from_string( GetBiblioData($biblionumber)->{timestamp} );
my $my_content_letter = qq|Dear Jane Smith,
According to our current records, you have items that are overdue.Your library does not charge late fines, but please return or renew them at the branch below as soon as possible.
Thank-you for your prompt attention to this matter.
Don't forget your date of birth: | . output_pref({ dt => $date, dateonly => 1 }) . q|.
-Look at this wonderful biblio timestamp: | . output_pref({ dt => $date }) . ".\n";
+Look at this wonderful biblio timestamp: | . output_pref({ dt => $biblio_timestamp }) . ".\n";
is( $prepared_letter->{title}, $my_title_letter, 'GetPreparedLetter returns the title correctly' );
is( $prepared_letter->{content}, $my_content_letter, 'GetPreparedLetter returns the content correctly' );
$my_content_letter = qq|This is a SMS for an $substitute->{status}|;
is( $prepared_letter->{content}, $my_content_letter, 'GetPreparedLetter returns the content correctly' );
-$dbh->do(q{INSERT INTO letter (module, code, name, title, content) VALUES ('test_date','TEST_DATE','Test dates','Test dates','This one only contains the date: <<biblio.timestamp | dateonly>>.');});
+$dbh->do(q{INSERT INTO letter (module, code, name, title, content) VALUES ('test_date','TEST_DATE','Test dates','A title with a timestamp: <<biblio.timestamp>>','This one only contains the date: <<biblio.timestamp | dateonly>>.');});
$prepared_letter = GetPreparedLetter((
module => 'test_date',
branchcode => '',
substitute => $substitute,
repeat => $repeat,
));
-is( $prepared_letter->{content}, q|This one only contains the date: | . output_pref({ dt => $date, dateonly => 1 }) . q|.|, 'dateonly test 2' );
+is( $prepared_letter->{content}, q|And also this one:| . output_pref({ dt => $date, dateonly => 1 }) . q|.|, 'dateonly test 2' );
$dbh->do(q{UPDATE letter SET content = 'And also this one:<<timestamp|dateonly >>.' WHERE code = 'test_date';});
$prepared_letter = GetPreparedLetter((
substitute => $substitute,
repeat => $repeat,
));
-is( $prepared_letter->{content}, q|This one only contains the date: | . output_pref({ dt => $date, dateonly => 1 }) . q|.|, 'dateonly test 3' );
+is( $prepared_letter->{content}, q|And also this one:| . output_pref({ dt => $date, dateonly => 1 }) . q|.|, 'dateonly test 3' );
+
+t::lib::Mocks::mock_preference( 'TimeFormat', '12hr' );
+my $yesterday_night = $date->clone->add( days => -1 )->set_hour(22);
+$dbh->do(q|UPDATE biblio SET timestamp = ? WHERE biblionumber = ?|, undef, $yesterday_night, $biblionumber );
+$dbh->do(q{UPDATE letter SET content = 'And also this one:<<timestamp>>.' WHERE code = 'test_date';});
+$prepared_letter = GetPreparedLetter((
+ module => 'test_date',
+ branchcode => '',
+ letter_code => 'test_date',
+ tables => $tables,
+ substitute => $substitute,
+ repeat => $repeat,
+));
+is( $prepared_letter->{content}, q|And also this one:| . output_pref({ dt => $yesterday_night }) . q|.|, 'dateonly test 3' );
$dbh->do(q{INSERT INTO letter (module, code, name, title, content) VALUES ('claimacquisition','TESTACQCLAIM','Acquisition Claim','Item Not Received','<<aqbooksellers.name>>|<<aqcontacts.name>>|<order>Ordernumber <<aqorders.ordernumber>> (<<biblio.title>>) (<<aqorders.quantity>> ordered)</order>');});
+$dbh->do(q{INSERT INTO letter (module, code, name, title, content) VALUES ('orderacquisition','TESTACQORDER','Acquisition Order','Order','<<aqbooksellers.name>>|<<aqcontacts.name>>|<order>Ordernumber <<aqorders.ordernumber>> (<<biblio.title>>) (<<aqorders.quantity>> ordered)</order>');});
# Test that _parseletter doesn't modify its parameters bug 15429
{
is( $values->{dateexpiry}, '2015-12-13', "_parseletter doesn't modify its parameters" );
}
-my $booksellerid = C4::Bookseller::AddBookseller(
+my $bookseller = Koha::Acquisition::Bookseller->new(
{
name => "my vendor",
address1 => "bookseller's address",
phone => "0123456",
active => 1,
deliverytime => 5,
- },
- [
- { name => 'John Smith', phone => '0123456x1', claimacquisition => 1 },
- { name => 'Leo Tolstoy', phone => '0123456x2', claimissues => 1 },
- ]
-);
+ }
+)->store;
+my $booksellerid = $bookseller->id;
+
+Koha::Acquisition::Bookseller::Contact->new( { name => 'John Smith', phone => '0123456x1', claimacquisition => 1, orderacquisition => 1, booksellerid => $booksellerid } )->store;
+Koha::Acquisition::Bookseller::Contact->new( { name => 'Leo Tolstoy', phone => '0123456x2', claimissues => 1, booksellerid => $booksellerid } )->store;
my $basketno = NewBasket($booksellerid, 1);
my $budgetid = C4::Budgets::AddBudget({
biblionumber => $biblionumber,
budget_id => $budgetid,
}
-)->insert;
-my $ordernumber = $order->{ordernumber};
+)->store;
+my $ordernumber = $order->ordernumber;
C4::Acquisition::CloseBasket( $basketno );
my $err;
"SendAlerts prints a warning";
is($err->{'error'}, 'no_email', "Trying to send an alert when there's no e-mail results in an error");
-my $bookseller = Koha::Acquisition::Bookseller->fetch({ id => $booksellerid });
-$bookseller->contacts->[0]->email('testemail@mydomain.com');
-C4::Bookseller::ModBookseller($bookseller);
-$bookseller = Koha::Acquisition::Bookseller->fetch({ id => $booksellerid });
+$bookseller = Koha::Acquisition::Booksellers->find( $booksellerid );
+$bookseller->contacts->next->email('testemail@mydomain.com')->store;
# Ensure that the preference 'LetterLog' is set to logging
-C4::Context->set_preference( 'LetterLog', 'on' );
+t::lib::Mocks::mock_preference( 'LetterLog', 'on' );
+
+# SendAlerts needs branchemail or KohaAdminEmailAddress as sender
+C4::Context->_new_userenv('DUMMY');
+C4::Context->set_userenv( 0, 0, 0, 'firstname', 'surname', $library->{branchcode}, 'My Library', 0, '', '');
+t::lib::Mocks::mock_preference( 'KohaAdminEmailAddress', 'library@domain.com' );
+
+{
+warning_is {
+ $err = SendAlerts( 'orderacquisition', $basketno , 'TESTACQORDER' ) }
+ "Fake sendmail",
+ "SendAlerts is using the mocked sendmail routine (orderacquisition)";
+is($err, 1, "Successfully sent order.");
+is($mail{'To'}, 'testemail@mydomain.com', "mailto correct in sent order");
+is($mail{'Message'}, 'my vendor|John Smith|Ordernumber ' . $ordernumber . ' (Silence in the library) (1 ordered)', 'Order notice text constructed successfully');
+
+$dbh->do(q{DELETE FROM letter WHERE code = 'TESTACQORDER';});
+warning_like {
+ $err = SendAlerts( 'orderacquisition', $basketno , 'TESTACQORDER' ) }
+ qr/No orderacquisition TESTACQORDER letter transported by email/,
+ "GetPreparedLetter warns about missing notice template";
+is($err->{'error'}, 'no_letter', "No TESTACQORDER letter was defined.");
+}
{
warning_is {
my $borrowernumber = AddMember(
firstname => 'John',
surname => 'Smith',
- categorycode => 'PT',
+ categorycode => $patron_category,
branchcode => $library->{branchcode},
dateofbirth => $date,
email => 'john.smith@test.de',
);
-my $alert_id = C4::Letters::addalert($borrowernumber, 'issue', $subscriptionid);
+my $alert_id = C4::Letters::addalert($borrowernumber, $subscriptionid);
my $err2;
$err2 = SendAlerts( 'issue', $serial->{serialid}, 'RLIST' ) }
"Fake sendmail",
"SendAlerts is using the mocked sendmail routine";
-is($err2, "", "Successfully sent serial notification");
+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 'GetPreparedLetter' => sub {
+ plan tests => 4;
+
+ Koha::Notice::Template->new(
+ {
+ module => 'test',
+ code => 'test',
+ branchcode => '',
+ message_transport_type => 'email'
+ }
+ )->store;
+ my $letter;
+ warning_like {
+ $letter = C4::Letters::GetPreparedLetter(
+ module => 'test',
+ letter_code => 'test',
+ );
+ }
+ qr{^ERROR: nothing to substitute},
+'GetPreparedLetter should warn if tables, substiture and repeat are not set';
+ is( $letter, undef,
+'No letter should be returned by GetPreparedLetter if something went wrong'
+ );
+
+ warning_like {
+ $letter = C4::Letters::GetPreparedLetter(
+ module => 'test',
+ letter_code => 'test',
+ substitute => {}
+ );
+ }
+ qr{^ERROR: nothing to substitute},
+'GetPreparedLetter should warn if tables, substiture and repeat are not set, even if the key is passed';
+ is( $letter, undef,
+'No letter should be returned by GetPreparedLetter if something went wrong'
+ );
+
+};
+
+
+
+subtest 'TranslateNotices' => sub {
+ plan tests => 4;
+
+ t::lib::Mocks::mock_preference( 'TranslateNotices', '1' );
+
+ $dbh->do(
+ q|
+ INSERT INTO letter (module, code, branchcode, name, title, content, message_transport_type, lang) VALUES
+ ('test', 'code', '', 'test', 'a test', 'just a test', 'email', 'default'),
+ ('test', 'code', '', 'test', 'una prueba', 'solo una prueba', 'email', 'es-ES');
+ | );
+ my $substitute = {};
+ my $letter = C4::Letters::GetPreparedLetter(
+ module => 'test',
+ tables => $tables,
+ letter_code => 'code',
+ message_transport_type => 'email',
+ substitute => $substitute,
+ );
+ is(
+ $letter->{title},
+ 'a test',
+ 'GetPreparedLetter should return the default one if the lang parameter is not provided'
+ );
+
+ $letter = C4::Letters::GetPreparedLetter(
+ module => 'test',
+ tables => $tables,
+ letter_code => 'code',
+ message_transport_type => 'email',
+ substitute => $substitute,
+ lang => 'es-ES',
+ );
+ is( $letter->{title}, 'una prueba',
+ 'GetPreparedLetter should return the required notice if it exists' );
+
+ $letter = C4::Letters::GetPreparedLetter(
+ module => 'test',
+ tables => $tables,
+ letter_code => 'code',
+ message_transport_type => 'email',
+ substitute => $substitute,
+ lang => 'fr-FR',
+ );
+ is(
+ $letter->{title},
+ 'a test',
+ 'GetPreparedLetter should return the default notice if the one required does not exist'
+ );
+
+ t::lib::Mocks::mock_preference( 'TranslateNotices', '' );
+
+ $letter = C4::Letters::GetPreparedLetter(
+ module => 'test',
+ tables => $tables,
+ letter_code => 'code',
+ message_transport_type => 'email',
+ substitute => $substitute,
+ lang => 'es-ES',
+ );
+ is( $letter->{title}, 'a test',
+ 'GetPreparedLetter should return the default notice if pref disabled but additional language exists' );
+
+};
+
+subtest 'SendQueuedMessages' => sub {
+
+ plan tests => 4;
+ 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' );
+
+ my $sms_pro = $builder->build_object({ class => 'Koha::SMS::Providers', value => { domain => 'kidclamp.rocks' } });
+ ModMember( borrowernumber => $borrowernumber, smsalertnumber => '5555555555', sms_provider_id => $sms_pro->id() );
+ $message_id = C4::Letters::EnqueueLetter($my_message); #using datas set around line 95 and forward
+ C4::Letters::SendQueuedMessages();
+ my $sms_message_address = $schema->resultset('MessageQueue')->search({
+ borrowernumber => $borrowernumber,
+ status => 'sent'
+ })->next()->to_address();
+ is( $sms_message_address, '5555555555@kidclamp.rocks', 'SendQueuedMessages populates the to address correctly for SMS by email when to_address not set' );
+ $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,
+ status => 'sent'
+ })->next()->to_address();
+ is( $sms_message_address, '5555555555@kidclamp.rocks', 'SendQueuedMessages populates the to address correctly for SMS by email when to_address is set incorrectly' );
+
+};
+
+subtest 'get_item_content' => sub {
+ plan tests => 2;
+
+ t::lib::Mocks::mock_preference('dateformat', 'metric');
+ t::lib::Mocks::mock_preference('timeformat', '24hr');
+ my @items = (
+ {date_due => '2041-01-01 12:34', title => 'a first title', barcode => 'a_first_barcode', author => 'a_first_author', itemnumber => 1 },
+ {date_due => '2042-01-02 23:45', title => 'a second title', barcode => 'a_second_barcode', author => 'a_second_author', itemnumber => 2 },
+ );
+ my @item_content_fields = qw( date_due title barcode author itemnumber );
+
+ my $items_content;
+ for my $item ( @items ) {
+ $items_content .= C4::Letters::get_item_content( { item => $item, item_content_fields => \@item_content_fields } );
+ }
+
+ my $expected_items_content = <<EOF;
+01/01/2041 12:34\ta first title\ta_first_barcode\ta_first_author\t1
+02/01/2042 23:45\ta second title\ta_second_barcode\ta_second_author\t2
+EOF
+ is( $items_content, $expected_items_content, 'get_item_content should return correct items info with time (default)' );
+
+
+ $items_content = q||;
+ for my $item ( @items ) {
+ $items_content .= C4::Letters::get_item_content( { item => $item, item_content_fields => \@item_content_fields, dateonly => 1, } );
+ }
+
+ $expected_items_content = <<EOF;
+01/01/2041\ta first title\ta_first_barcode\ta_first_author\t1
+02/01/2042\ta second title\ta_second_barcode\ta_second_author\t2
+EOF
+ is( $items_content, $expected_items_content, 'get_item_content should return correct items info without time (if dateonly => 1)' );
+};
+
+subtest 'Test limit parameter for SendQueuedMessages' => sub {
+ plan tests => 3;
+
+ my $dbh = C4::Context->dbh;
+
+ my $borrowernumber = AddMember(
+ firstname => 'Jane',
+ surname => 'Smith',
+ categorycode => $patron_category,
+ branchcode => $library->{branchcode},
+ dateofbirth => $date,
+ smsalertnumber => undef,
+ );
+
+ $dbh->do(q|DELETE FROM message_queue|);
+ $my_message = {
+ 'letter' => {
+ 'content' => 'a message',
+ 'metadata' => 'metadata',
+ 'code' => 'TEST_MESSAGE',
+ 'content_type' => 'text/plain',
+ 'title' => 'message title'
+ },
+ 'borrowernumber' => $borrowernumber,
+ 'to_address' => undef,
+ 'message_transport_type' => 'sms',
+ 'from_address' => 'from@example.com'
+ };
+ C4::Letters::EnqueueLetter($my_message);
+ C4::Letters::EnqueueLetter($my_message);
+ C4::Letters::EnqueueLetter($my_message);
+ C4::Letters::EnqueueLetter($my_message);
+ C4::Letters::EnqueueLetter($my_message);
+ my $messages_processed = C4::Letters::SendQueuedMessages( { limit => 1 } );
+ is( $messages_processed, 1,
+ 'Processed 1 message with limit of 1 and 5 unprocessed messages' );
+ $messages_processed = C4::Letters::SendQueuedMessages( { limit => 2 } );
+ is( $messages_processed, 2,
+ 'Processed 2 message with limit of 2 and 4 unprocessed messages' );
+ $messages_processed = C4::Letters::SendQueuedMessages( { limit => 3 } );
+ is( $messages_processed, 2,
+ 'Processed 2 message with limit of 3 and 2 unprocessed messages' );
+};
projects / koha.git / blobdiff