2 use Test::More tests => 5;
12 *C4::Context::userenv = \&Mock_userenv;
14 my $dbh = C4::Context->dbh;
15 $dbh->{AutoCommit} = 0;
16 $dbh->{RaiseError} = 1;
18 my $borrowernumber = AddMember(
19 firstname => 'my firstname',
20 surname => 'my surname',
26 my $borrower = GetMember( borrowernumber => $borrowernumber );
27 my $record = MARC::Record->new();
28 my ( $biblionumber, $biblioitemnumber ) = AddBiblio( $record, '' );
30 my ( undef, undef, $itemnumber ) = AddItem( { homebranch => 'CPL', holdingbranch => 'CPL', barcode => 'i_dont_exist' }, $biblionumber );
31 my $item = GetItem( $itemnumber );
33 is ( IsItemIssued( $item->{itemnumber} ), 0, "item is not on loan at first" );
35 AddIssue($borrower, 'i_dont_exist');
36 is ( IsItemIssued( $item->{itemnumber} ), 1, "item is now on loan" );
39 DelItemCheck($dbh, $biblionumber, $itemnumber),
41 'item that is on loan cannot be deleted',
44 AddReturn('i_dont_exist', 'CPL');
45 is ( IsItemIssued( $item->{itemnumber} ), 0, "item has been returned" );
48 DelItemCheck($dbh, $biblionumber, $itemnumber),
50 'item that is not on loan can be deleted',
55 # C4::Context->userenv
57 return { branch => 'CPL' };