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

(-)a/t/db_dependent/Suggestions.t (-5 / +4 lines)
Lines 612-618 subtest 'EmailPurchaseSuggestions' => sub { Link Here
612
    # EmailPurchaseSuggestions set to disabled
612
    # EmailPurchaseSuggestions set to disabled
613
    t::lib::Mocks::mock_preference( "EmailPurchaseSuggestions", "0" );
613
    t::lib::Mocks::mock_preference( "EmailPurchaseSuggestions", "0" );
614
    Koha::Suggestion->new($my_suggestion)->store;
614
    Koha::Suggestion->new($my_suggestion)->store;
615
    my $newsuggestions_messages = C4::Letters::GetQueuedMessages( { borrowernumber => $borrowernumber } );
615
    my $newsuggestions_messages = C4::Letters::GetQueuedMessages( { letter_code => 'NEW_SUGGESTION' } );
616
    is(
616
    is(
617
        @$newsuggestions_messages, 0,
617
        @$newsuggestions_messages, 0,
618
        'New suggestion does not send an email when EmailPurchaseSuggestions disabled'
618
        'New suggestion does not send an email when EmailPurchaseSuggestions disabled'
Lines 634-640 subtest 'EmailPurchaseSuggestions' => sub { Link Here
634
    Koha::Libraries->find('CPL')->update( { branchreplyto => 'branchemail@b.c' } );
634
    Koha::Libraries->find('CPL')->update( { branchreplyto => 'branchemail@b.c' } );
635
    Koha::Suggestion->new($my_suggestion)->store;
635
    Koha::Suggestion->new($my_suggestion)->store;
636
636
637
    $newsuggestions_messages = C4::Letters::GetQueuedMessages( { borrowernumber => $borrowernumber } );
637
    $newsuggestions_messages = C4::Letters::GetQueuedMessages( { letter_code => 'NEW_SUGGESTION' } );
638
    isnt( @$newsuggestions_messages, 0, 'New suggestions sends an email wne EmailPurchaseSuggestions enabled' );
638
    isnt( @$newsuggestions_messages, 0, 'New suggestions sends an email wne EmailPurchaseSuggestions enabled' );
639
    my $message1 =
639
    my $message1 =
640
        C4::Letters::GetMessage( $newsuggestions_messages->[0]->{message_id} );
640
        C4::Letters::GetMessage( $newsuggestions_messages->[0]->{message_id} );
Lines 673-679 subtest 'EmailPurchaseSuggestions' => sub { Link Here
673
    t::lib::Mocks::mock_preference( "ReplytoDefault", 'library@b.c' );
673
    t::lib::Mocks::mock_preference( "ReplytoDefault", 'library@b.c' );
674
    Koha::Suggestion->new($my_suggestion)->store;
674
    Koha::Suggestion->new($my_suggestion)->store;
675
675
676
    $newsuggestions_messages = C4::Letters::GetQueuedMessages( { borrowernumber => $borrowernumber } );
676
    $newsuggestions_messages = C4::Letters::GetQueuedMessages( { letter_code => 'NEW_SUGGESTION' } );
677
    my $message5 =
677
    my $message5 =
678
        C4::Letters::GetMessage( $newsuggestions_messages->[4]->{message_id} );
678
        C4::Letters::GetMessage( $newsuggestions_messages->[4]->{message_id} );
679
    is(
679
    is(
Lines 705-711 subtest 'EmailPurchaseSuggestions' => sub { Link Here
705
    );
705
    );
706
    Koha::Suggestion->new($my_suggestion)->store;
706
    Koha::Suggestion->new($my_suggestion)->store;
707
707
708
    $newsuggestions_messages = C4::Letters::GetQueuedMessages( { borrowernumber => $borrowernumber } );
708
    $newsuggestions_messages = C4::Letters::GetQueuedMessages( { letter_code => 'NEW_SUGGESTION' } );
709
    my $message7 =
709
    my $message7 =
710
        C4::Letters::GetMessage( $newsuggestions_messages->[6]->{message_id} );
710
        C4::Letters::GetMessage( $newsuggestions_messages->[6]->{message_id} );
711
    is(
711
    is(
712
- 

Return to bug 39883