@@ -, +, @@ --------- -- Are the additions/subtractions similar to http://paste.lisp.org/display/149194? --- t/db_dependent/Accounts.t | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) --- a/t/db_dependent/Accounts.t +++ a/t/db_dependent/Accounts.t @@ -28,6 +28,7 @@ BEGIN { use_ok('Koha::Borrower'); use_ok('Data::Dumper'); } +use Koha::Database; can_ok( 'C4::Accounts', qw( recordpayment @@ -47,8 +48,10 @@ can_ok( 'C4::Accounts', ); my $dbh = C4::Context->dbh; +my $database = Koha::Database->new(); +my $schema = $database->schema(); +$schema->storage->txn_begin(); $dbh->{RaiseError}=1; -$dbh->{AutoCommit}=0; $dbh->do(q|DELETE FROM accountlines|); $dbh->do(q|DELETE FROM borrowers|); $dbh->do(q|DELETE FROM issues|); @@ -172,7 +175,7 @@ is($note,'$200.00 payment note', '$200.00 payment note is registered'); -$dbh->rollback; +$schema->storage->txn_rollback(); # Sub ------------------------------------------- @@ -180,4 +183,4 @@ $dbh->rollback; # C4::Context->userenv sub Mock_userenv { return $userenv; -} +} --