t/db_dependent/Holds/HoldFulfillmentPolicy.t

   1 #!/usr/bin/perl
   2
   3 use Modern::Perl;
   4
   5 use C4::Context;
   6
   7 use Test::More tests => 10;
   8
   9 use t::lib::TestBuilder;
  10 use Koha::Holds;
  11
  12 BEGIN {
  13     use_ok('C4::Reserves');
  14 }
  15
  16 my $schema = Koha::Database->schema;
  17 $schema->storage->txn_begin;
  18 my $dbh = C4::Context->dbh;
  19
  20 my $builder = t::lib::TestBuilder->new;
  21
  22 my $library1 = $builder->build({
  23     source => 'Branch',
  24 });
  25 my $library2 = $builder->build({
  26     source => 'Branch',
  27 });
  28 my $library3 = $builder->build({
  29     source => 'Branch',
  30 });
  31 my $itemtype = $builder->build({ source => 'Item' })->{itype};
  32
  33 my $bib_title = "Test Title";
  34
  35 my $borrower = $builder->build({
  36     source => 'Borrower',
  37     value => {
  38         branchcode => $library1->{branchcode},
  39     }
  40 });
  41
  42 # Test hold_fulfillment_policy
  43 my $borrowernumber = $borrower->{borrowernumber};
  44 my $library_A = $library1->{branchcode};
  45 my $library_B = $library2->{branchcode};
  46 my $library_C = $library3->{branchcode};
  47 $dbh->do("DELETE FROM transport_cost");
  48 $dbh->do("DELETE FROM tmp_holdsqueue");
  49 $dbh->do("DELETE FROM hold_fill_targets");
  50 $dbh->do("DELETE FROM default_branch_circ_rules");
  51 $dbh->do("DELETE FROM default_branch_item_rules");
  52 $dbh->do("DELETE FROM default_circ_rules");
  53 $dbh->do("DELETE FROM branch_item_rules");
  54
  55 $dbh->do("INSERT INTO biblio (frameworkcode, author, title, datecreated) VALUES ('', 'Koha test', '$bib_title', '2011-02-01')");
  56
  57 my $biblionumber = $dbh->selectrow_array("SELECT biblionumber FROM biblio WHERE title = '$bib_title'")
  58   or BAIL_OUT("Cannot find newly created biblio record");
  59
  60 $dbh->do("INSERT INTO biblioitems (biblionumber, itemtype) VALUES ($biblionumber, '$itemtype')");
  61
  62 my $biblioitemnumber =
  63   $dbh->selectrow_array("SELECT biblioitemnumber FROM biblioitems WHERE biblionumber = $biblionumber")
  64   or BAIL_OUT("Cannot find newly created biblioitems record");
  65
  66 $dbh->do("
  67     INSERT INTO items (biblionumber, biblioitemnumber, homebranch, holdingbranch, notforloan, damaged, itemlost, withdrawn, onloan, itype)
  68     VALUES ($biblionumber, $biblioitemnumber, '$library_A', '$library_B', 0, 0, 0, 0, NULL, '$itemtype')
  69 ");
  70
  71 my $itemnumber =
  72   $dbh->selectrow_array("SELECT itemnumber FROM items WHERE biblionumber = $biblionumber")
  73   or BAIL_OUT("Cannot find newly created item");
  74
  75 # With hold_fulfillment_policy = homebranch, hold should only be picked up if pickup branch = homebranch
  76 $dbh->do("DELETE FROM default_circ_rules");
  77 $dbh->do("INSERT INTO default_circ_rules ( holdallowed, hold_fulfillment_policy ) VALUES ( 2, 'homebranch' )");
  78
  79 # Home branch matches pickup branch
  80 my $reserve_id = AddReserve( $library_A, $borrowernumber, $biblionumber, '', 1 );
  81 my ( $status ) = CheckReserves($itemnumber);
  82 is( $status, 'Reserved', "Hold where pickup branch matches home branch targeted" );
  83 Koha::Holds->find( $reserve_id )->cancel;
  84
  85 # Holding branch matches pickup branch
  86 $reserve_id = AddReserve( $library_B, $borrowernumber, $biblionumber, '', 1 );
  87 ( $status ) = CheckReserves($itemnumber);
  88 is($status, q{}, "Hold where pickup ne home, pickup eq home not targeted" );
  89 Koha::Holds->find( $reserve_id )->cancel;
  90
  91 # Neither branch matches pickup branch
  92 $reserve_id = AddReserve( $library_C, $borrowernumber, $biblionumber, '', 1 );
  93 ( $status ) = CheckReserves($itemnumber);
  94 is( $status, q{}, "Hold where pickup ne home, pickup ne holding not targeted" );
  95 Koha::Holds->find( $reserve_id )->cancel;
  96
  97 # With hold_fulfillment_policy = holdingbranch, hold should only be picked up if pickup branch = holdingbranch
  98 $dbh->do("DELETE FROM default_circ_rules");
  99 $dbh->do("INSERT INTO default_circ_rules ( holdallowed, hold_fulfillment_policy ) VALUES ( 2, 'holdingbranch' )");
 100
 101 # Home branch matches pickup branch
 102 $reserve_id = AddReserve( $library_A, $borrowernumber, $biblionumber, '', 1 );
 103 ( $status ) = CheckReserves($itemnumber);
 104 is( $status, q{}, "Hold where pickup eq home, pickup ne holding not targeted" );
 105 Koha::Holds->find( $reserve_id )->cancel;
 106
 107 # Holding branch matches pickup branch
 108 $reserve_id = AddReserve( $library_B, $borrowernumber, $biblionumber, '', 1 );
 109 ( $status ) = CheckReserves($itemnumber);
 110 is( $status, 'Reserved', "Hold where pickup ne home, pickup eq holding targeted" );
 111 Koha::Holds->find( $reserve_id )->cancel;
 112
 113 # Neither branch matches pickup branch
 114 $reserve_id = AddReserve( $library_C, $borrowernumber, $biblionumber, '', 1 );
 115 ( $status ) = CheckReserves($itemnumber);
 116 is( $status, q{}, "Hold where pickup ne home, pickup ne holding not targeted" );
 117 Koha::Holds->find( $reserve_id )->cancel;
 118
 119 # With hold_fulfillment_policy = any, hold should be pikcup up reguardless of matching home or holding branch
 120 $dbh->do("DELETE FROM default_circ_rules");
 121 $dbh->do("INSERT INTO default_circ_rules ( holdallowed, hold_fulfillment_policy ) VALUES ( 2, 'any' )");
 122
 123 # Home branch matches pickup branch
 124 $reserve_id = AddReserve( $library_A, $borrowernumber, $biblionumber, '', 1 );
 125 ( $status ) = CheckReserves($itemnumber);
 126 is( $status, 'Reserved', "Hold where pickup eq home, pickup ne holding targeted" );
 127 Koha::Holds->find( $reserve_id )->cancel;
 128
 129 # Holding branch matches pickup branch
 130 $reserve_id = AddReserve( $library_B, $borrowernumber, $biblionumber, '', 1 );
 131 ( $status ) = CheckReserves($itemnumber);
 132 is( $status, 'Reserved', "Hold where pickup ne home, pickup eq holding targeted" );
 133 Koha::Holds->find( $reserve_id )->cancel;
 134
 135 # Neither branch matches pickup branch
 136 $reserve_id = AddReserve( $library_C, $borrowernumber, $biblionumber, '', 1 );
 137 ( $status ) = CheckReserves($itemnumber);
 138 is( $status, 'Reserved', "Hold where pickup ne home, pickup ne holding targeted" );
 139 Koha::Holds->find( $reserve_id )->cancel;