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

(-)a/t/db_dependent/Circulation.t (-1 / +47 lines)
Lines 18-24 Link Here
18
use Modern::Perl;
18
use Modern::Perl;
19
use utf8;
19
use utf8;
20
20
21
use Test::More tests => 50;
21
use Test::More tests => 51;
22
use Test::Exception;
22
use Test::Exception;
23
use Test::MockModule;
23
use Test::MockModule;
24
use Test::Deep qw( cmp_deeply );
24
use Test::Deep qw( cmp_deeply );
Lines 36-41 use C4::Circulation; Link Here
36
use C4::Biblio;
36
use C4::Biblio;
37
use C4::Items;
37
use C4::Items;
38
use C4::Log;
38
use C4::Log;
39
use C4::Message;
39
use C4::Reserves;
40
use C4::Reserves;
40
use C4::Overdues qw(UpdateFine CalcFine);
41
use C4::Overdues qw(UpdateFine CalcFine);
41
use Koha::DateUtils;
42
use Koha::DateUtils;
Lines 46-51 use Koha::Checkouts; Link Here
46
use Koha::Patrons;
47
use Koha::Patrons;
47
use Koha::Holds;
48
use Koha::Holds;
48
use Koha::CirculationRules;
49
use Koha::CirculationRules;
50
use Koha::Patron::Message::Attributes;
51
use Koha::Patron::Message::Preferences;
49
use Koha::Subscriptions;
52
use Koha::Subscriptions;
50
use Koha::Account::Lines;
53
use Koha::Account::Lines;
51
use Koha::Account::Offsets;
54
use Koha::Account::Offsets;
Lines 3038-3043 subtest 'ItemsDeniedRenewal preference' => sub { Link Here
3038
    is( $idr_mayrenew, 0, 'Renewal blocked for empty string when "" in pref' );
3041
    is( $idr_mayrenew, 0, 'Renewal blocked for empty string when "" in pref' );
3039
};
3042
};
3040
3043
3044
subtest 'SendCirculationAlert test' => sub {
3045
    plan tests => 4;
3046
3047
    my $library = $builder->build( { source => 'Branch' } );
3048
    my $patron  = $builder->build( { source => 'Borrower' } );
3049
    my $attribute = Koha::Patron::Message::Attributes->find({
3050
        message_name => 'Item_Checkout',
3051
    });
3052
    Koha::Patron::Message::Preference->new({
3053
        borrowernumber => $patron->{'borrowernumber'},
3054
        message_attribute_id => $attribute->message_attribute_id,
3055
        days_in_advance => undef,
3056
        wants_digest => 0,
3057
        message_transport_types => ['email'],
3058
    })->store;
3059
    my $biblioitem_1 = $builder->build( { source => 'Biblioitem' } );
3060
    my $item_1 = $builder->build(
3061
        {   source => 'Item',
3062
            value  => {
3063
                homebranch    => $library->{branchcode},
3064
                holdingbranch => $library->{branchcode},
3065
                notforloan    => 0,
3066
                itemlost      => 0,
3067
                withdrawn     => 0,
3068
                biblionumber  => $biblioitem_1->{biblionumber}
3069
            }
3070
        }
3071
    );
3072
3073
    my $old_message = C4::Message->find_last_message($patron, 'CHECKOUT', 'email');
3074
    $old_message->{'message_id'} = 0 unless $old_message;
3075
    is(C4::Circulation::SendCirculationAlert({
3076
        type     => 'CHECKOUT',
3077
        item     => $item_1,
3078
        borrower => $patron,
3079
        branch   => $library->{'branchcode'},
3080
    }), undef, "SendCirculationAlert called.");
3081
    my $new_message = C4::Message->find_last_message($patron, 'CHECKOUT', 'email');
3082
    ok($old_message->{'message_id'} != $new_message->{'message_id'}, "New message has appeared.");
3083
    is($new_message->{'letter_code'}, 'CHECKOUT', "New message letter code is CHECKOUT.");
3084
    is($new_message->{'borrowernumber'}, $patron->{'borrowernumber'}, "New message is to our test patron.");
3085
};
3086
3041
subtest 'CanBookBeIssued | item-level_itypes=biblio' => sub {
3087
subtest 'CanBookBeIssued | item-level_itypes=biblio' => sub {
3042
    plan tests => 2;
3088
    plan tests => 2;
3043
3089
(-)a/t/db_dependent/Reserves.t (-14 / +10 lines)
Lines 40-45 use Koha::Libraries; Link Here
40
use Koha::Notice::Templates;
40
use Koha::Notice::Templates;
41
use Koha::Patrons;
41
use Koha::Patrons;
42
use Koha::Patron::Categories;
42
use Koha::Patron::Categories;
43
use Koha::Patron::Message::Preference;
43
use Koha::CirculationRules;
44
use Koha::CirculationRules;
44
45
45
BEGIN {
46
BEGIN {
Lines 731-749 subtest '_koha_notify_reserve() tests' => sub { Link Here
731
732
732
    plan tests => 2;
733
    plan tests => 2;
733
734
734
    my $wants_hold_and_email = {
735
        wants_digest => '0',
736
        transports => {
737
            sms => 'HOLD',
738
            email => 'HOLD',
739
            },
740
        letter_code => 'HOLD'
741
    };
742
743
    my $mp = Test::MockModule->new( 'C4::Members::Messaging' );
744
745
    $mp->mock("GetMessagingPreferences",$wants_hold_and_email);
746
747
    $dbh->do('DELETE FROM letter');
735
    $dbh->do('DELETE FROM letter');
748
736
749
    my $email_hold_notice = $builder->build({
737
    my $email_hold_notice = $builder->build({
Lines 784-789 subtest '_koha_notify_reserve() tests' => sub { Link Here
784
        }
772
        }
785
    );
773
    );
786
774
775
    my $message_attr_id = Koha::Patron::Message::Attributes->find({
776
        message_name => 'Hold_Filled'
777
    })->message_attribute_id;
778
    Koha::Patron::Message::Preference->new({
779
        borrowernumber => $hold_borrower,
780
        message_attribute_id   => $message_attr_id,
781
        message_transport_types => ['sms', 'email'],
782
        wants_digest   => 0,
783
    })->store;
787
    ModReserveAffect($item->itemnumber, $hold_borrower, 0);
784
    ModReserveAffect($item->itemnumber, $hold_borrower, 0);
788
    my $sms_message_address = $schema->resultset('MessageQueue')->search({
785
    my $sms_message_address = $schema->resultset('MessageQueue')->search({
789
            letter_code     => 'HOLD',
786
            letter_code     => 'HOLD',
790
- 

Return to bug 18595