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

(-)a/t/db_dependent/Borrower_Debarments.t (-2 / +7 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 => 19;
8
use Test::More tests => 21;
9
9
10
use_ok('Koha::Borrower::Debarments');
10
use_ok('Koha::Borrower::Debarments');
11
11
Lines 96-99 ok( @$debarments == 0, "DelDebarment functions correctly" ); Link Here
96
$dbh->do(q|UPDATE borrowers SET debarred = '1970-01-01'|);
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' );
97
is( IsDebarred( $borrowernumber ), undef, 'A patron with a debarred date in the past is not debarred' );
98
98
99
$dbh->do(q|UPDATE borrowers SET debarred = NULL|);
100
is( IsDebarred( $borrowernumber ), undef, 'A patron without a debarred date is not debarred' );
101
102
$dbh->do(q|UPDATE borrowers SET debarred = '9999-31-12'|); # Note: Change this test before the first of January 10000!
103
is( IsDebarred( $borrowernumber ), undef, 'A patron with a debarred date in the future is debarred' );
104
99
$dbh->rollback;
105
$dbh->rollback;
100
- 

Return to bug 12134