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