|
Lines 17-23
Link Here
|
| 17 |
|
17 |
|
| 18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
| 19 |
|
19 |
|
| 20 |
use Test::More tests => 55; |
20 |
use Test::More tests => 56; |
|
|
21 |
use Test::MockModule; |
| 21 |
use Data::Dumper; |
22 |
use Data::Dumper; |
| 22 |
use C4::Context; |
23 |
use C4::Context; |
| 23 |
|
24 |
|
|
Lines 290-295
is( Check_Userid( 'tomasito', $new_borrowernumber ), 0,
Link Here
|
| 290 |
is( Check_Userid( C4::Context->config('user'), '' ), 0, |
291 |
is( Check_Userid( C4::Context->config('user'), '' ), 0, |
| 291 |
'Check_Userid should return 0 for the DB user (Bug 12226)'); |
292 |
'Check_Userid should return 0 for the DB user (Bug 12226)'); |
| 292 |
|
293 |
|
|
|
294 |
subtest 'GetMemberAccountBalance' => sub { |
| 295 |
|
| 296 |
plan tests => 6; |
| 297 |
|
| 298 |
my $members_mock = new Test::MockModule('C4::Members'); |
| 299 |
$members_mock->mock( 'GetMemberAccountRecords', sub { |
| 300 |
my @accountlines = ( |
| 301 |
{ amountoutstanding => '7', accounttype => 'Rent' }, |
| 302 |
{ amountoutstanding => '5', accounttype => 'Res' }, |
| 303 |
{ amountoutstanding => '3', accounttype => 'Pay' } ); |
| 304 |
return ( 15, \@accountlines ); |
| 305 |
}); |
| 306 |
|
| 307 |
# do not count holds charges |
| 308 |
C4::Context->set_preference( 'HoldsInNoissuesCharge', '1' ); |
| 309 |
C4::Context->set_preference( 'ManInvInNoissuesCharge', '0' ); |
| 310 |
my ($total, $total_minus_charges, |
| 311 |
$other_charges) = C4::Members::GetMemberAccountBalance(123); |
| 312 |
is( $total, 15 , "Total calculated correctly"); |
| 313 |
is( $total_minus_charges, 15, "Holds charges are not count if HoldsInNoissuesCharge=1"); |
| 314 |
is( $other_charges, 0, "Holds charges are not considered if HoldsInNoissuesCharge=1"); |
| 315 |
|
| 316 |
C4::Context->set_preference( 'HoldsInNoissuesCharge', '0' ); |
| 317 |
($total, $total_minus_charges, |
| 318 |
$other_charges) = C4::Members::GetMemberAccountBalance(123); |
| 319 |
is( $total, 15 , "Total calculated correctly"); |
| 320 |
is( $total_minus_charges, 10, "Holds charges are count if HoldsInNoissuesCharge=0"); |
| 321 |
is( $other_charges, 5, "Holds charges are considered if HoldsInNoissuesCharge=1"); |
| 322 |
|
| 323 |
$dbh->rollback(); |
| 324 |
}; |
| 325 |
|
| 293 |
sub _find_member { |
326 |
sub _find_member { |
| 294 |
my ($resultset) = @_; |
327 |
my ($resultset) = @_; |
| 295 |
my $found = $resultset && grep( { $_->{cardnumber} && $_->{cardnumber} eq $CARDNUMBER } @$resultset ); |
328 |
my $found = $resultset && grep( { $_->{cardnumber} && $_->{cardnumber} eq $CARDNUMBER } @$resultset ); |
| 296 |
- |
|
|