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

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

Return to bug 14334