Bug 12596 - Unit Test
authorKyle M Hall <kyle@bywatersolutions.com>
Thu, 17 Jul 2014 16:17:48 +0000 (12:17 -0400)
committerTomas Cohen Arazi <tomascohen@gmail.com>
Fri, 25 Jul 2014 12:38:31 +0000 (09:38 -0300)
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de>
Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
t/db_dependent/Circulation.t

index 6b25208..180c86f 100755 (executable)
@@ -8,8 +8,9 @@ use C4::Branch;
 use C4::Items;
 use C4::Members;
 use C4::Reserves;
+use Koha::DateUtils;
 
-use Test::More tests => 48;
+use Test::More tests => 49;
 
 BEGIN {
     use_ok('C4::Circulation');
@@ -359,6 +360,12 @@ C4::Context->dbh->do("DELETE FROM accountlines");
     );
 
     ok( $total_due == 15, 'Borrower only charged fine with both WhenLostForgiveFine and WhenLostChargeReplacementFee disabled' );
+
+    my $now = dt_from_string();
+    my $future = dt_from_string();
+    $future->add( days => 7 );
+    my $units = C4::Overdues::_get_chargeable_units('days', $future, $now, 'MPL');
+    ok( $units == 0, '_get_chargeable_units returns 0 for items not past due date' );
 }
 
 {