From 9f1f7da8ac205b2d642aa7986a9ac26b1a8614e1 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Thu, 24 Apr 2014 17:36:44 +0200 Subject: [PATCH] Bug 12134: Add unit tests to reflect the change in IsDebarred Signed-off-by: Jonathan Druart Signed-off-by: Martin Renvoize Signed-off-by: Galen Charlton --- t/db_dependent/Borrower_Debarments.t | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Borrower_Debarments.t b/t/db_dependent/Borrower_Debarments.t index 88141f6ddb..9e2fd610b0 100755 --- a/t/db_dependent/Borrower_Debarments.t +++ b/t/db_dependent/Borrower_Debarments.t @@ -5,7 +5,7 @@ use Modern::Perl; use C4::Context; use C4::Members; -use Test::More tests => 18; +use Test::More tests => 19; use_ok('Koha::Borrower::Debarments'); @@ -93,4 +93,7 @@ foreach my $d ( @$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; -- 2.39.5