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

(-)a/t/db_dependent/Circulation.t (-3 / +25 lines)
Lines 666-684 my ( $reused_itemnumber_1, $reused_itemnumber_2 ); Link Here
666
        C4::Context->set_preference('OPACFineNoRenewalsBlockAutoRenew','1');
666
        C4::Context->set_preference('OPACFineNoRenewalsBlockAutoRenew','1');
667
        C4::Context->set_preference('OPACFineNoRenewals','10');
667
        C4::Context->set_preference('OPACFineNoRenewals','10');
668
        my $fines_amount = 5;
668
        my $fines_amount = 5;
669
        C4::Accounts::manualinvoice( $renewing_borrowernumber, $item_to_auto_renew->{itemnumber}, "Some fines", 'F', $fines_amount );
669
        my $account = Koha::Account->new({patron_id => $renewing_borrowernumber});
670
        $account->add_debit(
671
            {
672
                amount      => $fines_amount,
673
                type        => 'fine',
674
                item_id     => $item_to_auto_renew->{itemnumber},
675
                description => "Some fines"
676
            }
677
        )->accounttype->('F')->store;
670
        ( $renewokay, $error ) =
678
        ( $renewokay, $error ) =
671
          CanBookBeRenewed( $renewing_borrowernumber, $item_to_auto_renew->{itemnumber} );
679
          CanBookBeRenewed( $renewing_borrowernumber, $item_to_auto_renew->{itemnumber} );
672
        is( $renewokay, 0, 'Do not renew, renewal is automatic' );
680
        is( $renewokay, 0, 'Do not renew, renewal is automatic' );
673
        is( $error, 'auto_renew', 'Can auto renew, OPACFineNoRenewals=10, patron has 5' );
681
        is( $error, 'auto_renew', 'Can auto renew, OPACFineNoRenewals=10, patron has 5' );
674
682
675
        C4::Accounts::manualinvoice( $renewing_borrowernumber, $item_to_auto_renew->{itemnumber}, "Some fines", 'F', $fines_amount );
683
        $account->add_debit(
684
            {
685
                amount      => $fines_amount,
686
                type        => 'fine',
687
                item_id     => $item_to_auto_renew->{itemnumber},
688
                description => "Some fines"
689
            }
690
        )->accounttype->('F')->store;
676
        ( $renewokay, $error ) =
691
        ( $renewokay, $error ) =
677
          CanBookBeRenewed( $renewing_borrowernumber, $item_to_auto_renew->{itemnumber} );
692
          CanBookBeRenewed( $renewing_borrowernumber, $item_to_auto_renew->{itemnumber} );
678
        is( $renewokay, 0, 'Do not renew, renewal is automatic' );
693
        is( $renewokay, 0, 'Do not renew, renewal is automatic' );
679
        is( $error, 'auto_renew', 'Can auto renew, OPACFineNoRenewals=10, patron has 10' );
694
        is( $error, 'auto_renew', 'Can auto renew, OPACFineNoRenewals=10, patron has 10' );
680
695
681
        C4::Accounts::manualinvoice( $renewing_borrowernumber, $item_to_auto_renew->{itemnumber}, "Some fines", 'F', $fines_amount );
696
        $account->add_debit(
697
            {
698
                amount      => $fines_amount,
699
                type        => 'fine',
700
                item_id     => $item_to_auto_renew->{itemnumber},
701
                description => "Some fines"
702
            }
703
        )->accounttype->('F')->store;
682
        ( $renewokay, $error ) =
704
        ( $renewokay, $error ) =
683
          CanBookBeRenewed( $renewing_borrowernumber, $item_to_auto_renew->{itemnumber} );
705
          CanBookBeRenewed( $renewing_borrowernumber, $item_to_auto_renew->{itemnumber} );
684
        is( $renewokay, 0, 'Do not renew, renewal is automatic' );
706
        is( $renewokay, 0, 'Do not renew, renewal is automatic' );
(-)a/t/db_dependent/Circulation/NoIssuesChargeGuarantees.t (-2 / +3 lines)
Lines 22-29 use Test::More tests => 6; Link Here
22
use t::lib::TestBuilder;
22
use t::lib::TestBuilder;
23
use t::lib::Mocks;
23
use t::lib::Mocks;
24
24
25
use C4::Accounts qw( manualinvoice );
26
use C4::Circulation qw( CanBookBeIssued );
25
use C4::Circulation qw( CanBookBeIssued );
26
use Koha::Account;
27
use Koha::Account::Lines;
27
use Koha::Account::Lines;
28
use Koha::Account::Offsets;
28
use Koha::Account::Offsets;
29
29
Lines 68-74 t::lib::Mocks::mock_preference( 'AllowFineOverride', '' ); Link Here
68
my ( $issuingimpossible, $needsconfirmation ) = CanBookBeIssued( $patron, $item->{barcode} );
68
my ( $issuingimpossible, $needsconfirmation ) = CanBookBeIssued( $patron, $item->{barcode} );
69
is( $issuingimpossible->{DEBT_GUARANTEES}, undef, "Patron can check out item" );
69
is( $issuingimpossible->{DEBT_GUARANTEES}, undef, "Patron can check out item" );
70
70
71
manualinvoice( $guarantee->{borrowernumber}, undef, undef, 'L', 10.00 );
71
my $account = Koha::Account->new( { patron_id => $guarantee->{borrowernumber} } );
72
$account->add_debit({ amount => 10.00, type => 'lost_item' });
72
( $issuingimpossible, $needsconfirmation ) = CanBookBeIssued( $patron, $item->{barcode} );
73
( $issuingimpossible, $needsconfirmation ) = CanBookBeIssued( $patron, $item->{barcode} );
73
is( $issuingimpossible->{DEBT_GUARANTEES} + 0, '10.00' + 0, "Patron cannot check out item due to debt for guarantee" );
74
is( $issuingimpossible->{DEBT_GUARANTEES} + 0, '10.00' + 0, "Patron cannot check out item due to debt for guarantee" );
74
75
(-)a/t/db_dependent/api/v1/patrons_accounts.t (-2 lines)
Lines 25-31 use Test::Warn; Link Here
25
use t::lib::TestBuilder;
25
use t::lib::TestBuilder;
26
use t::lib::Mocks;
26
use t::lib::Mocks;
27
27
28
use C4::Accounts qw(manualinvoice);
29
use C4::Auth;
28
use C4::Auth;
30
use Koha::Account::Line;
29
use Koha::Account::Line;
31
30
32
- 

Return to bug 21756