t/db_dependent/Patron/Borrower_Discharge.t

   1 #!/usr/bin/perl
   2
   3 # This file is part of Koha.
   4 #
   5 # Koha is free software; you can redistribute it and/or modify it under the
   6 # terms of the GNU General Public License as published by the Free Software
   7 # Foundation; either version 3 of the License, or (at your option) any later
   8 # version.
   9 #
  10 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
  11 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
  12 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
  13 #
  14 # You should have received a copy of the GNU General Public License along
  15 # with Koha; if not, see <http://www.gnu.org/licenses>.
  16
  17 use Modern::Perl;
  18 use Test::More tests => 18;
  19 use Test::Warn;
  20 use MARC::Record;
  21
  22 use C4::Biblio qw( AddBiblio );
  23 use C4::Circulation qw( AddIssue AddReturn );
  24 use C4::Context;
  25 use C4::Items qw( AddItem );
  26 use C4::Members qw( AddMember GetMember );
  27
  28 use Koha::Patron::Discharge;
  29 use Koha::Database;
  30
  31 use t::lib::TestBuilder;
  32
  33 my $schema  = Koha::Database->new->schema;
  34 $schema->storage->txn_begin;
  35
  36 my $builder = t::lib::TestBuilder->new;
  37
  38 my $dbh = C4::Context->dbh;
  39 $dbh->do(q|DELETE FROM discharges|);
  40
  41 my $library         = $builder->build({ source => 'Branch' });
  42 my $another_library = $builder->build({ source => 'Branch' });
  43 my $itemtype        = $builder->build({ source => 'Itemtype' })->{itemtype};
  44
  45 C4::Context->_new_userenv('xxx');
  46 C4::Context->set_userenv(0, 0, 0, 'firstname', 'surname', $library->{branchcode}, $library->{branchcode}, '', '', '', '');
  47 my $patron = $builder->build({
  48     source => 'Borrower',
  49     value => {
  50         branchcode => $library->{branchcode},
  51     }
  52 });
  53 my $patron2 = $builder->build({
  54     source => 'Borrower',
  55     value => {
  56         branchcode => $library->{branchcode},
  57     }
  58 });
  59 my $patron3 = $builder->build({
  60     source => 'Borrower',
  61     value => {
  62         branchcode => $another_library->{branchcode},
  63     }
  64 });
  65
  66 # Discharge not possible with issues
  67 my ( $biblionumber ) = AddBiblio( MARC::Record->new, '');
  68 my $barcode = 'BARCODE42';
  69 my ( undef, undef, $itemnumber ) = AddItem(
  70     {   homebranch    => $library->{branchcode},
  71         holdingbranch => $library->{branchcode},
  72         barcode       => $barcode,
  73         itype         => $itemtype
  74     },
  75     $biblionumber
  76 );
  77
  78 AddIssue( $patron, $barcode );
  79 is( Koha::Patron::Discharge::can_be_discharged({ borrowernumber => $patron->{borrowernumber} }), 0, 'A patron with issues cannot be discharged' );
  80
  81 is( Koha::Patron::Discharge::request({ borrowernumber => $patron->{borrowernumber} }), undef, 'No request done if patron has issues' );
  82 is( Koha::Patron::Discharge::discharge({ borrowernumber => $patron->{borrowernumber} }), undef, 'No discharge done if patron has issues' );
  83 is_deeply( Koha::Patron::Discharge::get_pendings(), [], 'There is no pending discharge request' );
  84 is_deeply( Koha::Patron::Discharge::get_validated(), [], 'There is no validated discharge' );
  85
  86 AddReturn( $barcode );
  87
  88 # Discharge possible without issue
  89 is( Koha::Patron::Discharge::can_be_discharged({ borrowernumber => $patron->{borrowernumber} }), 1, 'A patron without issues can be discharged' );
  90
  91 is(Koha::Patron::Discharge::generate_as_pdf,undef,"Confirm failure when lacking borrower number");
  92
  93 # Verify that the user is not discharged anymore if the restriction has been lifted
  94 Koha::Patron::Discharge::discharge( { borrowernumber => $patron->{borrowernumber} } );
  95 Koha::Patron::Discharge::discharge( { borrowernumber => $patron2->{borrowernumber} } );
  96 Koha::Patron::Discharge::discharge( { borrowernumber => $patron3->{borrowernumber} } );
  97 is( Koha::Patron::Discharge::is_discharged( { borrowernumber => $patron->{borrowernumber} } ), 1, 'The patron has been discharged' );
  98 is( Koha::Patrons->find( $patron->{borrowernumber} )->is_debarred, '9999-12-31', 'The patron has been debarred after discharge' );
  99 is( scalar( @{ Koha::Patron::Discharge::get_validated() } ),             3,            'There are 3 validated discharges' );
 100 is( scalar( @{ Koha::Patron::Discharge::get_validated( { borrowernumber => $patron->{borrowernumber} } ) } ), 1, 'There is 1 validated discharge for a given patron' );
 101 is( scalar( @{ Koha::Patron::Discharge::get_validated( { branchcode => $library->{branchcode} } ) } ), 2, 'There is 2 validated discharges for a given branchcode' );    # This is not used in the code yet
 102 Koha::Patron::Debarments::DelUniqueDebarment( { 'borrowernumber' => $patron->{borrowernumber}, 'type' => 'DISCHARGE' } );
 103 ok( !Koha::Patrons->find( $patron->{borrowernumber} )->is_debarred, 'The debarment has been lifted' );
 104 ok( !Koha::Patron::Discharge::is_discharged( { borrowernumber => $patron->{borrowernumber} } ), 'The patron is not discharged after the restriction has been lifted' );
 105
 106 # Verify that the discharge works multiple times
 107 Koha::Patron::Discharge::request({ borrowernumber => $patron->{borrowernumber} });
 108 is(scalar( @{ Koha::Patron::Discharge::get_pendings() }), 1, 'There is a pending discharge request (second time)');
 109 Koha::Patron::Discharge::discharge( { borrowernumber => $patron->{borrowernumber} } );
 110 is_deeply( Koha::Patron::Discharge::get_pendings(), [], 'There is no pending discharge request (second time)');
 111
 112 # Check if PDF::FromHTML is installed.
 113 my $check = eval { require PDF::FromHTML; };
 114
 115 # Tests for if PDF::FromHTML is installed
 116 if ($check) {
 117     isnt( Koha::Patron::Discharge::generate_as_pdf({ borrowernumber => $patron->{borrowernumber} }), undef, "Temporary PDF generated." );
 118 }
 119 # Tests for if PDF::FromHTML is not installed
 120 else {
 121     warning_like { Koha::Patron::Discharge::generate_as_pdf({ borrowernumber => $patron->{borrowernumber}, testing => 1 }) }
 122           [ qr/Can't locate PDF\/FromHTML.pm in \@INC/ ],
 123           "Expected failure because of missing PDF::FromHTML.";
 124 }
 125
 126 # FIXME Should be a Koha::Object object
 127 is( ref(Koha::Patron::Discharge::request({ borrowernumber => $patron->{borrowernumber} })), 'Koha::Schema::Result::Discharge', 'Discharge request sent' );
 128
 129 $schema->storage->txn_rollback;
 130
 131 1;