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

(-)a/t/db_dependent/Circulation.t (-3 / +5 lines)
Lines 19-24 use Modern::Perl; Link Here
19
19
20
use Test::More tests => 118;
20
use Test::More tests => 118;
21
21
22
use Data::Dumper;
22
use DateTime;
23
use DateTime;
23
use POSIX qw( floor );
24
use POSIX qw( floor );
24
use t::lib::Mocks;
25
use t::lib::Mocks;
Lines 1741-1747 subtest 'AddReturn + CumulativeRestrictionPeriods' => sub { Link Here
1741
};
1742
};
1742
1743
1743
subtest 'AddReturn + suspension_chargeperiod' => sub {
1744
subtest 'AddReturn + suspension_chargeperiod' => sub {
1744
    plan tests => 14;
1745
    plan tests => 21;
1745
1746
1746
    my $library = $builder->build( { source => 'Branch' } );
1747
    my $library = $builder->build( { source => 'Branch' } );
1747
    my $patron  = $builder->build( { source => 'Borrower', value => { categorycode => $patron_category->{categorycode} } } );
1748
    my $patron  = $builder->build( { source => 'Borrower', value => { categorycode => $patron_category->{categorycode} } } );
Lines 2417-2424 sub test_debarment_on_checkout { Link Here
2417
    my $line_number = $caller[2];
2418
    my $line_number = $caller[2];
2418
    AddIssue( $patron, $item->{barcode}, $due_date );
2419
    AddIssue( $patron, $item->{barcode}, $due_date );
2419
2420
2420
    AddReturn( $item->{barcode}, $library->{branchcode},
2421
    my ( undef, $message ) = AddReturn( $item->{barcode}, $library->{branchcode},
2421
        undef, undef, $return_date );
2422
        undef, undef, $return_date );
2423
    is( $message->{WasReturned} && exists $message->{Debarred}, 1, 'AddReturn must have debarred the patron' )
2424
        or diag('AddReturn returned message ' . Dumper $message );
2422
    my $debarments = Koha::Patron::Debarments::GetDebarments(
2425
    my $debarments = Koha::Patron::Debarments::GetDebarments(
2423
        { borrowernumber => $patron->{borrowernumber}, type => 'SUSPENSION' } );
2426
        { borrowernumber => $patron->{borrowernumber}, type => 'SUSPENSION' } );
2424
    is( scalar(@$debarments), 1, 'Test at line ' . $line_number );
2427
    is( scalar(@$debarments), 1, 'Test at line ' . $line_number );
2425
- 

Return to bug 21213