Signed-off-by: Jonathan Druart <jonathan.druart@biblibre.com>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Galen Charlton <gmc@esilibrary.com>
use C4::Context;
use C4::Members;
-use Test::More tests => 18;
+use Test::More tests => 19;
use_ok('Koha::Borrower::Debarments');
$debarments = GetDebarments({ borrowernumber => $borrowernumber });
ok( @$debarments == 0, "DelDebarment functions correctly" );
+$dbh->do(q|UPDATE borrowers SET debarred = '1970-01-01'|);
+is( IsDebarred( $borrowernumber ), undef, 'A patron with a debarred date in the past is not debarred' );
+
$dbh->rollback;