Lines 18-24
Link Here
|
18 |
|
18 |
|
19 |
use Modern::Perl; |
19 |
use Modern::Perl; |
20 |
|
20 |
|
21 |
use Test::More tests => 36; |
21 |
use Test::More tests => 33; |
22 |
use Test::MockModule; |
22 |
use Test::MockModule; |
23 |
use Test::Warn; |
23 |
use Test::Warn; |
24 |
|
24 |
|
Lines 71-98
$context->mock( 'userenv', sub {
Link Here
|
71 |
}); |
71 |
}); |
72 |
my $userenv_branchcode = $branchcode; |
72 |
my $userenv_branchcode = $branchcode; |
73 |
|
73 |
|
74 |
# Test chargelostitem |
74 |
# Test manualinvoice |
75 |
my $itemtype = $builder->build( { source => 'Itemtype' } ); |
75 |
my $itemtype = $builder->build( { source => 'Itemtype' } ); |
76 |
my $item = $builder->build( { source => 'Item', value => { itype => $itemtype->{itemtype} } } ); |
76 |
my $item = $builder->build( { source => 'Item', value => { itype => $itemtype->{itemtype} } } ); |
77 |
my $patron = $builder->build( { source => 'Borrower' } ); |
77 |
my $patron = $builder->build( { source => 'Borrower' } ); |
78 |
my $amount = '5.000000'; |
78 |
my $amount = '5.000000'; |
79 |
my $description = "Test fee!"; |
79 |
my $description = "Test fee!"; |
80 |
chargelostitem( $patron->{borrowernumber}, $item->{itemnumber}, $amount, $description ); |
|
|
81 |
my ($accountline) = Koha::Account::Lines->search( |
82 |
{ |
83 |
borrowernumber => $patron->{borrowernumber} |
84 |
} |
85 |
); |
86 |
is( $accountline->amount, $amount, 'Accountline amount set correctly for chargelostitem' ); |
87 |
is( $accountline->description, $description, 'Accountline description set correctly for chargelostitem' ); |
88 |
is( $accountline->branchcode, $branchcode, 'Accountline branchcode set correctly for chargelostitem' ); |
89 |
$dbh->do(q|DELETE FROM accountlines|); |
90 |
|
91 |
# Test manualinvoice, reuse some of the vars from testing chargelostitem |
92 |
my $type = 'L'; |
80 |
my $type = 'L'; |
93 |
my $note = 'Test note!'; |
81 |
my $note = 'Test note!'; |
94 |
manualinvoice( $patron->{borrowernumber}, $item->{itemnumber}, $description, $type, $amount, $note ); |
82 |
manualinvoice( $patron->{borrowernumber}, $item->{itemnumber}, $description, $type, $amount, $note ); |
95 |
($accountline) = Koha::Account::Lines->search( |
83 |
my ($accountline) = Koha::Account::Lines->search( |
96 |
{ |
84 |
{ |
97 |
borrowernumber => $patron->{borrowernumber} |
85 |
borrowernumber => $patron->{borrowernumber} |
98 |
} |
86 |
} |
Lines 524-534
subtest 'balance' => sub {
Link Here
|
524 |
$patron->delete; |
512 |
$patron->delete; |
525 |
}; |
513 |
}; |
526 |
|
514 |
|
527 |
subtest "Koha::Account::chargelostitem tests" => sub { |
515 |
subtest "C4::Accounts::chargelostitem tests" => sub { |
528 |
plan tests => 40; |
516 |
plan tests => 3; |
529 |
|
517 |
|
530 |
my $lostfine; |
518 |
my $branch = $builder->build( { source => 'Branch' } ); |
531 |
my $procfee; |
519 |
my $branchcode = $branch->{branchcode}; |
|
|
520 |
|
521 |
my $staff = $builder->build( { source => 'Borrower' } ); |
522 |
my $staff_id = $staff->{borrowernumber}; |
523 |
|
524 |
my $module = Test::MockModule->new('C4::Context'); |
525 |
$module->mock( |
526 |
'userenv', |
527 |
sub { |
528 |
return { |
529 |
flags => 1, |
530 |
number => $staff_id, |
531 |
branch => $branchcode, |
532 |
}; |
533 |
} |
534 |
); |
532 |
|
535 |
|
533 |
my $itype_no_replace_no_fee = $builder->build({ source => 'Itemtype', value => { |
536 |
my $itype_no_replace_no_fee = $builder->build({ source => 'Itemtype', value => { |
534 |
rentalcharge => 0, |
537 |
rentalcharge => 0, |
Lines 561-680
subtest "Koha::Account::chargelostitem tests" => sub {
Link Here
|
561 |
my $cli_issue_id_3 = $builder->build({ source => 'Issue', value => { borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3 } })->{issue_id}; |
564 |
my $cli_issue_id_3 = $builder->build({ source => 'Issue', value => { borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3 } })->{issue_id}; |
562 |
my $cli_issue_id_4 = $builder->build({ source => 'Issue', value => { borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4 } })->{issue_id}; |
565 |
my $cli_issue_id_4 = $builder->build({ source => 'Issue', value => { borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4 } })->{issue_id}; |
563 |
|
566 |
|
564 |
my $duck = Koha::Items->find({itemnumber=>$cli_itemnumber1}); |
567 |
my $lostfine; |
565 |
|
568 |
my $procfee; |
566 |
t::lib::Mocks::mock_preference('item-level_itypes', '1'); |
569 |
|
567 |
t::lib::Mocks::mock_preference('useDefaultReplacementCost', '0'); |
570 |
subtest "fee application tests" => sub { |
568 |
|
571 |
plan tests => 40; |
569 |
C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber1, 0, "Perdedor"); |
572 |
|
570 |
$lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'L' }); |
573 |
t::lib::Mocks::mock_preference('item-level_itypes', '1'); |
571 |
$procfee = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'PF' }); |
574 |
t::lib::Mocks::mock_preference('useDefaultReplacementCost', '0'); |
572 |
ok( !$lostfine, "No lost fine if no replacementcost or default when pref off"); |
575 |
|
573 |
ok( !$procfee, "No processing fee if no processing fee"); |
576 |
C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber1, 0, "Perdedor"); |
574 |
C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber1, 6.12, "Perdedor"); |
577 |
$lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'L' }); |
575 |
$lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'L' }); |
578 |
$procfee = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'PF' }); |
576 |
$procfee = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'PF' }); |
579 |
ok( !$lostfine, "No lost fine if no replacementcost or default when pref off"); |
577 |
ok( $lostfine->amount == 6.12, "Lost fine equals replacementcost when pref off and no default set"); |
580 |
ok( !$procfee, "No processing fee if no processing fee"); |
578 |
ok( !$procfee, "No processing fee if no processing fee"); |
581 |
C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber1, 6.12, "Perdedor"); |
579 |
$lostfine->delete(); |
582 |
$lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'L' }); |
580 |
|
583 |
$procfee = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'PF' }); |
581 |
C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber2, 0, "Perdedor"); |
584 |
ok( $lostfine->amount == 6.12, "Lost fine equals replacementcost when pref off and no default set"); |
582 |
$lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'L' }); |
585 |
ok( !$procfee, "No processing fee if no processing fee"); |
583 |
$procfee = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'PF' }); |
586 |
$lostfine->delete(); |
584 |
ok( !$lostfine, "No lost fine if no replacementcost but default set when pref off"); |
587 |
|
585 |
ok( !$procfee, "No processing fee if no processing fee"); |
588 |
C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber2, 0, "Perdedor"); |
586 |
C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber2, 6.12, "Perdedor"); |
589 |
$lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'L' }); |
587 |
$lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'L' }); |
590 |
$procfee = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'PF' }); |
588 |
$procfee = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'PF' }); |
591 |
ok( !$lostfine, "No lost fine if no replacementcost but default set when pref off"); |
589 |
ok( $lostfine->amount == 6.12 , "Lost fine equals replacementcost when pref off and default set"); |
592 |
ok( !$procfee, "No processing fee if no processing fee"); |
590 |
ok( !$procfee, "No processing fee if no processing fee"); |
593 |
C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber2, 6.12, "Perdedor"); |
591 |
$lostfine->delete(); |
594 |
$lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'L' }); |
592 |
|
595 |
$procfee = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'PF' }); |
593 |
C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber3, 0, "Perdedor"); |
596 |
ok( $lostfine->amount == 6.12 , "Lost fine equals replacementcost when pref off and default set"); |
594 |
$lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'L' }); |
597 |
ok( !$procfee, "No processing fee if no processing fee"); |
595 |
$procfee = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'PF' }); |
598 |
$lostfine->delete(); |
596 |
ok( !$lostfine, "No lost fine if no replacementcost and no default set when pref off"); |
599 |
|
597 |
ok( $procfee->amount == 8.16, "Processing fee if processing fee"); |
600 |
C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber3, 0, "Perdedor"); |
598 |
is( $procfee->issue_id, $cli_issue_id_3, "Processing fee issue id is correct" ); |
601 |
$lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'L' }); |
599 |
$procfee->delete(); |
602 |
$procfee = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'PF' }); |
600 |
C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber3, 6.12, "Perdedor"); |
603 |
ok( !$lostfine, "No lost fine if no replacementcost and no default set when pref off"); |
601 |
$lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'L' }); |
604 |
ok( $procfee->amount == 8.16, "Processing fee if processing fee"); |
602 |
$procfee = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'PF' }); |
605 |
is( $procfee->issue_id, $cli_issue_id_3, "Processing fee issue id is correct" ); |
603 |
ok( $lostfine->amount == 6.12 , "Lost fine equals replacementcost when pref off and no default set"); |
606 |
$procfee->delete(); |
604 |
ok( $procfee->amount == 8.16, "Processing fee if processing fee"); |
607 |
C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber3, 6.12, "Perdedor"); |
605 |
is( $procfee->issue_id, $cli_issue_id_3, "Processing fee issue id is correct" ); |
608 |
$lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'L' }); |
606 |
$lostfine->delete(); |
609 |
$procfee = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'PF' }); |
607 |
$procfee->delete(); |
610 |
ok( $lostfine->amount == 6.12 , "Lost fine equals replacementcost when pref off and no default set"); |
608 |
|
611 |
ok( $procfee->amount == 8.16, "Processing fee if processing fee"); |
609 |
C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber4, 0, "Perdedor"); |
612 |
is( $procfee->issue_id, $cli_issue_id_3, "Processing fee issue id is correct" ); |
610 |
$lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'L' }); |
613 |
$lostfine->delete(); |
611 |
$procfee = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'PF' }); |
614 |
$procfee->delete(); |
612 |
ok( !$lostfine, "No lost fine if no replacementcost but default set when pref off"); |
615 |
|
613 |
ok( $procfee->amount == 2.04, "Processing fee if processing fee"); |
616 |
C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber4, 0, "Perdedor"); |
614 |
is( $procfee->issue_id, $cli_issue_id_4, "Processing fee issue id is correct" ); |
617 |
$lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'L' }); |
615 |
$procfee->delete(); |
618 |
$procfee = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'PF' }); |
616 |
C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber4, 6.12, "Perdedor"); |
619 |
ok( !$lostfine, "No lost fine if no replacementcost but default set when pref off"); |
617 |
$lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'L' }); |
620 |
ok( $procfee->amount == 2.04, "Processing fee if processing fee"); |
618 |
$procfee = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'PF' }); |
621 |
is( $procfee->issue_id, $cli_issue_id_4, "Processing fee issue id is correct" ); |
619 |
ok( $lostfine->amount == 6.12 , "Lost fine equals replacementcost when pref off and default set"); |
622 |
$procfee->delete(); |
620 |
ok( $procfee->amount == 2.04, "Processing fee if processing fee"); |
623 |
C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber4, 6.12, "Perdedor"); |
621 |
is( $procfee->issue_id, $cli_issue_id_4, "Processing fee issue id is correct" ); |
624 |
$lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'L' }); |
622 |
$lostfine->delete(); |
625 |
$procfee = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'PF' }); |
623 |
$procfee->delete(); |
626 |
ok( $lostfine->amount == 6.12 , "Lost fine equals replacementcost when pref off and default set"); |
624 |
|
627 |
ok( $procfee->amount == 2.04, "Processing fee if processing fee"); |
625 |
t::lib::Mocks::mock_preference('useDefaultReplacementCost', '1'); |
628 |
is( $procfee->issue_id, $cli_issue_id_4, "Processing fee issue id is correct" ); |
626 |
|
629 |
$lostfine->delete(); |
627 |
C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber1, 0, "Perdedor"); |
630 |
$procfee->delete(); |
628 |
$lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'L' }); |
631 |
|
629 |
$procfee = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'PF' }); |
632 |
t::lib::Mocks::mock_preference('useDefaultReplacementCost', '1'); |
630 |
ok( !$lostfine, "No lost fine if no replacementcost or default when pref on"); |
633 |
|
631 |
ok( !$procfee, "No processing fee if no processing fee"); |
634 |
C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber1, 0, "Perdedor"); |
632 |
C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber1, 6.12, "Perdedor"); |
635 |
$lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'L' }); |
633 |
$lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'L' }); |
636 |
$procfee = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'PF' }); |
634 |
$procfee = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'PF' }); |
637 |
ok( !$lostfine, "No lost fine if no replacementcost or default when pref on"); |
635 |
is( $lostfine->amount, "6.120000", "Lost fine equals replacementcost when pref on and no default set"); |
638 |
ok( !$procfee, "No processing fee if no processing fee"); |
636 |
ok( !$procfee, "No processing fee if no processing fee"); |
639 |
C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber1, 6.12, "Perdedor"); |
637 |
|
640 |
$lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'L' }); |
638 |
C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber2, 0, "Perdedor"); |
641 |
$procfee = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'PF' }); |
639 |
$lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'L' }); |
642 |
is( $lostfine->amount, "6.120000", "Lost fine equals replacementcost when pref on and no default set"); |
640 |
$procfee = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'PF' }); |
643 |
ok( !$procfee, "No processing fee if no processing fee"); |
641 |
is( $lostfine->amount(), "16.320000", "Lost fine is default if no replacementcost but default set when pref on"); |
644 |
|
642 |
ok( !$procfee, "No processing fee if no processing fee"); |
645 |
C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber2, 0, "Perdedor"); |
643 |
$lostfine->delete(); |
646 |
$lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'L' }); |
644 |
C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber2, 6.12, "Perdedor"); |
647 |
$procfee = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'PF' }); |
645 |
$lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'L' }); |
648 |
is( $lostfine->amount(), "16.320000", "Lost fine is default if no replacementcost but default set when pref on"); |
646 |
$procfee = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'PF' }); |
649 |
ok( !$procfee, "No processing fee if no processing fee"); |
647 |
is( $lostfine->amount, "6.120000" , "Lost fine equals replacementcost when pref on and default set"); |
650 |
$lostfine->delete(); |
648 |
ok( !$procfee, "No processing fee if no processing fee"); |
651 |
C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber2, 6.12, "Perdedor"); |
649 |
|
652 |
$lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'L' }); |
650 |
C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber3, 0, "Perdedor"); |
653 |
$procfee = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'PF' }); |
651 |
$lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'L' }); |
654 |
is( $lostfine->amount, "6.120000" , "Lost fine equals replacementcost when pref on and default set"); |
652 |
$procfee = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'PF' }); |
655 |
ok( !$procfee, "No processing fee if no processing fee"); |
653 |
ok( !$lostfine, "No lost fine if no replacementcost and default not set when pref on"); |
656 |
|
654 |
is( $procfee->amount, "8.160000", "Processing fee if processing fee"); |
657 |
C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber3, 0, "Perdedor"); |
655 |
is( $procfee->issue_id, $cli_issue_id_3, "Processing fee issue id is correct" ); |
658 |
$lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'L' }); |
656 |
$procfee->delete(); |
659 |
$procfee = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'PF' }); |
657 |
C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber3, 6.12, "Perdedor"); |
660 |
ok( !$lostfine, "No lost fine if no replacementcost and default not set when pref on"); |
658 |
$lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'L' }); |
661 |
is( $procfee->amount, "8.160000", "Processing fee if processing fee"); |
659 |
$procfee = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'PF' }); |
662 |
is( $procfee->issue_id, $cli_issue_id_3, "Processing fee issue id is correct" ); |
660 |
is( $lostfine->amount, "6.120000", "Lost fine equals replacementcost when pref on and no default set"); |
663 |
$procfee->delete(); |
661 |
is( $procfee->amount, "8.160000", "Processing fee if processing fee"); |
664 |
C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber3, 6.12, "Perdedor"); |
662 |
is( $procfee->issue_id, $cli_issue_id_3, "Processing fee issue id is correct" ); |
665 |
$lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'L' }); |
663 |
|
666 |
$procfee = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'PF' }); |
664 |
C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber4, 0, "Perdedor"); |
667 |
is( $lostfine->amount, "6.120000", "Lost fine equals replacementcost when pref on and no default set"); |
665 |
$lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'L' }); |
668 |
is( $procfee->amount, "8.160000", "Processing fee if processing fee"); |
666 |
$procfee = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'PF' }); |
669 |
is( $procfee->issue_id, $cli_issue_id_3, "Processing fee issue id is correct" ); |
667 |
is( $lostfine->amount, "4.080000", "Lost fine is default if no replacementcost but default set when pref on"); |
670 |
|
668 |
is( $procfee->amount, "2.040000", "Processing fee if processing fee"); |
671 |
C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber4, 0, "Perdedor"); |
669 |
is( $procfee->issue_id, $cli_issue_id_4, "Processing fee issue id is correct" ); |
672 |
$lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'L' }); |
670 |
$lostfine->delete(); |
673 |
$procfee = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'PF' }); |
671 |
$procfee->delete(); |
674 |
is( $lostfine->amount, "4.080000", "Lost fine is default if no replacementcost but default set when pref on"); |
672 |
C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber4, 6.12, "Perdedor"); |
675 |
is( $procfee->amount, "2.040000", "Processing fee if processing fee"); |
673 |
$lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'L' }); |
676 |
is( $procfee->issue_id, $cli_issue_id_4, "Processing fee issue id is correct" ); |
674 |
$procfee = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'PF' }); |
677 |
$lostfine->delete(); |
675 |
is( $lostfine->amount, "6.120000", "Lost fine equals replacementcost when pref on and default set"); |
678 |
$procfee->delete(); |
676 |
is( $procfee->amount, "2.040000", "Processing fee if processing fee"); |
679 |
C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber4, 6.12, "Perdedor"); |
677 |
is( $procfee->issue_id, $cli_issue_id_4, "Processing fee issue id is correct" ); |
680 |
$lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'L' }); |
|
|
681 |
$procfee = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'PF' }); |
682 |
is( $lostfine->amount, "6.120000", "Lost fine equals replacementcost when pref on and default set"); |
683 |
is( $procfee->amount, "2.040000", "Processing fee if processing fee"); |
684 |
is( $procfee->issue_id, $cli_issue_id_4, "Processing fee issue id is correct" ); |
685 |
$lostfine->delete(); |
686 |
$procfee->delete(); |
687 |
}; |
688 |
|
689 |
subtest "basic fields tests" => sub { |
690 |
plan tests => 12; |
691 |
|
692 |
t::lib::Mocks::mock_preference('ProcessingFeeNote', 'Test Note'); |
693 |
C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber4, '1.99', "Perdedor"); |
694 |
|
695 |
# Lost Item Fee |
696 |
$lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'L' }); |
697 |
ok($lostfine, "Lost fine created"); |
698 |
is($lostfine->manager_id, $staff_id, "Lost fine manager_id set correctly"); |
699 |
is($lostfine->issue_id, $cli_issue_id_4, "Lost fine issue_id set correctly"); |
700 |
is($lostfine->description, "Perdedor", "Lost fine issue_id set correctly"); |
701 |
is($lostfine->note, '', "Lost fine does not contain a note"); |
702 |
is($lostfine->branchcode, $branchcode, "Lost fine branchcode set correctly"); |
703 |
|
704 |
# Processing Fee |
705 |
$procfee = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'PF' }); |
706 |
ok($procfee, "Processing fee created"); |
707 |
is($procfee->manager_id, $staff_id, "Processing fee manager_id set correctly"); |
708 |
is($procfee->issue_id, $cli_issue_id_4, "Processing fee issue_id set correctly"); |
709 |
is($procfee->description, "Perdedor", "Processing fee issue_id set correctly"); |
710 |
is($procfee->note, C4::Context->preference("ProcessingFeeNote"), "Processing fee contains note matching ProcessingFeeNote"); |
711 |
is($procfee->branchcode, $branchcode, "Processing fee branchcode set correctly"); |
712 |
$lostfine->delete(); |
713 |
$procfee->delete(); |
714 |
}; |
715 |
|
716 |
subtest "FinesLog tests" => sub { |
717 |
plan tests => 2; |
718 |
|
719 |
my $action_logs = $schema->resultset('ActionLog')->search()->count; |
720 |
|
721 |
t::lib::Mocks::mock_preference( 'FinesLog', 0 ); |
722 |
C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber4, 0, "Perdedor"); |
723 |
$lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'L' }); |
724 |
$procfee = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'PF' }); |
725 |
is( $schema->resultset('ActionLog')->count(), $action_logs + 0, 'No logs were added' ); |
726 |
$lostfine->delete(); |
727 |
$procfee->delete(); |
728 |
|
729 |
t::lib::Mocks::mock_preference( 'FinesLog', 1 ); |
730 |
C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber4, 0, "Perdedor"); |
731 |
$lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'L' }); |
732 |
$procfee = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'PF' }); |
733 |
is( $schema->resultset('ActionLog')->count(), $action_logs + 2, 'Logs were added' ); |
734 |
$lostfine->delete(); |
735 |
$procfee->delete(); |
736 |
}; |
678 |
|
737 |
|
679 |
# Cleanup - this must be replaced with a transaction per subtest |
738 |
# Cleanup - this must be replaced with a transaction per subtest |
680 |
Koha::Patrons->find($cli_borrowernumber)->checkouts->delete; |
739 |
Koha::Patrons->find($cli_borrowernumber)->checkouts->delete; |