t/db_dependent/Reserves/GetReserveFee.t

   1 #!/usr/bin/perl
   2
   3 # This script includes tests for GetReserveFee and ChargeReserveFee
   4
   5 # Copyright 2015 Rijksmuseum
   6 #
   7 # This file is part of Koha.
   8 #
   9 # Koha is free software; you can redistribute it and/or modify it
  10 # under the terms of the GNU General Public License as published by
  11 # the Free Software Foundation; either version 3 of the License, or
  12 # (at your option) any later version.
  13 #
  14 # Koha is distributed in the hope that it will be useful, but
  15 # WITHOUT ANY WARRANTY; without even the implied warranty of
  16 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  17 # GNU General Public License for more details.
  18 #
  19 # You should have received a copy of the GNU General Public License
  20 # along with Koha; if not, see <http://www.gnu.org/licenses>.
  21
  22 use Modern::Perl;
  23
  24 use Test::More tests => 6;
  25 use Test::MockModule;
  26 use t::lib::TestBuilder;
  27 use t::lib::Mocks;
  28
  29 use C4::Circulation;
  30 use C4::Reserves qw|AddReserve|;
  31 use Koha::Database;
  32
  33 my $schema = Koha::Database->new->schema;
  34 $schema->storage->txn_begin;
  35
  36 my $builder = t::lib::TestBuilder->new();
  37 my $library = $builder->build({
  38     source => 'Branch',
  39 });
  40 my $mContext = new Test::MockModule('C4::Context');
  41 $mContext->mock( 'userenv', sub {
  42     return { branch => $library->{branchcode} };
  43 });
  44
  45 my $dbh = C4::Context->dbh; # after start transaction of testbuilder
  46
  47 # Category with hold fee, two patrons
  48 $builder->build({
  49     source => 'Category',
  50     value  => {
  51         categorycode          => 'XYZ1',
  52         reservefee            => 2,
  53     },
  54 });
  55 my $patron1 = $builder->build({
  56     source => 'Borrower',
  57     value  => {
  58         categorycode => 'XYZ1',
  59     },
  60 });
  61 my $patron2 = $builder->build({
  62     source => 'Borrower',
  63     value  => {
  64         categorycode => 'XYZ1',
  65     },
  66 });
  67
  68 # One biblio and two items
  69 my $biblio = $builder->build({
  70     source => 'Biblio',
  71     value  => {
  72         title => 'Title 1',
  73     },
  74 });
  75 my $item1 = $builder->build({
  76     source => 'Item',
  77     value  => {
  78         biblionumber => $biblio->{biblionumber},
  79     },
  80 });
  81 my $item2 = $builder->build({
  82     source => 'Item',
  83     value  => {
  84         biblionumber => $biblio->{biblionumber},
  85     },
  86 });
  87
  88
  89 # Actual testing starts here!
  90 # Add reserve for patron1, no fee expected
  91 # Note: AddReserve calls GetReserveFee and ChargeReserveFee
  92 my $acc1 = acctlines( $patron1->{borrowernumber} );
  93 my $res1 = addreserve( $patron1->{borrowernumber} );
  94 is( acctlines( $patron1->{borrowernumber} ), $acc1, 'No fee charged for patron 1' );
  95
  96 # Issue item1 to patron1. Since there is still a reserve too, we should
  97 # expect a charge for patron2.
  98 C4::Circulation::AddIssue( $patron1, $item1->{barcode}, '2015-12-31', 0, undef, 0, {} ); # the date does not really matter
  99 my $acc2 = acctlines( $patron2->{borrowernumber} );
 100 t::lib::Mocks::mock_preference('HoldFeeMode', 'not_always');
 101 my $fee = C4::Reserves::GetReserveFee( $patron2->{borrowernumber}, $biblio->{biblionumber} );
 102 is( $fee > 0, 1, 'Patron 2 should be charged cf GetReserveFee' );
 103 C4::Reserves::ChargeReserveFee( $patron2->{borrowernumber}, $fee, $biblio->{title} );
 104 is( acctlines( $patron2->{borrowernumber} ), $acc2 + 1, 'Patron 2 has been charged by ChargeReserveFee' );
 105
 106 # If we delete the reserve, there should be no charge
 107 $dbh->do( "DELETE FROM reserves WHERE reserve_id=?", undef, ( $res1 ) );
 108 $fee = C4::Reserves::GetReserveFee( $patron2->{borrowernumber}, $biblio->{biblionumber} );
 109 is( $fee, 0, 'HoldFeeMode=not_always, Patron 2 should not be charged' );
 110
 111 t::lib::Mocks::mock_preference('HoldFeeMode', 'always');
 112 $fee = C4::Reserves::GetReserveFee( $patron2->{borrowernumber}, $biblio->{biblionumber} );
 113 is( int($fee), 2, 'HoldFeeMode=always, Patron 2 should be charged' );
 114
 115 # If we delete the second item, there should be a charge
 116 $dbh->do( "DELETE FROM items WHERE itemnumber=?", undef, ( $item2->{itemnumber} ) );
 117 $fee = C4::Reserves::GetReserveFee( $patron2->{borrowernumber}, $biblio->{biblionumber} );
 118 is( int($fee), 2, 'Patron 2 should be charged again this time' );
 119 # End of tests
 120
 121 sub acctlines { #calculate number of accountlines for a patron
 122     my @temp = $dbh->selectrow_array( "SELECT COUNT(*) FROM accountlines WHERE borrowernumber=?", undef, ( $_[0] ) );
 123     return $temp[0];
 124 }
 125
 126 sub addreserve {
 127     return AddReserve(
 128         $library->{branchcode},
 129         $_[0],
 130         $biblio->{biblionumber},
 131         undef,
 132         '1',
 133         undef,
 134         undef,
 135         '',
 136         $biblio->{title},
 137         undef,
 138         ''
 139     );
 140 }
 141
 142 $schema->storage->txn_rollback;
 143
 144 1;