View | Details | Raw Unified | Return to bug 12134
Collapse All | Expand All

(-)a/t/db_dependent/Borrower_Debarments.t (-2 / +4 lines)
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
- 

Return to bug 12134