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

(-)a/t/db_dependent/HoldsQueue.t (-2 / +35 lines)
Lines 8-14 Link Here
8
8
9
use Modern::Perl;
9
use Modern::Perl;
10
10
11
use Test::More tests => 42;
11
use Test::More tests => 43;
12
use Data::Dumper;
12
use Data::Dumper;
13
13
14
use C4::Calendar;
14
use C4::Calendar;
Lines 16-21 use C4::Context; Link Here
16
use C4::Members;
16
use C4::Members;
17
use Koha::Database;
17
use Koha::Database;
18
use Koha::DateUtils;
18
use Koha::DateUtils;
19
use Koha::Items;
19
20
20
use t::lib::TestBuilder;
21
use t::lib::TestBuilder;
21
use t::lib::Mocks;
22
use t::lib::Mocks;
Lines 690-695 CancelReserve( { reserve_id => $reserve_id } ); Link Here
690
691
691
# End testing hold itemtype limit
692
# End testing hold itemtype limit
692
693
694
695
# Test Local Holds Priority - Bug 18001
696
t::lib::Mocks::mock_preference('LocalHoldsPriority', 1);
697
t::lib::Mocks::mock_preference('LocalHoldsPriorityPatronControl', 'PickupLibrary');
698
t::lib::Mocks::mock_preference('LocalHoldsPriorityItemControl', 'homebranch');
699
700
$dbh->do("DELETE FROM tmp_holdsqueue");
701
$dbh->do("DELETE FROM hold_fill_targets");
702
$dbh->do("DELETE FROM reserves");
703
$dbh->do("DELETE FROM default_branch_circ_rules");
704
$dbh->do("DELETE FROM default_branch_item_rules");
705
$dbh->do("DELETE FROM default_circ_rules");
706
$dbh->do("DELETE FROM branch_item_rules");
707
708
my $item = Koha::Items->find( { biblionumber => $biblionumber } );
709
$item->holdingbranch( $item->homebranch );
710
$item->store();
711
712
my $item2 = Koha::Item->new( $item->unblessed );
713
$item2->itemnumber( undef );
714
$item2->store();
715
716
my $item3 = Koha::Item->new( $item->unblessed );
717
$item3->itemnumber( undef );
718
$item3->store();
719
720
$reserve_id = AddReserve( $item->homebranch, $borrowernumber, $biblionumber, '', 1, undef, undef, undef, undef, undef, undef, undef );
721
722
C4::HoldsQueue::CreateQueue();
723
724
my $queue_rs = $schema->resultset('TmpHoldsqueue');
725
is( $queue_rs->count(), 1, "Hold queue contains one hold from chosen from three possible items" );
726
693
# Cleanup
727
# Cleanup
694
$schema->storage->txn_rollback;
728
$schema->storage->txn_rollback;
695
729
696
- 

Return to bug 18001