|
Lines 4-16
use Modern::Perl;
Link Here
|
| 4 |
|
4 |
|
| 5 |
use C4::Context; |
5 |
use C4::Context; |
| 6 |
use C4::Members; |
6 |
use C4::Members; |
|
|
7 |
use Koha::Database; |
| 7 |
|
8 |
|
| 8 |
use Test::More tests => 31; |
9 |
use Test::More tests => 31; |
| 9 |
|
10 |
|
| 10 |
use_ok('Koha::Borrower::Debarments'); |
11 |
use_ok('Koha::Borrower::Debarments'); |
| 11 |
|
12 |
|
| 12 |
my $dbh = C4::Context->dbh; |
13 |
my $dbh = C4::Context->dbh; |
| 13 |
$dbh->{AutoCommit} = 0; |
14 |
my $database = Koha::Database->new(); |
|
|
15 |
my $schema = $database->schema(); |
| 16 |
$schema->storage->txn_begin(); |
| 14 |
$dbh->{RaiseError} = 1; |
17 |
$dbh->{RaiseError} = 1; |
| 15 |
|
18 |
|
| 16 |
my $borrowernumber = AddMember( |
19 |
my $borrowernumber = AddMember( |
|
Lines 154-157
is( IsDebarred( $borrowernumber ), undef, 'A patron without a debarred date is n
Link Here
|
| 154 |
$dbh->do(q|UPDATE borrowers SET debarred = '9999-12-31'|); # Note: Change this test before the first of January 10000! |
157 |
$dbh->do(q|UPDATE borrowers SET debarred = '9999-12-31'|); # Note: Change this test before the first of January 10000! |
| 155 |
is( IsDebarred( $borrowernumber ), '9999-12-31', 'A patron with a debarred date in the future is debarred' ); |
158 |
is( IsDebarred( $borrowernumber ), '9999-12-31', 'A patron with a debarred date in the future is debarred' ); |
| 156 |
|
159 |
|
| 157 |
$dbh->rollback; |
160 |
$schema->storage->txn_rollback(); |
| 158 |
- |
|
|