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 |
- |
|
|