View | Details | Raw Unified | Return to bug 12205
Collapse All | Expand All

(-)a/t/db_dependent/Members.t (-2 / +34 lines)
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
- 

Return to bug 12205