8 use Test::More tests => 6;
16 use t::lib::TestBuilder;
20 use lib $FindBin::Bin;
21 use_ok('C4::Reserves');
24 my $schema = Koha::Database->schema;
25 $schema->storage->txn_begin;
27 my $builder = t::lib::TestBuilder->new;
29 my $library1 = $builder->build({ source => 'Branch', });
30 my $library2 = $builder->build({ source => 'Branch', });
31 my $library3 = $builder->build({ source => 'Branch', });
32 my $library4 = $builder->build({ source => 'Branch', });
33 my $itemtype = $builder->build(
34 { source => 'Itemtype',
35 value => { notforloan => undef, rentalcharge => 0 }
41 my $borrowers_count = 5;
43 my $biblio = $builder->build_sample_biblio();
44 my ( $item_bibnum, $item_bibitemnum, $itemnumber ) = AddItem(
45 { homebranch => $library4->{branchcode},
46 holdingbranch => $library3->{branchcode},
49 $biblio->biblionumber,
53 my @branchcodes = ( $library1->{branchcode}, $library2->{branchcode}, $library3->{branchcode}, $library4->{branchcode}, $library3->{branchcode}, $library4->{branchcode} );
55 my $patron_category = $builder->build({ source => 'Category' });
56 # Create some borrowers
58 foreach ( 1 .. $borrowers_count ) {
59 my $borrowernumber = Koha::Patron->new({
60 firstname => 'my firstname',
61 surname => 'my surname ' . $_,
62 categorycode => $patron_category->{categorycode},
63 branchcode => $branchcodes[$_],
64 })->store->borrowernumber;
65 push @borrowernumbers, $borrowernumber;
68 # Create five item level holds
70 foreach my $borrowernumber (@borrowernumbers) {
73 branchcode => $branchcodes[$i],
74 borrowernumber => $borrowernumber,
75 biblionumber => $biblio->biblionumber,
83 my ($status, $reserve, $all_reserves);
85 t::lib::Mocks::mock_preference( 'LocalHoldsPriority', 0 );
86 ($status, $reserve, $all_reserves) = CheckReserves($itemnumber);
87 ok( $reserve->{borrowernumber} eq $borrowernumbers[0], "Received expected results with LocalHoldsPriority disabled" );
89 t::lib::Mocks::mock_preference( 'LocalHoldsPriority', 1 );
91 t::lib::Mocks::mock_preference( 'LocalHoldsPriorityPatronControl', 'PickupLibrary' );
92 t::lib::Mocks::mock_preference( 'LocalHoldsPriorityItemControl', 'homebranch' );
93 ($status, $reserve, $all_reserves) = CheckReserves($itemnumber);
94 ok( $reserve->{borrowernumber} eq $borrowernumbers[2], "Received expected results with PickupLibrary/homebranch" );
96 t::lib::Mocks::mock_preference( 'LocalHoldsPriorityPatronControl', 'PickupLibrary' );
97 t::lib::Mocks::mock_preference( 'LocalHoldsPriorityItemControl', 'holdingbranch' );
98 ($status, $reserve, $all_reserves) = CheckReserves($itemnumber);
99 ok( $reserve->{borrowernumber} eq $borrowernumbers[1], "Received expected results with PickupLibrary/holdingbranch" );
101 t::lib::Mocks::mock_preference( 'LocalHoldsPriorityPatronControl', 'HomeLibrary' );
102 t::lib::Mocks::mock_preference( 'LocalHoldsPriorityItemControl', 'holdingbranch' );
103 ($status, $reserve, $all_reserves) = CheckReserves($itemnumber);
104 ok( $reserve->{borrowernumber} eq $borrowernumbers[1], "Received expected results with HomeLibrary/holdingbranch" );
106 t::lib::Mocks::mock_preference( 'LocalHoldsPriorityPatronControl', 'HomeLibrary' );
107 t::lib::Mocks::mock_preference( 'LocalHoldsPriorityItemControl', 'homebranch' );
108 ($status, $reserve, $all_reserves) = CheckReserves($itemnumber);
109 ok( $reserve->{borrowernumber} eq $borrowernumbers[2], "Received expected results with HomeLibrary/homebranch" );