From 25030aaeac667e70e4b73ad15f709d257816f0b0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Holger=20Mei=C3=9Fner?= <h.meissner.82@web.de>
Date: Fri, 14 Feb 2014 10:01:19 +0100
Subject: [PATCH] Bug 7413: Unit test
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

This patch makes the new parameter norenewalbefore known to
unit test Circulation_Issuingrule.t.

To test:
1) Before applying the patch:
   prove t/db_dependent/Circulation_Issuingrule.t
2) Notice that the test fails with:
   $got->{norenewalbefore} = undef
   $expected->{norenewalbefore} = Does not exist
3) Apply the patch.
4) Run test again and it should pass.

Sponsored-by: Hochschule für Gesundheit (hsg), Germany
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Brendan Gallagher <brendan@bywatersolutions.com>
---
 t/db_dependent/Circulation_Issuingrule.t |    9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/t/db_dependent/Circulation_Issuingrule.t b/t/db_dependent/Circulation_Issuingrule.t
index fc567a8..7ab439b 100644
--- a/t/db_dependent/Circulation_Issuingrule.t
+++ b/t/db_dependent/Circulation_Issuingrule.t
@@ -116,6 +116,7 @@ my $sampleissuingrule1 = {
     finedays           => 0,
     lengthunit         => 'Null',
     renewalperiod      => 5,
+    norenewalbefore    => 6,
     issuelength        => 5,
     chargeperiod       => 0,
     rentaldiscount     => '2.000000',
@@ -137,6 +138,7 @@ my $sampleissuingrule2 = {
     maxissueqty        => 2,
     renewalsallowed    => 'Null',
     renewalperiod      => 2,
+    norenewalbefore    => 7,
     reservesallowed    => 'Null',
     issuelength        => 2,
     lengthunit         => 'Null',
@@ -160,6 +162,7 @@ my $sampleissuingrule3 = {
     maxissueqty        => 3,
     renewalsallowed    => 'Null',
     renewalperiod      => 3,
+    norenewalbefore    => 8,
     reservesallowed    => 'Null',
     issuelength        => 3,
     lengthunit         => 'Null',
@@ -183,6 +186,7 @@ $query = 'INSERT INTO issuingrules (
                 maxissueqty,
                 renewalsallowed,
                 renewalperiod,
+                norenewalbefore,
                 reservesallowed,
                 issuelength,
                 lengthunit,
@@ -198,7 +202,7 @@ $query = 'INSERT INTO issuingrules (
                 reservecharge,
                 chargename,
                 restrictedtype
-                ) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)';
+                ) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)';
 my $sth = $dbh->prepare($query);
 $sth->execute(
     $sampleissuingrule1->{branchcode},
@@ -207,6 +211,7 @@ $sth->execute(
     $sampleissuingrule1->{maxissueqty},
     $sampleissuingrule1->{renewalsallowed},
     $sampleissuingrule1->{renewalperiod},
+    $sampleissuingrule1->{norenewalbefore},
     $sampleissuingrule1->{reservesallowed},
     $sampleissuingrule1->{issuelength},
     $sampleissuingrule1->{lengthunit},
@@ -230,6 +235,7 @@ $sth->execute(
     $sampleissuingrule2->{maxissueqty},
     $sampleissuingrule2->{renewalsallowed},
     $sampleissuingrule2->{renewalperiod},
+    $sampleissuingrule2->{norenewalbefore},
     $sampleissuingrule2->{reservesallowed},
     $sampleissuingrule2->{issuelength},
     $sampleissuingrule2->{lengthunit},
@@ -253,6 +259,7 @@ $sth->execute(
     $sampleissuingrule3->{maxissueqty},
     $sampleissuingrule3->{renewalsallowed},
     $sampleissuingrule3->{renewalperiod},
+    $sampleissuingrule3->{norenewalbefore},
     $sampleissuingrule3->{reservesallowed},
     $sampleissuingrule3->{issuelength},
     $sampleissuingrule3->{lengthunit},
-- 
1.7.10.4