Attachment 40241 Details for Bug 14155 – (qa followup) variable declaration and cleanup

[patch] (qa followup) variable declaration and cleanup

qa-followup-variable-declaration-and-cleanup.patch (text/plain), 3.73 KB, created by Alex Arnaud on 2015-06-17 13:18:18 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Alex Arnaud

Created: 2015-06-17 13:18:18 UTC

Size: 3.73 KB

patch

obsolete

>From f003255bd7dd65bbe51db8dfaa5e9bb64eb61fc1 Mon Sep 17 00:00:00 2001
>From: Indranil Das Gupta <indradg@gmail.com>
>Date: Wed, 17 Jun 2015 10:21:50 +0530
>Subject: [PATCH] (qa followup) variable declaration and cleanup
>
>1/ running koha qa tools showed up valid FAIL. This patch fix
>   that error.
>
>   FAIL	t/db_dependent/Reserves.t
>     OK	   critic
>     OK	   forbidden patterns
>     OK	   pod
>     FAIL  valid
>	        "my" variable $title masks earlier declaration in same scope
>		"my" variable $bibitemnum masks earlier declaration in same scope
>
>2/ the following redundant line was removed as it had no use:
>
>   t::lib::Mocks::mock_preference('maxreserves', 15);
>
>Signed-off-by: Alex Arnaud (Biblibre) <alex.arnaud@biblibre.com>
>
>http://bugs.koha-community.org/show_bug.cgi?id=14155
>---
> t/db_dependent/Reserves.t |   24 ++++++++++++------------
> 1 file changed, 12 insertions(+), 12 deletions(-)
>
>diff --git a/t/db_dependent/Reserves.t b/t/db_dependent/Reserves.t
>index 635fdce..5a109d7 100755
>--- a/t/db_dependent/Reserves.t
>+++ b/t/db_dependent/Reserves.t
>@@ -81,36 +81,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);
>@@ -167,16 +169,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(
>-- 
>1.7.10.4

Actions: View | Diff | Splinter Review

Attachments on bug 14155: 38884 | 40170 | 40174 | 40175 | 40176 | 40208 | 40210 | 40239 | 40240 | 40241 | 44047 | 44048 | 44049 | 44050 | 44064