Lines 35-43
my $schema = Koha::Database->schema;
Link Here
|
35 |
$schema->storage->txn_begin; |
35 |
$schema->storage->txn_begin; |
36 |
my $builder = t::lib::TestBuilder->new; |
36 |
my $builder = t::lib::TestBuilder->new; |
37 |
|
37 |
|
38 |
my $library = $builder->build({ |
38 |
my $library = $builder->build({ source => 'Branch' }); |
39 |
source => 'Branch', |
39 |
my $itemtype = $builder->build({ source => 'Itemtype' })->{itemtype}; |
40 |
}); |
|
|
41 |
|
40 |
|
42 |
my $module = new Test::MockModule('C4::Context'); |
41 |
my $module = new Test::MockModule('C4::Context'); |
43 |
$module->mock('userenv', sub { |
42 |
$module->mock('userenv', sub { |
Lines 53-64
my $borrowernumber = AddMember(
Link Here
|
53 |
branchcode => $library->{branchcode}, |
52 |
branchcode => $library->{branchcode}, |
54 |
); |
53 |
); |
55 |
|
54 |
|
56 |
|
|
|
57 |
my $borrower = GetMember( borrowernumber => $borrowernumber ); |
55 |
my $borrower = GetMember( borrowernumber => $borrowernumber ); |
58 |
my $record = MARC::Record->new(); |
56 |
my $record = MARC::Record->new(); |
59 |
my ( $biblionumber, $biblioitemnumber ) = AddBiblio( $record, '' ); |
57 |
my ( $biblionumber, $biblioitemnumber ) = AddBiblio( $record, '' ); |
60 |
|
58 |
|
61 |
my ( undef, undef, $itemnumber ) = AddItem( { homebranch => $library->{branchcode}, holdingbranch => $library->{branchcode}, barcode => 'i_dont_exist' }, $biblionumber ); |
59 |
my ( undef, undef, $itemnumber ) = AddItem( |
|
|
60 |
{ homebranch => $library->{branchcode}, |
61 |
holdingbranch => $library->{branchcode}, |
62 |
barcode => 'i_dont_exist', |
63 |
itype => $itemtype |
64 |
}, |
65 |
$biblionumber |
66 |
); |
67 |
|
62 |
my $item = GetItem( $itemnumber ); |
68 |
my $item = GetItem( $itemnumber ); |
63 |
|
69 |
|
64 |
is ( IsItemIssued( $item->{itemnumber} ), 0, "item is not on loan at first" ); |
70 |
is ( IsItemIssued( $item->{itemnumber} ), 0, "item is not on loan at first" ); |
65 |
- |
|
|