t/db_dependent/Circulation/IsItemIssued.t

   1 use Modern::Perl;
   2 use Test::More tests => 2;
   3
   4 use C4::Biblio;
   5 use C4::Circulation;
   6 use C4::Items;
   7 use C4::Members;
   8 use Koha::DateUtils;
   9
  10 use MARC::Record;
  11
  12 *C4::Context::userenv = \&Mock_userenv;
  13
  14 my $dbh = C4::Context->dbh;
  15 $dbh->{AutoCommit} = 0;
  16 $dbh->{RaiseError} = 1;
  17
  18 my $borrowernumber = AddMember(
  19     firstname =>  'my firstname',
  20     surname => 'my surname',
  21     categorycode => 'S',
  22     branchcode => 'CPL',
  23 );
  24
  25
  26 my $borrower = GetMember( borrowernumber => $borrowernumber );
  27 my $record = MARC::Record->new();
  28 my ( $biblionumber, $biblioitemnumber ) = AddBiblio( $record, '' );
  29
  30 my ( undef, undef, $itemnumber ) = AddItem( { homebranch => 'CPL', holdingbranch => 'CPL', barcode => 'i_dont_exist' }, $biblionumber );
  31 my $item = GetItem( $itemnumber );
  32
  33 is ( IsItemIssued( $item->{itemnumber} ), 0, "item is not on loan at first" );
  34
  35 AddIssue($borrower, 'i_dont_exist');
  36 is ( IsItemIssued( $item->{itemnumber} ), 1, "item is now on loan" );
  37
  38 $dbh->rollback;
  39
  40 # C4::Context->userenv
  41 sub Mock_userenv {
  42     return { branch => 'CPL' };
  43 }