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 |
- |
|
|