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

(-)a/t/db_dependent/Circulation.t (-3 / +25 lines)
Lines 693-711 C4::Context->dbh->do("DELETE FROM accountlines"); Link Here
693
        C4::Context->set_preference('OPACFineNoRenewalsBlockAutoRenew','1');
693
        C4::Context->set_preference('OPACFineNoRenewalsBlockAutoRenew','1');
694
        C4::Context->set_preference('OPACFineNoRenewals','10');
694
        C4::Context->set_preference('OPACFineNoRenewals','10');
695
        my $fines_amount = 5;
695
        my $fines_amount = 5;
696
        C4::Accounts::manualinvoice( $renewing_borrowernumber, $item_to_auto_renew->{itemnumber}, "Some fines", 'F', $fines_amount );
696
        my $account = Koha::Account->new({patron_id => $renewing_borrowernumber});
697
        $account->add_debit(
698
            {
699
                amount      => $fines_amount,
700
                type        => 'fine',
701
                item_id     => $item_to_auto_renew->{itemnumber},
702
                description => "Some fines"
703
            }
704
        )->accounttype->('F')->store;
697
        ( $renewokay, $error ) =
705
        ( $renewokay, $error ) =
698
          CanBookBeRenewed( $renewing_borrowernumber, $item_to_auto_renew->{itemnumber} );
706
          CanBookBeRenewed( $renewing_borrowernumber, $item_to_auto_renew->{itemnumber} );
699
        is( $renewokay, 0, 'Do not renew, renewal is automatic' );
707
        is( $renewokay, 0, 'Do not renew, renewal is automatic' );
700
        is( $error, 'auto_renew', 'Can auto renew, OPACFineNoRenewals=10, patron has 5' );
708
        is( $error, 'auto_renew', 'Can auto renew, OPACFineNoRenewals=10, patron has 5' );
701
709
702
        C4::Accounts::manualinvoice( $renewing_borrowernumber, $item_to_auto_renew->{itemnumber}, "Some fines", 'F', $fines_amount );
710
        $account->add_debit(
711
            {
712
                amount      => $fines_amount,
713
                type        => 'fine',
714
                item_id     => $item_to_auto_renew->{itemnumber},
715
                description => "Some fines"
716
            }
717
        )->accounttype->('F')->store;
703
        ( $renewokay, $error ) =
718
        ( $renewokay, $error ) =
704
          CanBookBeRenewed( $renewing_borrowernumber, $item_to_auto_renew->{itemnumber} );
719
          CanBookBeRenewed( $renewing_borrowernumber, $item_to_auto_renew->{itemnumber} );
705
        is( $renewokay, 0, 'Do not renew, renewal is automatic' );
720
        is( $renewokay, 0, 'Do not renew, renewal is automatic' );
706
        is( $error, 'auto_renew', 'Can auto renew, OPACFineNoRenewals=10, patron has 10' );
721
        is( $error, 'auto_renew', 'Can auto renew, OPACFineNoRenewals=10, patron has 10' );
707
722
708
        C4::Accounts::manualinvoice( $renewing_borrowernumber, $item_to_auto_renew->{itemnumber}, "Some fines", 'F', $fines_amount );
723
        $account->add_debit(
724
            {
725
                amount      => $fines_amount,
726
                type        => 'fine',
727
                item_id     => $item_to_auto_renew->{itemnumber},
728
                description => "Some fines"
729
            }
730
        )->accounttype->('F')->store;
709
        ( $renewokay, $error ) =
731
        ( $renewokay, $error ) =
710
          CanBookBeRenewed( $renewing_borrowernumber, $item_to_auto_renew->{itemnumber} );
732
          CanBookBeRenewed( $renewing_borrowernumber, $item_to_auto_renew->{itemnumber} );
711
        is( $renewokay, 0, 'Do not renew, renewal is automatic' );
733
        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