|
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 |
- |
|
|