Lines 17-23
Link Here
|
17 |
|
17 |
|
18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
19 |
|
19 |
|
20 |
use Test::More tests => 71; |
20 |
use Test::More tests => 72; |
21 |
use Test::MockModule; |
21 |
use Test::MockModule; |
22 |
use Test::Warn; |
22 |
use Test::Warn; |
23 |
|
23 |
|
Lines 1517-1521
subtest 'AlterPriorty() tests' => sub {
Link Here
|
1517 |
|
1517 |
|
1518 |
AlterPriority( "bottom", $reserve_id, 1, 2, 1, 3 ); |
1518 |
AlterPriority( "bottom", $reserve_id, 1, 2, 1, 3 ); |
1519 |
|
1519 |
|
|
|
1520 |
$schema->storage->txn_rollback; |
1521 |
}; |
1522 |
|
1523 |
subtest 'CanBookBeReserved return_all_items tests' => sub { |
1524 |
|
1525 |
plan tests => 3; |
1526 |
|
1527 |
$schema->storage->txn_begin; |
1528 |
|
1529 |
my $patron = $builder->build_object({ class => "Koha::Patrons" }); |
1530 |
|
1531 |
my $item_1 = $builder->build_sample_item({ homebranch => $patron->branchcode }); |
1532 |
my $item_2 = $builder->build_sample_item({ biblionumber => $item_1->biblionumber }); |
1533 |
my $item_3 = $builder->build_sample_item({ biblionumber => $item_1->biblionumber }); |
1534 |
my $item_4 = $builder->build_sample_item({ biblionumber => $item_1->biblionumber }); |
1535 |
|
1536 |
my $can_book_be = CanBookBeReserved($patron->borrowernumber,$item_1->biblionumber); |
1537 |
my $can_item_1_be = CanItemBeReserved($patron,$item_1); |
1538 |
my $can_item_2_be = CanItemBeReserved($patron,$item_2); |
1539 |
my $can_item_3_be = CanItemBeReserved($patron,$item_3); |
1540 |
my $can_item_4_be = CanItemBeReserved($patron,$item_4); |
1541 |
|
1542 |
my $can_be_all = { |
1543 |
%$can_book_be, |
1544 |
$item_1->itemnumber => $can_item_1_be, |
1545 |
$item_2->itemnumber => $can_item_2_be, |
1546 |
$item_3->itemnumber => $can_item_3_be, |
1547 |
$item_4->itemnumber => $can_item_4_be, |
1548 |
}; |
1549 |
|
1550 |
my $can_book_be_all = CanBookBeReserved($patron->borrowernumber,$item_1->biblionumber, undef, {return_all_items => 1}); |
1551 |
|
1552 |
is_deeply( $can_book_be_all, $can_be_all, "We get status for book and status per itemnumber when all requested"); |
1553 |
|
1554 |
t::lib::Mocks::mock_preference('AllowHoldsOnDamagedItems', 0); |
1555 |
$item_4->damaged(1)->store(); |
1556 |
$can_item_4_be = CanItemBeReserved($patron,$item_4); |
1557 |
my $can_be_all = { |
1558 |
%$can_book_be, |
1559 |
$item_1->itemnumber => $can_item_1_be, |
1560 |
$item_2->itemnumber => $can_item_2_be, |
1561 |
$item_3->itemnumber => $can_item_3_be, |
1562 |
$item_4->itemnumber => $can_item_4_be, |
1563 |
}; |
1564 |
$can_book_be_all = CanBookBeReserved($patron->borrowernumber,$item_1->biblionumber, undef, {return_all_items => 1}); |
1565 |
|
1566 |
is_deeply( $can_book_be_all, $can_be_all, "We get status for book and status per itemnumber when all requested"); |
1567 |
is( $can_book_be_all->{status}, 'OK', "When some can be reserved and some cannot we get 'OK'"); |
1568 |
|
1569 |
|
1520 |
$schema->storage->txn_rollback; |
1570 |
$schema->storage->txn_rollback; |
1521 |
}; |
1571 |
}; |
1522 |
- |
|
|