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

(-)a/t/db_dependent/Reserves.t (-2 / +66 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 63;
20
use Test::More tests => 64;
21
use Test::MockModule;
21
use Test::MockModule;
22
use Test::Warn;
22
use Test::Warn;
23
23
Lines 1078-1083 subtest 'RevertWaitingStatus' => sub { Link Here
1078
    );
1078
    );
1079
};
1079
};
1080
1080
1081
subtest 'CheckReserves additional test' => sub {
1082
1083
    plan tests => 3;
1084
1085
    my $biblio = $builder->build_sample_biblio();
1086
    my $itype = $builder->build_object({ class => "Koha::ItemTypes", value => { notforloan => 0 } });
1087
    my $item_1 = $builder->build_sample_item({ biblionumber => $biblio->biblionumber,notforloan => 0, itype => $itype->itemtype });
1088
    my $reserve1 = $builder->build_object({
1089
        class => "Koha::Holds",
1090
        value => {
1091
            found => undef,
1092
            priority => 1,
1093
            itemnumber => undef,
1094
            biblionumber => $biblio->biblionumber,
1095
            waitingdate => undef,
1096
            cancellationdate => undef,
1097
            item_level_hold => 0,
1098
            lowestPriority => 0,
1099
            expirationdate => undef,
1100
            suspend_until => undef,
1101
            suspend => 0,
1102
            itemtype => undef,
1103
        }
1104
    });
1105
    my $reserve2 = $builder->build_object({
1106
        class => "Koha::Holds",
1107
        value => {
1108
            found => undef,
1109
            priority => 2,
1110
            biblionumber => $biblio->biblionumber,
1111
            borrowernumber => $reserve1->borrowernumber,
1112
            itemnumber => undef,
1113
            waitingdate => undef,
1114
            cancellationdate => undef,
1115
            item_level_hold => 0,
1116
            lowestPriority => 0,
1117
            expirationdate => undef,
1118
            suspend_until => undef,
1119
            suspend => 0,
1120
            itemtype => undef,
1121
        }
1122
    });
1123
1124
    my $tmp_holdsqueue = $builder->build({source=>'TmpHoldsqueue',value=>{
1125
            borrowernumber => $reserve1->borrowernumber,
1126
            biblionumber   => $reserve1->biblionumber,
1127
        }
1128
    });
1129
    my $fill_target = $builder->build({source=>'HoldFillTarget',value=>{
1130
            borrowernumber => $reserve1->borrowernumber,
1131
            biblionumber   => $reserve1->biblionumber,
1132
            itemnumber   => $item_1->itemnumber,
1133
            item_level_request => 0,
1134
        }
1135
    });
1136
1137
     ModReserveAffect( $item_1->itemnumber, $reserve1->borrowernumber, 1, $reserve1->reserve_id );
1138
     my ($status, $matched_reserve, $possible_reserves) = CheckReserves($item_1->itemnumber);
1139
1140
     is( $status, 'Reserved', "We found a reserve" );
1141
     is( $matched_reserve->{reserve_id}, $reserve1->reserve_id, "We got the Transit reserve");
1142
     is( scalar @$possible_reserves, 1, 'We only get the one matched');
1143
1144
};
1145
1081
sub count_hold_print_messages {
1146
sub count_hold_print_messages {
1082
    my $message_count = $dbh->selectall_arrayref(q{
1147
    my $message_count = $dbh->selectall_arrayref(q{
1083
        SELECT COUNT(*)
1148
        SELECT COUNT(*)
1084
- 

Return to bug 18958