Lines 1963-1978
subtest 'AddReturn | is_overdue' => sub {
Link Here
|
1963 |
is( int($patron->account->balance()), 5, 'AddReturn: pass return_date => overdue' ); |
1963 |
is( int($patron->account->balance()), 5, 'AddReturn: pass return_date => overdue' ); |
1964 |
Koha::Account::Lines->search({ borrowernumber => $patron->borrowernumber })->delete; |
1964 |
Koha::Account::Lines->search({ borrowernumber => $patron->borrowernumber })->delete; |
1965 |
|
1965 |
|
1966 |
# specify dropbox date 5 days before => no overdue |
1966 |
# specify dropbox date 5 days later => overdue, adding exemptfine |
1967 |
AddIssue( $patron->unblessed, $item->{barcode}, $five_days_ago ); # date due was 5d ago |
1967 |
AddIssue( $patron->unblessed, $item->{barcode}, $ten_days_ago ); # date due was 10d ago |
1968 |
AddReturn( $item->{barcode}, $library->{branchcode}, $ten_days_ago ); |
1968 |
AddReturn( $item->{barcode}, $library->{branchcode}, 1, $five_days_ago ); |
1969 |
is( int($patron->account->balance()), 0, 'AddReturn: pass return_date => no overdue' ); |
1969 |
is( int($patron->account->balance()), 0, 'AddReturn: pass exemptfine and return_date => no overdue' ); |
1970 |
Koha::Account::Lines->search({ borrowernumber => $patron->borrowernumber })->delete; |
1970 |
Koha::Account::Lines->search({ borrowernumber => $patron->borrowernumber })->delete; |
1971 |
|
1971 |
|
1972 |
# specify dropbox date 5 days later => overdue, or... not |
1972 |
# specify renewal date one day late, specify return on date due => cancel overdue (bug 22539) |
1973 |
AddIssue( $patron->unblessed, $item->{barcode}, $ten_days_ago ); # date due was 10d ago |
1973 |
AddIssue( $patron->unblessed, $item->{barcode}, $one_day_ago ); # date due was 1d ago |
1974 |
AddReturn( $item->{barcode}, $library->{branchcode}, $five_days_ago ); |
1974 |
AddRenewal( $patron->borrowernumber, $item->{itemnumber}, $library->{branchcode} ); |
1975 |
is( int($patron->account->balance()), 0, 'AddReturn: pass return_date => no overdue in dropbox mode' ); # FIXME? This is weird, the FU fine is created ( _CalculateAndUpdateFine > C4::Overdues::UpdateFine ) then remove later (in _FixOverduesOnReturn). Looks like it is a feature |
1975 |
AddReturn( $item->{barcode}, $library->{branchcode}, undef, $one_day_ago ); |
|
|
1976 |
is( int($patron->account->balance()), 0, 'AddReturn: pass return_date predate renewal => cancel overdue' ); |
1976 |
Koha::Account::Lines->search({ borrowernumber => $patron->borrowernumber })->delete; |
1977 |
Koha::Account::Lines->search({ borrowernumber => $patron->borrowernumber })->delete; |
1977 |
}; |
1978 |
}; |
1978 |
|
1979 |
|
1979 |
- |
|
|