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