View | Details | Raw Unified | Return to bug 12802
Collapse All | Expand All

(-)a/t/db_dependent/Letters.t (-6 / +5 lines)
Lines 533-551 is( scalar( @$messages ), 1, 'The message has been queued for the expected patro Link Here
533
is( $messages->[0]{to_address}, $email, 'AutoEmailPrimaryAddress=OFF, EnqueueLetter used the patron email address if no to_address is given in parameter' );
533
is( $messages->[0]{to_address}, $email, 'AutoEmailPrimaryAddress=OFF, EnqueueLetter used the patron email address if no to_address is given in parameter' );
534
534
535
$dbh->do(q|DELETE FROM message_queue|);
535
$dbh->do(q|DELETE FROM message_queue|);
536
t::lib::Mocks::mock_preference('AutoEmailPrimaryAddress', 'email|OFF|emailpro'); # This is no consistent. OFF should be alone.
536
t::lib::Mocks::mock_preference('AutoEmailPrimaryAddress', 'email,OFF,emailpro'); # This is no consistent. OFF should be alone.
537
is( C4::Letters::EnqueueLetter($my_message), 1, 'message successfully queued' );
537
is( C4::Letters::EnqueueLetter($my_message), 1, 'message successfully queued' );
538
$messages = C4::Letters::GetQueuedMessages({ borrowernumber => $borrowernumber });
538
$messages = C4::Letters::GetQueuedMessages({ borrowernumber => $borrowernumber });
539
is( scalar( @$messages ), 1, 'The message has been queued for the expected patron' );
539
is( scalar( @$messages ), 1, 'The message has been queued for the expected patron' );
540
is( $messages->[0]{to_address}, $email, 'AutoEmailPrimaryAddress=email|OFF|emailpro, EnqueueLetter used the patron email address if no to_address is given in parameter' );
540
is( $messages->[0]{to_address}, $email, 'AutoEmailPrimaryAddress=email,OFF,emailpro, EnqueueLetter used the patron email address if no to_address is given in parameter' );
541
541
542
$dbh->do(q|DELETE FROM message_queue|);
542
$dbh->do(q|DELETE FROM message_queue|);
543
t::lib::Mocks::mock_preference('AutoEmailPrimaryAddress', 'email|emailpro');
543
t::lib::Mocks::mock_preference('AutoEmailPrimaryAddress', 'email,emailpro');
544
is( C4::Letters::EnqueueLetter($my_message), 2, 'messages successfully queued' );
544
is( C4::Letters::EnqueueLetter($my_message), 2, 'messages successfully queued' );
545
$messages = C4::Letters::GetQueuedMessages({ borrowernumber => $borrowernumber });
545
$messages = C4::Letters::GetQueuedMessages({ borrowernumber => $borrowernumber });
546
is( scalar( @$messages ), 2, 'The messages have been queued for the expected patron' );
546
is( scalar( @$messages ), 2, 'The messages have been queued for the expected patron' );
547
is( $messages->[0]{to_address}, $email, 'AutoEmailPrimaryAddress=email|emailpro, EnqueueLetter used the patron email address for the first letter' );
547
is( $messages->[0]{to_address}, $email, 'AutoEmailPrimaryAddress=email,emailpro, EnqueueLetter used the patron email address for the first letter' );
548
is( $messages->[1]{to_address}, $emailpro, 'AutoEmailPrimaryAddress=email|emailpro, EnqueueLetter used the patron emailpro address for the second letter' );
548
is( $messages->[1]{to_address}, $emailpro, 'AutoEmailPrimaryAddress=email,emailpro, EnqueueLetter used the patron emailpro address for the second letter' );
549
549
550
{
550
{
551
use C4::Serials;
551
use C4::Serials;
552
- 

Return to bug 12802