|
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 |
- |
|
|