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 C4::Members;
  13 use Koha::Database;
  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({
  29     source => 'Branch',
  30 });
  31 my $library2 = $builder->build({
  32     source => 'Branch',
  33 });
  34 my $library3 = $builder->build({
  35     source => 'Branch',
  36 });
  37 my $library4 = $builder->build({
  38     source => 'Branch',
  39 });
  40
  41 my $borrowers_count = 5;
  42
  43 # Create a helper biblio
  44 my ( $bibnum, $title, $bibitemnum ) = create_helper_biblio();
  45 # Create a helper item for the biblio.
  46 my ( $item_bibnum, $item_bibitemnum, $itemnumber ) =
  47   AddItem( { homebranch => $library4->{branchcode}, holdingbranch => $library3->{branchcode} }, $bibnum );
  48
  49 my @branchcodes = ( $library1->{branchcode}, $library2->{branchcode}, $library3->{branchcode}, $library4->{branchcode}, $library3->{branchcode}, $library4->{branchcode} );
  50
  51 # Create some borrowers
  52 my @borrowernumbers;
  53 foreach ( 1 .. $borrowers_count ) {
  54     my $borrowernumber = AddMember(
  55         firstname    => 'my firstname',
  56         surname      => 'my surname ' . $_,
  57         categorycode => 'S',
  58         branchcode   => $branchcodes[$_],
  59     );
  60     push @borrowernumbers, $borrowernumber;
  61 }
  62
  63 my $biblionumber = $bibnum;
  64
  65 # Create five item level holds
  66 my $i = 1;
  67 foreach my $borrowernumber (@borrowernumbers) {
  68     AddReserve(
  69         $branchcodes[$i],
  70         $borrowernumber,
  71         $biblionumber,
  72         my $bibitems   = q{},
  73         my $priority = $i,
  74         my $resdate,
  75         my $expdate,
  76         my $notes = q{},
  77         $title,
  78         my $checkitem,
  79         my $found,
  80     );
  81
  82     $i++;
  83 }
  84
  85 my ($status, $reserve, $all_reserves);
  86
  87 t::lib::Mocks::mock_preference( 'LocalHoldsPriority', 0 );
  88 ($status, $reserve, $all_reserves) = CheckReserves($itemnumber);
  89 ok( $reserve->{borrowernumber} eq $borrowernumbers[0], "Received expected results with LocalHoldsPriority disabled" );
  90
  91 t::lib::Mocks::mock_preference( 'LocalHoldsPriority', 1 );
  92
  93 t::lib::Mocks::mock_preference( 'LocalHoldsPriorityPatronControl', 'PickupLibrary' );
  94 t::lib::Mocks::mock_preference( 'LocalHoldsPriorityItemControl', 'homebranch' );
  95 ($status, $reserve, $all_reserves) = CheckReserves($itemnumber);
  96 ok( $reserve->{borrowernumber} eq $borrowernumbers[2], "Received expected results with PickupLibrary/homebranch" );
  97
  98 t::lib::Mocks::mock_preference( 'LocalHoldsPriorityPatronControl', 'PickupLibrary' );
  99 t::lib::Mocks::mock_preference( 'LocalHoldsPriorityItemControl', 'holdingbranch' );
 100 ($status, $reserve, $all_reserves) = CheckReserves($itemnumber);
 101 ok( $reserve->{borrowernumber} eq $borrowernumbers[1], "Received expected results with PickupLibrary/holdingbranch" );
 102
 103 t::lib::Mocks::mock_preference( 'LocalHoldsPriorityPatronControl', 'HomeLibrary' );
 104 t::lib::Mocks::mock_preference( 'LocalHoldsPriorityItemControl', 'holdingbranch' );
 105 ($status, $reserve, $all_reserves) = CheckReserves($itemnumber);
 106 ok( $reserve->{borrowernumber} eq $borrowernumbers[1], "Received expected results with HomeLibrary/holdingbranch" );
 107
 108 t::lib::Mocks::mock_preference( 'LocalHoldsPriorityPatronControl', 'HomeLibrary' );
 109 t::lib::Mocks::mock_preference( 'LocalHoldsPriorityItemControl', 'homebranch' );
 110 ($status, $reserve, $all_reserves) = CheckReserves($itemnumber);
 111 ok( $reserve->{borrowernumber} eq $borrowernumbers[2], "Received expected results with HomeLibrary/homebranch" );
 112
 113 # Helper method to set up a Biblio.
 114 sub create_helper_biblio {
 115     my $bib   = MARC::Record->new();
 116     my $title = 'Silence in the library';
 117     $bib->append_fields(
 118         MARC::Field->new( '100', ' ', ' ', a => 'Moffat, Steven' ),
 119         MARC::Field->new( '245', ' ', ' ', a => $title ),
 120     );
 121     return ( $bibnum, $title, $bibitemnum ) = AddBiblio( $bib, '' );
 122 }