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

(-)a/t/db_dependent/HoldsQueue.t (-2 / +77 lines)
Lines 8-14 Link Here
8
8
9
use Modern::Perl;
9
use Modern::Perl;
10
10
11
use Test::More tests => 51;
11
use Test::More tests => 52;
12
use Data::Dumper;
12
use Data::Dumper;
13
13
14
use C4::Calendar;
14
use C4::Calendar;
Lines 1159-1164 subtest "Test Local Holds Priority - Ensure no duplicate requests in holds queue Link Here
1159
};
1159
};
1160
1160
1161
1161
1162
subtest "Item level holds info is preserved (Bug 25738)" => sub {
1163
1164
    plan tests => 3;
1165
1166
    $dbh->do("DELETE FROM tmp_holdsqueue");
1167
    $dbh->do("DELETE FROM hold_fill_targets");
1168
    $dbh->do("DELETE FROM reserves");
1169
    $dbh->do("DELETE FROM circulation_rules");
1170
1171
    my $library  = $builder->build_object({ class => 'Koha::Libraries' });
1172
    my $patron_1 = $builder->build_object(
1173
        {
1174
            class => "Koha::Patrons",
1175
            value => {
1176
                branchcode => $library->branchcode
1177
            }
1178
        }
1179
    );
1180
1181
    my $patron_2 = $builder->build_object(
1182
        {
1183
            class => "Koha::Patrons",
1184
            value => {
1185
                branchcode => $library->branchcode
1186
            }
1187
        }
1188
    );
1189
1190
    my $biblio = $builder->build_sample_biblio();
1191
    my $item_1 = $builder->build_sample_item(
1192
        {
1193
            biblionumber => $biblio->biblionumber,
1194
            library      => $library->branchcode,
1195
        }
1196
    );
1197
    my $item_2 = $builder->build_sample_item(
1198
        {
1199
            biblionumber => $biblio->biblionumber,
1200
            library      => $library->branchcode,
1201
        }
1202
    );
1203
1204
    # Add item-level hold for patron_1
1205
    my $reserve_id_1 = AddReserve(
1206
        {
1207
            branchcode     => $library->branchcode,
1208
            borrowernumber => $patron_1->borrowernumber,
1209
            biblionumber   => $biblio->id,
1210
            itemnumber     => $item_1->itemnumber,
1211
            priority       => 1
1212
        }
1213
    );
1214
1215
    my $reserve_id_2 = AddReserve(
1216
        {
1217
            branchcode     => $library->branchcode,
1218
            borrowernumber => $patron_2->borrowernumber,
1219
            biblionumber   => $biblio->id,
1220
            priority       => 2
1221
        }
1222
    );
1223
1224
    C4::HoldsQueue::CreateQueue();
1225
1226
    my $queue_rs = $schema->resultset('TmpHoldsqueue');
1227
1228
    is( $queue_rs->count(), 2, "Hold queue contains two holds" );
1229
1230
    my $queue_line_1 = $queue_rs->next;
1231
    is( $queue_line_1->item_level_request, 1, 'Request is correctly advertised as item-level' );
1232
1233
    my $queue_line_2 = $queue_rs->next;
1234
    is( $queue_line_2->item_level_request, 0, 'Request is correctly advertised as biblio-level' );
1235
1236
};
1237
1162
subtest 'Trivial test for UpdateTransportCostMatrix' => sub {
1238
subtest 'Trivial test for UpdateTransportCostMatrix' => sub {
1163
    plan tests => 1;
1239
    plan tests => 1;
1164
    my $recs = [
1240
    my $recs = [
1165
- 

Return to bug 25783