2 use Test::More tests => 1;
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} ), 1, "Item is issued" );
37 # C4::Context->userenv
39 return { branch => 'CPL' };