@@ -, +, @@ that error. FAIL t/db_dependent/Reserves.t OK critic OK forbidden patterns OK pod FAIL valid t::lib::Mocks::mock_preference('maxreserves', 15); --- t/db_dependent/Reserves.t | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) --- a/t/db_dependent/Reserves.t +++ a/t/db_dependent/Reserves.t @@ -83,36 +83,38 @@ my ($bibnum, $bibitemnum); ($bibnum, $title, $bibitemnum) = AddBiblio($bib, ''); my $miniaturist = MARC::Record->new(); -my $title = 'The Miniaturist'; +my $title_14155a = 'The Miniaturist'; if( C4::Context->preference('marcflavour') eq 'UNIMARC' ) { $miniaturist->append_fields( MARC::Field->new('600', '', '1', a => 'Burton, Jessie'), - MARC::Field->new('200', '', '', a => $title), + MARC::Field->new('200', '', '', a => $title_14155a), ); } else { $miniaturist->append_fields( MARC::Field->new('100', '', '', a => 'Burton, Jessie'), - MARC::Field->new('245', '', '', a => $title), + MARC::Field->new('245', '', '', a => $title_14155a), ); } -my ($miniaturist_id, $title, $bibitemnum) = AddBiblio($miniaturist, ''); +my ($miniaturist_id, $bibitemnum_14155a); +($miniaturist_id, $title_14155a, $bibitemnum_14155a) = AddBiblio($miniaturist, ''); my $broken = MARC::Record->new(); -my $title = 'The broken'; +my $title_14155b = 'The broken'; if( C4::Context->preference('marcflavour') eq 'UNIMARC' ) { $broken->append_fields( MARC::Field->new('600', '', '1', a => 'Cohen, Tamar'), - MARC::Field->new('200', '', '', a => $title), + MARC::Field->new('200', '', '', a => $title_14155b), ); } else { $broken->append_fields( MARC::Field->new('100', '', '', a => 'Cohen, Tamar'), - MARC::Field->new('245', '', '', a => $title), + MARC::Field->new('245', '', '', a => $title_14155b), ); } -my ($broken_id, $title, $bibitemnum) = AddBiblio($broken, ''); +my ($broken_id, $bibitemnum_14155b); +($broken_id, $title_14155b, $bibitemnum_14155b) = AddBiblio($broken, ''); # Create a helper item instance for testing my ($item_bibnum, $item_bibitemnum, $itemnumber) = AddItem({ homebranch => 'CPL', holdingbranch => 'CPL' } , $bibnum); @@ -168,16 +170,14 @@ ok(!ReachedMaxReserves($borrowernumber), 'First borrower doesn\'t reached max re AddReserve($branch, $borrowernumber, $miniaturist_id, $constraint, $bibitems, $priority, $resdate, $expdate, $notes, - $title, $checkitem, $found); + $title_14155a, $checkitem, $found); AddReserve($branch, $borrowernumber, $broken_id, $constraint, $bibitems, $priority, $resdate, $expdate, $notes, - $title, $checkitem, $found); + $title_14155b, $checkitem, $found); ok(ReachedMaxReserves($borrowernumber), 'First borrower reached max reserves'); -t::lib::Mocks::mock_preference('maxreserves', 15); - my $ReservesControlBranch = C4::Context->preference('ReservesControlBranch'); C4::Context->set_preference( 'ReservesControlBranch', 'ItemHomeLibrary' ); ok( --