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

(-)a/t/db_dependent/Circulation/CalcFine.t (-5 / +4 lines)
Lines 230-249 subtest 'Recall overdue fines' => sub { Link Here
230
    my $recall = Koha::Recall->new({
230
    my $recall = Koha::Recall->new({
231
        borrowernumber => $patron->{borrowernumber},
231
        borrowernumber => $patron->{borrowernumber},
232
        recalldate => dt_from_string,
232
        recalldate => dt_from_string,
233
        biblionumber => $item->{biblionumber},
233
        biblionumber => $item->biblionumber,
234
        branchcode => $branch->{branchcode},
234
        branchcode => $branch->{branchcode},
235
        status => 'R',
235
        status => 'R',
236
        itemnumber => $item->{itemnumber},
236
        itemnumber => $item->itemnumber,
237
        expirationdate => undef,
237
        expirationdate => undef,
238
        item_level_recall => 1
238
        item_level_recall => 1
239
    })->store;
239
    })->store;
240
    $recall->set_overdue;
240
    $recall->set_overdue;
241
241
242
    my ($amount) = CalcFine( $item, $patron->{categorycode}, $branch->{branchcode}, $start_dt, $end_dt );
242
    my ($amount) = CalcFine( $item->unblessed, $patron->{categorycode}, $branch->{branchcode}, $start_dt, $end_dt );
243
    is( int($amount), 25, 'Use recall fine amount specified in circulation rules' );
243
    is( int($amount), 25, 'Use recall fine amount specified in circulation rules' );
244
244
245
    $recall->set_finished;
245
    $recall->set_finished;
246
    ($amount) = CalcFine( $item, $patron->{categorycode}, $branch->{branchcode}, $start_dt, $end_dt );
246
    ($amount) = CalcFine( $item->unblessed, $patron->{categorycode}, $branch->{branchcode}, $start_dt, $end_dt );
247
    is( int($amount), 5, 'With no recall, use normal fine amount' );
247
    is( int($amount), 5, 'With no recall, use normal fine amount' );
248
248
249
249
250
- 

Return to bug 19532