|
Lines 1389-1395
subtest 'is_hold_group_target, cleanup_hold_group and set_as_hold_group_target t
Link Here
|
| 1389 |
}; |
1389 |
}; |
| 1390 |
|
1390 |
|
| 1391 |
subtest '_Findgroupreserve in the context of hold groups' => sub { |
1391 |
subtest '_Findgroupreserve in the context of hold groups' => sub { |
| 1392 |
plan tests => 13; |
1392 |
plan tests => 17; |
| 1393 |
|
1393 |
|
| 1394 |
$schema->storage->txn_begin; |
1394 |
$schema->storage->txn_begin; |
| 1395 |
|
1395 |
|
|
Lines 1461-1466
subtest '_Findgroupreserve in the context of hold groups' => sub {
Link Here
|
| 1461 |
} |
1461 |
} |
| 1462 |
); |
1462 |
); |
| 1463 |
|
1463 |
|
|
|
1464 |
my $reserve_4_id = AddReserve( |
| 1465 |
{ |
| 1466 |
branchcode => $library_2->{branchcode}, |
| 1467 |
borrowernumber => $patron_2->borrowernumber, |
| 1468 |
biblionumber => $item->biblionumber, |
| 1469 |
priority => 2, |
| 1470 |
} |
| 1471 |
); |
| 1472 |
|
| 1464 |
my @reserves = C4::Reserves::_Findgroupreserve( $item_2->biblionumber, $item_2->id, 0, [] ); |
1473 |
my @reserves = C4::Reserves::_Findgroupreserve( $item_2->biblionumber, $item_2->id, 0, [] ); |
| 1465 |
is( scalar @reserves, 2, "No hold group created yet. We should get both holds" ); |
1474 |
is( scalar @reserves, 2, "No hold group created yet. We should get both holds" ); |
| 1466 |
is( $reserves[0]->{reserve_id}, $reserve_2_id, "We got the expected reserve" ); |
1475 |
is( $reserves[0]->{reserve_id}, $reserve_2_id, "We got the expected reserve" ); |
|
Lines 1481-1486
subtest '_Findgroupreserve in the context of hold groups' => sub {
Link Here
|
| 1481 |
|
1490 |
|
| 1482 |
is( $hold->is_hold_group_target, 1, 'First hold is the hold group target' ); |
1491 |
is( $hold->is_hold_group_target, 1, 'First hold is the hold group target' ); |
| 1483 |
|
1492 |
|
|
|
1493 |
my @reserves_with_target_hold = C4::Reserves::_Findgroupreserve( $item->biblionumber, $item->id, 0, [] ); |
| 1494 |
|
| 1495 |
is( |
| 1496 |
$reserves_with_target_hold[0]->{hold_group_id}, $new_hold_group->hold_group_id, |
| 1497 |
'First eligible hold is part of a hold group' |
| 1498 |
); |
| 1499 |
|
| 1500 |
my $target_hold = Koha::Holds->find( $reserves_with_target_hold[0]->{reserve_id} ); |
| 1501 |
|
| 1502 |
is( |
| 1503 |
$target_hold->is_hold_group_target, 1, |
| 1504 |
'First eligible hold is the hold group target' |
| 1505 |
); |
| 1506 |
|
| 1507 |
is( |
| 1508 |
$reserves_with_target_hold[1]->{hold_group_id}, undef, |
| 1509 |
'Second eligible hold is not part of a hold group' |
| 1510 |
); |
| 1511 |
|
| 1512 |
is( |
| 1513 |
$reserves_with_target_hold[1]->{reserve_id}, $reserve_4_id, |
| 1514 |
'Second eligible hold is reserve_4' |
| 1515 |
); |
| 1516 |
|
| 1484 |
my @new_reserves = C4::Reserves::_Findgroupreserve( $item_2->biblionumber, $item_2->id, 0, [] ); |
1517 |
my @new_reserves = C4::Reserves::_Findgroupreserve( $item_2->biblionumber, $item_2->id, 0, [] ); |
| 1485 |
is( scalar @new_reserves, 1, "reserve_2_id is now part of a group that has a target. Should not be here." ); |
1518 |
is( scalar @new_reserves, 1, "reserve_2_id is now part of a group that has a target. Should not be here." ); |
| 1486 |
is( |
1519 |
is( |
| 1487 |
- |
|
|