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

(-)a/t/db_dependent/Borrower_Debarments.t (-2 / +12 lines)
Lines 5-11 use Modern::Perl; Link Here
5
use C4::Context;
5
use C4::Context;
6
use C4::Members;
6
use C4::Members;
7
7
8
use Test::More tests => 21;
8
use Test::More tests => 22;
9
9
10
use_ok('Koha::Borrower::Debarments');
10
use_ok('Koha::Borrower::Debarments');
11
11
Lines 86-91 ok( @$debarments == 1, "GetDebarments returns 1 OVERDUES debarment after running Link Here
86
ok( $debarments->[0]->{'expiration'} eq '9999-11-09', "AddOverduesDebarment updated OVERDUES debarment correctly" );
86
ok( $debarments->[0]->{'expiration'} eq '9999-11-09', "AddOverduesDebarment updated OVERDUES debarment correctly" );
87
87
88
88
89
DelUniqueDebarment({
90
    borrowernumber => $borrowernumber,
91
    type => 'OVERDUES',
92
});
93
$debarments = GetDebarments({
94
    borrowernumber => $borrowernumber,
95
    type => 'OVERDUES',
96
});
97
is( @$debarments, 0, "DelUniqueDebarment functions correctly" );
98
99
89
$debarments = GetDebarments({ borrowernumber => $borrowernumber });
100
$debarments = GetDebarments({ borrowernumber => $borrowernumber });
90
foreach my $d ( @$debarments ) {
101
foreach my $d ( @$debarments ) {
91
    DelDebarment( $d->{'borrower_debarment_id'} );
102
    DelDebarment( $d->{'borrower_debarment_id'} );
92
- 

Return to bug 12416