Lines 28-33
BEGIN {
Link Here
|
28 |
use_ok('Koha::Borrower'); |
28 |
use_ok('Koha::Borrower'); |
29 |
use_ok('Data::Dumper'); |
29 |
use_ok('Data::Dumper'); |
30 |
} |
30 |
} |
|
|
31 |
use Koha::Database; |
31 |
|
32 |
|
32 |
can_ok( 'C4::Accounts', |
33 |
can_ok( 'C4::Accounts', |
33 |
qw( recordpayment |
34 |
qw( recordpayment |
Lines 47-54
can_ok( 'C4::Accounts',
Link Here
|
47 |
); |
48 |
); |
48 |
|
49 |
|
49 |
my $dbh = C4::Context->dbh; |
50 |
my $dbh = C4::Context->dbh; |
|
|
51 |
my $database = Koha::Database->new(); |
52 |
my $schema = $database->schema(); |
53 |
$schema->storage->txn_begin(); |
50 |
$dbh->{RaiseError}=1; |
54 |
$dbh->{RaiseError}=1; |
51 |
$dbh->{AutoCommit}=0; |
|
|
52 |
$dbh->do(q|DELETE FROM accountlines|); |
55 |
$dbh->do(q|DELETE FROM accountlines|); |
53 |
$dbh->do(q|DELETE FROM borrowers|); |
56 |
$dbh->do(q|DELETE FROM borrowers|); |
54 |
$dbh->do(q|DELETE FROM issues|); |
57 |
$dbh->do(q|DELETE FROM issues|); |
Lines 172-178
is($note,'$200.00 payment note', '$200.00 payment note is registered');
Link Here
|
172 |
|
175 |
|
173 |
|
176 |
|
174 |
|
177 |
|
175 |
$dbh->rollback; |
178 |
$schema->storage->txn_rollback(); |
176 |
|
179 |
|
177 |
|
180 |
|
178 |
# Sub ------------------------------------------- |
181 |
# Sub ------------------------------------------- |
Lines 180-183
$dbh->rollback;
Link Here
|
180 |
# C4::Context->userenv |
183 |
# C4::Context->userenv |
181 |
sub Mock_userenv { |
184 |
sub Mock_userenv { |
182 |
return $userenv; |
185 |
return $userenv; |
183 |
} |
186 |
} |
184 |
- |
|
|