t/db_dependent/Borrower_Discharge.t

   1 #!/usr/bin/perl;
   2
   3 use Modern::Perl;
   4 use Test::More;
   5 use Test::Warn;
   6 use MARC::Record;
   7
   8 use C4::Biblio qw( AddBiblio );
   9 use C4::Circulation qw( AddIssue AddReturn );
  10 use C4::Context;
  11 use C4::Items qw( AddItem );
  12 use C4::Members qw( AddMember GetMember );
  13
  14 use Koha::Borrower::Discharge;
  15
  16 my $dbh = C4::Context->dbh;
  17 $dbh->{AutoCommit} = 0;
  18 $dbh->{RaiseError} = 1;
  19
  20 $dbh->do(q|DELETE FROM discharges|);
  21
  22 C4::Context->_new_userenv('xxx');
  23 C4::Context->set_userenv(0, 0, 0, 'firstname', 'surname', 'CPL', 'CPL', '', '', '', '', '');
  24
  25 my $borrowernumber = AddMember(
  26     cardnumber => 'UTCARD1',
  27     firstname => 'my firstname',
  28     surname => 'my surname',
  29     categorycode => 'S',
  30     branchcode => 'CPL',
  31 );
  32 my $borrower = GetMember( borrowernumber => $borrowernumber );
  33
  34 # Discharge not possible with issues
  35 my ( $biblionumber ) = AddBiblio( MARC::Record->new, '');
  36 my $barcode = 'BARCODE42';
  37 my ( undef, undef, $itemnumber ) = AddItem({ homebranch => 'CPL', holdingbranch => 'CPL', barcode => $barcode }, $biblionumber);
  38 AddIssue( $borrower, $barcode );
  39 is( Koha::Borrower::Discharge::can_be_discharged({ borrowernumber => $borrowernumber }), 0, 'A patron with issues cannot be discharged' );
  40
  41 is( Koha::Borrower::Discharge::request({ borrowernumber => $borrowernumber }), undef, 'No request done if patron has issues' );
  42 is( Koha::Borrower::Discharge::discharge({ borrowernumber => $borrowernumber }), undef, 'No discharge done if patron has issues' );
  43 is_deeply( Koha::Borrower::Discharge::get_pendings(), [], 'There is no pending discharge request' );
  44
  45 AddReturn( $barcode );
  46
  47 # Discharge possible without issue
  48 is( Koha::Borrower::Discharge::can_be_discharged({ borrowernumber => $borrowernumber }), 1, 'A patron without issues can be discharged' );
  49
  50 is(Koha::Borrower::Discharge::generate_as_pdf,undef,"Confirm failure when lacking borrower number");
  51
  52 # Verify that the user is not discharged anymore if the restriction has been lifted
  53 Koha::Borrower::Discharge::discharge({ borrowernumber => $borrowernumber });
  54 is( Koha::Borrower::Discharge::is_discharged({ borrowernumber => $borrowernumber }), 1, 'The patron has been discharged' );
  55 is(Koha::Borrower::Debarments::IsDebarred($borrowernumber), '9999-12-31', 'The patron has been debarred after discharge');
  56 Koha::Borrower::Debarments::DelDebarment($borrowernumber);
  57 is( Koha::Borrower::Discharge::is_discharged({ borrowernumber => $borrowernumber }), 1, 'The patron is not discharged after the restriction has been lifted' );
  58
  59 # Check if PDF::FromHTML is installed.
  60 my $check = eval { require PDF::FromHTML; };
  61
  62 # Tests for if PDF::FromHTML is installed
  63 if ($check) {
  64     isnt( Koha::Borrower::Discharge::generate_as_pdf({ borrowernumber => $borrowernumber }), undef, "Temporary PDF generated." );
  65 }
  66 # Tests for if PDF::FromHTML is not installed
  67 else {
  68     warning_like { Koha::Borrower::Discharge::generate_as_pdf({ borrowernumber => $borrowernumber, testing => 1 }) }
  69           [ qr/Can't locate PDF\/FromHTML.pm in \@INC/ ],
  70           "Expected failure because of missing PDF::FromHTML.";
  71 }
  72
  73 # FIXME
  74 # At this point, there is a problem with the AutoCommit off
  75 # The transaction is bloked into DBIx::Class::Storage::DBI::_dbh_execute
  76 # line my $rv = $sth->execute();
  77 # We are using 2 connections and the one used by Koha::Schema has the AutoCommit set to 1
  78 # Even if we switch off this flag, the connection will be blocked.
  79 # The error is:
  80 # DBIx::Class::ResultSet::create(): DBI Exception: DBD::mysql::st execute failed: Lock wait timeout exceeded; try restarting transaction [for Statement "INSERT INTO discharges ( borrower, needed, validated) VALUES ( ?, ?, ? )" with ParamValues: 0='121', 1='2014-01-08T16:38:29', 2=undef] at /home/koha/src/Koha/DataObject/Discharge.pm line 33
  81 #is( Koha::Service::Borrower::Discharge::request({ borrowernumber => $borrowernumber }), 1, 'Discharge request sent' );
  82
  83 done_testing;