|
Lines 19-25
Link Here
|
| 19 |
use strict; |
19 |
use strict; |
| 20 |
use warnings; |
20 |
use warnings; |
| 21 |
|
21 |
|
| 22 |
use Test::More tests => 15; |
22 |
use Test::More tests => 25; |
| 23 |
use Test::Warn; |
23 |
use Test::Warn; |
| 24 |
|
24 |
|
| 25 |
BEGIN { |
25 |
BEGIN { |
|
Lines 43-49
can_ok( 'C4::Accounts',
Link Here
|
| 43 |
ReversePayment |
43 |
ReversePayment |
| 44 |
recordpayment_selectaccts |
44 |
recordpayment_selectaccts |
| 45 |
makepartialpayment |
45 |
makepartialpayment |
| 46 |
WriteOffFee ) |
46 |
WriteOffFee |
|
|
47 |
purge_zero_balance_fees |
| 48 |
) |
| 47 |
); |
49 |
); |
| 48 |
|
50 |
|
| 49 |
my $dbh = C4::Context->dbh; |
51 |
my $dbh = C4::Context->dbh; |
|
Lines 170-176
$sth->execute($borrower->borrowernumber);
Link Here
|
| 170 |
$note = $sth->fetchrow_array; |
172 |
$note = $sth->fetchrow_array; |
| 171 |
is($note,'$200.00 payment note', '$200.00 payment note is registered'); |
173 |
is($note,'$200.00 payment note', '$200.00 payment note is registered'); |
| 172 |
|
174 |
|
|
|
175 |
# Testing purge_zero_balance_fees |
| 176 |
|
| 177 |
# The 3rd value in the insert is 'days ago' -- |
| 178 |
# 0 => today |
| 179 |
# 1 => yesterday |
| 180 |
# etc. |
| 181 |
|
| 182 |
$sth = $dbh->prepare( |
| 183 |
"INSERT INTO accountlines ( |
| 184 |
borrowernumber, |
| 185 |
amountoutstanding, |
| 186 |
date, |
| 187 |
description |
| 188 |
) |
| 189 |
VALUES ( ?, ?, (select date_sub(CURRENT_DATE, INTERVAL ? DAY) ), ? )" |
| 190 |
); |
| 191 |
|
| 192 |
my $days = 5; |
| 193 |
|
| 194 |
my @test_data = ( |
| 195 |
{ amount => 0 , days_ago => 0 , description =>'purge_zero_balance_fees should not delete 0 balance fees with date today' , delete => 0 } , |
| 196 |
{ amount => 0 , days_ago => $days - 1 , description =>'purge_zero_balance_fees should not delete 0 balance fees with date before threshold day' , delete => 0 } , |
| 197 |
{ amount => 0 , days_ago => $days , description =>'purge_zero_balance_fees should not delete 0 balance fees with date on threshold day' , delete => 0 } , |
| 198 |
{ amount => 0 , days_ago => $days + 1 , description =>'purge_zero_balance_fees should delete 0 balance fees with date after threshold day' , delete => 1 } , |
| 199 |
{ amount => 5 , days_ago => $days - 1 , description =>'purge_zero_balance_fees should not delete fees with postive amout owed before threshold day' , delete => 0 } , |
| 200 |
{ amount => 5 , days_ago => $days , description =>'purge_zero_balance_fees should not delete fees with postive amout owed on threshold day' , delete => 0 } , |
| 201 |
{ amount => 5 , days_ago => $days + 1 , description =>'purge_zero_balance_fees should not delete fees with postive amout owed after threshold day' , delete => 0 } , |
| 202 |
{ amount => -5 , days_ago => $days - 1 , description =>'purge_zero_balance_fees should not delete fees with negative amout owed before threshold day' , delete => 0 } , |
| 203 |
{ amount => -5 , days_ago => $days , description =>'purge_zero_balance_fees should not delete fees with negative amout owed on threshold day' , delete => 0 } , |
| 204 |
{ amount => -5 , days_ago => $days + 1 , description =>'purge_zero_balance_fees should not delete fees with negative amout owed after threshold day' , delete => 0 } |
| 205 |
); |
| 206 |
|
| 207 |
for my $data ( @test_data ) { |
| 208 |
$sth->execute($borrower->borrowernumber, $data->{amount}, $data->{days_ago}, $data->{description}); |
| 209 |
} |
| 210 |
|
| 211 |
purge_zero_balance_fees( $days ); |
| 173 |
|
212 |
|
|
|
213 |
$sth = $dbh->prepare( |
| 214 |
"select count(*) = 0 as deleted |
| 215 |
from accountlines |
| 216 |
where description = ?" |
| 217 |
); |
| 218 |
|
| 219 |
# |
| 220 |
sub is_delete_correct { |
| 221 |
my $should_delete = shift; |
| 222 |
my $description = shift; |
| 223 |
$sth->execute( $description ); |
| 224 |
my $test = $sth->fetchrow_hashref(); |
| 225 |
is( $test->{deleted}, $should_delete, $description ) |
| 226 |
} |
| 227 |
|
| 228 |
for my $data (@test_data) { |
| 229 |
is_delete_correct( $data->{delete}, $data->{description}); |
| 230 |
} |
| 174 |
|
231 |
|
| 175 |
$dbh->rollback; |
232 |
$dbh->rollback; |
| 176 |
|
233 |
|
|
Lines 180-183
$dbh->rollback;
Link Here
|
| 180 |
# C4::Context->userenv |
237 |
# C4::Context->userenv |
| 181 |
sub Mock_userenv { |
238 |
sub Mock_userenv { |
| 182 |
return $userenv; |
239 |
return $userenv; |
| 183 |
} |
240 |
} |
| 184 |
- |
|
|