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 => 18; |
8 |
use Test::More tests => 19; |
9 |
|
9 |
|
10 |
use_ok('Koha::Borrower::Debarments'); |
10 |
use_ok('Koha::Borrower::Debarments'); |
11 |
|
11 |
|
Lines 93-96
foreach my $d ( @$debarments ) {
Link Here
|
93 |
$debarments = GetDebarments({ borrowernumber => $borrowernumber }); |
93 |
$debarments = GetDebarments({ borrowernumber => $borrowernumber }); |
94 |
ok( @$debarments == 0, "DelDebarment functions correctly" ); |
94 |
ok( @$debarments == 0, "DelDebarment functions correctly" ); |
95 |
|
95 |
|
|
|
96 |
$dbh->do(q|UPDATE borrowers SET debarred = '1970-01-01'|); |
97 |
is( IsDebarred( $borrowernumber ), undef, 'A patron with a debarred date in the past is not debarred' ); |
98 |
|
96 |
$dbh->rollback; |
99 |
$dbh->rollback; |
97 |
- |
|
|