t/db_dependent/Holds/LocalHoldsPriority.t

   1 #!/usr/bin/perl
   2
   3 use Modern::Perl;
   4
   5 use t::lib::Mocks;
   6 use C4::Context;
   7
   8 use Test::More tests => 6;
   9 use MARC::Record;
  10 use C4::Biblio;
  11 use C4::Items;
  12 use Koha::Database;
  13 use Koha::Patrons;
  14
  15 use t::lib::TestBuilder;
  16
  17 BEGIN {
  18     use FindBin;
  19     use lib $FindBin::Bin;
  20     use_ok('C4::Reserves');
  21 }
  22
  23 my $schema = Koha::Database->schema;
  24 $schema->storage->txn_begin;
  25
  26 my $builder = t::lib::TestBuilder->new;
  27
  28 my $library1 = $builder->build({ source => 'Branch', });
  29 my $library2 = $builder->build({ source => 'Branch', });
  30 my $library3 = $builder->build({ source => 'Branch', });
  31 my $library4 = $builder->build({ source => 'Branch', });
  32 my $itemtype = $builder->build(
  33     {   source => 'Itemtype',
  34         value  => { notforloan => undef, rentalcharge => 0 }
  35     }
  36 )->{itemtype};
  37
  38
  39
  40 my $borrowers_count = 5;
  41
  42 # Create a helper biblio
  43 my ( $bibnum, $title, $bibitemnum ) = create_helper_biblio();
  44 # Create a helper item for the biblio.
  45 my ( $item_bibnum, $item_bibitemnum, $itemnumber ) = AddItem(
  46     {   homebranch    => $library4->{branchcode},
  47         holdingbranch => $library3->{branchcode},
  48         itype         => $itemtype
  49     },
  50     $bibnum
  51 );
  52
  53
  54 my @branchcodes = ( $library1->{branchcode}, $library2->{branchcode}, $library3->{branchcode}, $library4->{branchcode}, $library3->{branchcode}, $library4->{branchcode} );
  55
  56 my $patron_category = $builder->build({ source => 'Category' });
  57 # Create some borrowers
  58 my @borrowernumbers;
  59 foreach ( 1 .. $borrowers_count ) {
  60     my $borrowernumber = Koha::Patron->new({
  61         firstname    => 'my firstname',
  62         surname      => 'my surname ' . $_,
  63         categorycode => $patron_category->{categorycode},
  64         branchcode   => $branchcodes[$_],
  65     })->store->borrowernumber;
  66     push @borrowernumbers, $borrowernumber;
  67 }
  68
  69 my $biblionumber = $bibnum;
  70
  71 # Create five item level holds
  72 my $i = 1;
  73 foreach my $borrowernumber (@borrowernumbers) {
  74     AddReserve(
  75         $branchcodes[$i],
  76         $borrowernumber,
  77         $biblionumber,
  78         my $bibitems   = q{},
  79         my $priority = $i,
  80         my $resdate,
  81         my $expdate,
  82         my $notes = q{},
  83         $title,
  84         my $checkitem,
  85         my $found,
  86     );
  87
  88     $i++;
  89 }
  90
  91 my ($status, $reserve, $all_reserves);
  92
  93 t::lib::Mocks::mock_preference( 'LocalHoldsPriority', 0 );
  94 ($status, $reserve, $all_reserves) = CheckReserves($itemnumber);
  95 ok( $reserve->{borrowernumber} eq $borrowernumbers[0], "Received expected results with LocalHoldsPriority disabled" );
  96
  97 t::lib::Mocks::mock_preference( 'LocalHoldsPriority', 1 );
  98
  99 t::lib::Mocks::mock_preference( 'LocalHoldsPriorityPatronControl', 'PickupLibrary' );
 100 t::lib::Mocks::mock_preference( 'LocalHoldsPriorityItemControl', 'homebranch' );
 101 ($status, $reserve, $all_reserves) = CheckReserves($itemnumber);
 102 ok( $reserve->{borrowernumber} eq $borrowernumbers[2], "Received expected results with PickupLibrary/homebranch" );
 103
 104 t::lib::Mocks::mock_preference( 'LocalHoldsPriorityPatronControl', 'PickupLibrary' );
 105 t::lib::Mocks::mock_preference( 'LocalHoldsPriorityItemControl', 'holdingbranch' );
 106 ($status, $reserve, $all_reserves) = CheckReserves($itemnumber);
 107 ok( $reserve->{borrowernumber} eq $borrowernumbers[1], "Received expected results with PickupLibrary/holdingbranch" );
 108
 109 t::lib::Mocks::mock_preference( 'LocalHoldsPriorityPatronControl', 'HomeLibrary' );
 110 t::lib::Mocks::mock_preference( 'LocalHoldsPriorityItemControl', 'holdingbranch' );
 111 ($status, $reserve, $all_reserves) = CheckReserves($itemnumber);
 112 ok( $reserve->{borrowernumber} eq $borrowernumbers[1], "Received expected results with HomeLibrary/holdingbranch" );
 113
 114 t::lib::Mocks::mock_preference( 'LocalHoldsPriorityPatronControl', 'HomeLibrary' );
 115 t::lib::Mocks::mock_preference( 'LocalHoldsPriorityItemControl', 'homebranch' );
 116 ($status, $reserve, $all_reserves) = CheckReserves($itemnumber);
 117 ok( $reserve->{borrowernumber} eq $borrowernumbers[2], "Received expected results with HomeLibrary/homebranch" );
 118
 119 # Helper method to set up a Biblio.
 120 sub create_helper_biblio {
 121     my $bib   = MARC::Record->new();
 122     my $title = 'Silence in the library';
 123     $bib->append_fields(
 124         MARC::Field->new( '100', ' ', ' ', a => 'Moffat, Steven' ),
 125         MARC::Field->new( '245', ' ', ' ', a => $title ),
 126     );
 127     return ( $bibnum, $title, $bibitemnum ) = AddBiblio( $bib, '' );
 128 }