mirror of
https://github.com/DBD-SQLite/DBD-SQLite
synced 2025-06-07 22:28:47 -04:00
avoid confusion by manual commit/rollback
This commit is contained in:
Kenichi Ishigaki
parent
c8502a2bbf
commit
8d4756d31c
2 changed files with 204 additions and 172 deletions
20
dbdimp.c
20
dbdimp.c
|
|
@ -570,6 +570,26 @@ sqlite_st_execute(SV *sth, imp_sth_t *imp_sth)
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
else if (DBIc_is(imp_dbh, DBIcf_BegunWork)) {
|
||||||
|
char *sql = sqlite3_sql(imp_sth->stmt);
|
||||||
|
if (((sql[0] == 'C' || sql[0] == 'c') &&
|
||||||
|
(sql[1] == 'O' || sql[1] == 'o') &&
|
||||||
|
(sql[2] == 'M' || sql[2] == 'm') &&
|
||||||
|
(sql[3] == 'M' || sql[3] == 'm') &&
|
||||||
|
(sql[4] == 'I' || sql[4] == 'i') &&
|
||||||
|
(sql[5] == 'T' || sql[5] == 't')) ||
|
||||||
|
((sql[0] == 'R' || sql[0] == 'r') &&
|
||||||
|
(sql[1] == 'O' || sql[1] == 'o') &&
|
||||||
|
(sql[2] == 'L' || sql[2] == 'l') &&
|
||||||
|
(sql[3] == 'L' || sql[3] == 'l') &&
|
||||||
|
(sql[4] == 'B' || sql[4] == 'b') &&
|
||||||
|
(sql[5] == 'A' || sql[5] == 'a') &&
|
||||||
|
(sql[6] == 'C' || sql[6] == 'c') &&
|
||||||
|
(sql[7] == 'K' || sql[7] == 'k'))) {
|
||||||
|
DBIc_off(imp_dbh, DBIcf_BegunWork);
|
||||||
|
DBIc_on(imp_dbh, DBIcf_AutoCommit);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
imp_sth->nrow = 0;
|
imp_sth->nrow = 0;
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -7,7 +7,7 @@ BEGIN {
|
||||||
}
|
}
|
||||||
|
|
||||||
use t::lib::Test;
|
use t::lib::Test;
|
||||||
use Test::More tests => 94;
|
use Test::More tests => 92 * 4 + 2;
|
||||||
use Test::NoWarnings;
|
use Test::NoWarnings;
|
||||||
|
|
||||||
my $dbh = connect_ok(
|
my $dbh = connect_ok(
|
||||||
|
|
@ -18,185 +18,197 @@ my $dbh = connect_ok(
|
||||||
|
|
||||||
$dbh->do('create table foo (id)');
|
$dbh->do('create table foo (id)');
|
||||||
|
|
||||||
# scenario 1: AutoCommit => 1 and no begin_work
|
my @funcs = (
|
||||||
|
sub { shift->rollback },
|
||||||
|
sub { shift->commit },
|
||||||
|
sub { shift->do('rollback') },
|
||||||
|
sub { shift->do('commit') },
|
||||||
|
);
|
||||||
|
|
||||||
ok $dbh->{AutoCommit}, "AutoCommit is on";
|
foreach my $func (@funcs) {
|
||||||
ok !$dbh->{BegunWork}, "BegunWork is off";
|
# scenario 1: AutoCommit => 1 and no begin_work
|
||||||
eval { $dbh->do('insert into foo (id) values (1)'); };
|
|
||||||
ok !$@, 'a statement works';
|
|
||||||
diag $@ if $@;
|
|
||||||
# eval { $dbh->rollback };
|
|
||||||
# ok !$@, "rollback ignored: nothing to be rolled back";
|
|
||||||
# diag $@ if $@;
|
|
||||||
ok $dbh->{AutoCommit}, "AutoCommit is still on";
|
|
||||||
ok !$dbh->{BegunWork}, "BegunWork is still off";
|
|
||||||
|
|
||||||
# scenario 2: AutoCommit => 1 and begin_work and implicit BEGIN
|
eval { $dbh->{AutoCommit} = 1 }; # initialize
|
||||||
|
ok $dbh->{AutoCommit}, "AutoCommit is on";
|
||||||
|
ok !$dbh->{BegunWork}, "BegunWork is off";
|
||||||
|
eval { $dbh->do('insert into foo (id) values (1)'); };
|
||||||
|
ok !$@, 'a statement works';
|
||||||
|
diag $@ if $@;
|
||||||
|
# eval { $func->($dbh) };
|
||||||
|
# ok !$@, "commit/rollback ignored";
|
||||||
|
# diag $@ if $@;
|
||||||
|
ok $dbh->{AutoCommit}, "AutoCommit is still on";
|
||||||
|
ok !$dbh->{BegunWork}, "BegunWork is still off";
|
||||||
|
|
||||||
eval { $dbh->begin_work };
|
# scenario 2: AutoCommit => 1 and begin_work and implicit BEGIN
|
||||||
ok !$@, "begin_work works";
|
|
||||||
ok !$dbh->{AutoCommit}, "AutoCommit is turned off";
|
|
||||||
ok $dbh->{BegunWork}, "BegunWork is turned on";
|
|
||||||
eval { $dbh->begin_work };
|
|
||||||
like $@ => qr/Already in a transaction/, "but second begin_work should fail";
|
|
||||||
eval { $dbh->do('insert into foo (id) values (1)'); };
|
|
||||||
ok !$@, "other statement should work";
|
|
||||||
diag $@ if $@;
|
|
||||||
eval { $dbh->rollback };
|
|
||||||
ok !$@, 'rolled back';
|
|
||||||
diag $@ if $@;
|
|
||||||
ok $dbh->{AutoCommit}, "AutoCommit is turned on";
|
|
||||||
ok !$dbh->{BegunWork}, "BegunWork is turned off";
|
|
||||||
|
|
||||||
# scenario 3: AutoCommit => 1 and begin_work and explicit and immediate BEGIN
|
eval { $dbh->begin_work };
|
||||||
|
ok !$@, "begin_work works";
|
||||||
|
ok !$dbh->{AutoCommit}, "AutoCommit is turned off";
|
||||||
|
ok $dbh->{BegunWork}, "BegunWork is turned on";
|
||||||
|
eval { $dbh->begin_work };
|
||||||
|
like $@ => qr/Already in a transaction/, "but second begin_work should fail";
|
||||||
|
eval { $dbh->do('insert into foo (id) values (1)'); };
|
||||||
|
ok !$@, "other statement should work";
|
||||||
|
diag $@ if $@;
|
||||||
|
eval { $func->($dbh) };
|
||||||
|
ok !$@, 'rolled back/committed';
|
||||||
|
diag $@ if $@;
|
||||||
|
ok $dbh->{AutoCommit}, "AutoCommit is turned on";
|
||||||
|
ok !$dbh->{BegunWork}, "BegunWork is turned off";
|
||||||
|
|
||||||
eval { $dbh->begin_work };
|
# scenario 3: AutoCommit => 1 and begin_work and explicit and immediate BEGIN
|
||||||
ok !$@, "begin_work works";
|
|
||||||
ok !$dbh->{AutoCommit}, "AutoCommit is turned off";
|
|
||||||
ok $dbh->{BegunWork}, "BegunWork is turned on";
|
|
||||||
eval { $dbh->do('BEGIN EXCLUSIVE TRANSACTION') };
|
|
||||||
ok !$@, "first BEGIN should be passed through";
|
|
||||||
diag $@ if $@;
|
|
||||||
eval { $dbh->do('BEGIN TRANSACTION') };
|
|
||||||
like $@ => qr/cannot start a transaction/, "second BEGIN should fail";
|
|
||||||
eval { $dbh->begin_work };
|
|
||||||
like $@ => qr/Already in a transaction/, "and second begin_work also should fail";
|
|
||||||
eval { $dbh->do('insert into foo (id) values (1)'); };
|
|
||||||
ok !$@, 'other statement should work';
|
|
||||||
diag $@ if $@;
|
|
||||||
eval { $dbh->rollback };
|
|
||||||
ok !$@, 'rolled back';
|
|
||||||
diag $@ if $@;
|
|
||||||
ok $dbh->{AutoCommit}, "AutoCommit is turned on now";
|
|
||||||
ok !$dbh->{BegunWork}, "BegunWork is turned off";
|
|
||||||
|
|
||||||
# scenario 4: AutoCommit => 1 and begin_work and explicit but not immediate BEGIN
|
eval { $dbh->begin_work };
|
||||||
eval { $dbh->begin_work };
|
ok !$@, "begin_work works";
|
||||||
ok !$@, "begin_work works";
|
ok !$dbh->{AutoCommit}, "AutoCommit is turned off";
|
||||||
ok !$dbh->{AutoCommit}, "AutoCommit is turned off";
|
ok $dbh->{BegunWork}, "BegunWork is turned on";
|
||||||
ok $dbh->{BegunWork}, "BegunWork is turned on";
|
eval { $dbh->do('BEGIN EXCLUSIVE TRANSACTION') };
|
||||||
eval { $dbh->do('insert into foo (id) values (1)'); };
|
ok !$@, "first BEGIN should be passed through";
|
||||||
ok !$@, 'statement should work';
|
diag $@ if $@;
|
||||||
diag $@ if $@;
|
eval { $dbh->do('BEGIN TRANSACTION') };
|
||||||
eval { $dbh->do('BEGIN TRANSACTION') };
|
like $@ => qr/cannot start a transaction/, "second BEGIN should fail";
|
||||||
like $@ => qr/cannot start a transaction/, "BEGIN after other statements should fail";
|
eval { $dbh->begin_work };
|
||||||
eval { $dbh->begin_work };
|
like $@ => qr/Already in a transaction/, "and second begin_work also should fail";
|
||||||
like $@ => qr/Already in a transaction/, "and second begin_work also should fail";
|
eval { $dbh->do('insert into foo (id) values (1)'); };
|
||||||
eval { $dbh->do('insert into foo (id) values (1)'); };
|
ok !$@, 'other statement should work';
|
||||||
ok !$@, 'other statement should work';
|
diag $@ if $@;
|
||||||
diag $@ if $@;
|
eval { $func->($dbh) };
|
||||||
eval { $dbh->rollback };
|
ok !$@, 'rolled back/committed';
|
||||||
ok !$@, 'rolled back';
|
diag $@ if $@;
|
||||||
diag $@ if $@;
|
ok $dbh->{AutoCommit}, "AutoCommit is turned on now";
|
||||||
ok $dbh->{AutoCommit}, "AutoCommit is turned on now";
|
ok !$dbh->{BegunWork}, "BegunWork is turned off";
|
||||||
ok !$dbh->{BegunWork}, "BegunWork is turned off";
|
|
||||||
|
|
||||||
# scenario 5: AutoCommit => 1 and explicit BEGIN and no begin_work
|
# scenario 4: AutoCommit => 1 and begin_work and explicit but not immediate BEGIN
|
||||||
ok $dbh->{AutoCommit}, "AutoCommit is on";
|
eval { $dbh->begin_work };
|
||||||
ok !$dbh->{BegunWork}, "BegunWork is off";
|
ok !$@, "begin_work works";
|
||||||
eval { $dbh->do('BEGIN TRANSACTION'); };
|
ok !$dbh->{AutoCommit}, "AutoCommit is turned off";
|
||||||
ok !$@, 'BEGIN should work';
|
ok $dbh->{BegunWork}, "BegunWork is turned on";
|
||||||
diag $@ if $@;
|
eval { $dbh->do('insert into foo (id) values (1)'); };
|
||||||
ok !$dbh->{AutoCommit}, "AutoCommit is turned off";
|
ok !$@, 'statement should work';
|
||||||
ok $dbh->{BegunWork}, "BegunWork is turned on";
|
diag $@ if $@;
|
||||||
eval { $dbh->do('BEGIN TRANSACTION') };
|
eval { $dbh->do('BEGIN TRANSACTION') };
|
||||||
like $@ => qr/cannot start a transaction/, "second BEGIN should fail";
|
like $@ => qr/cannot start a transaction/, "BEGIN after other statements should fail";
|
||||||
eval { $dbh->do('insert into foo (id) values (1)'); };
|
eval { $dbh->begin_work };
|
||||||
ok !$@, 'other statement should work';
|
like $@ => qr/Already in a transaction/, "and second begin_work also should fail";
|
||||||
diag $@ if $@;
|
eval { $dbh->do('insert into foo (id) values (1)'); };
|
||||||
eval { $dbh->rollback };
|
ok !$@, 'other statement should work';
|
||||||
ok !$@, 'rolled back';
|
diag $@ if $@;
|
||||||
diag $@ if $@;
|
eval { $func->($dbh) };
|
||||||
ok $dbh->{AutoCommit}, "AutoCommit is turned on now";
|
ok !$@, 'rolled back/committed';
|
||||||
ok !$dbh->{BegunWork}, "BegunWork is turned off";
|
diag $@ if $@;
|
||||||
|
ok $dbh->{AutoCommit}, "AutoCommit is turned on now";
|
||||||
|
ok !$dbh->{BegunWork}, "BegunWork is turned off";
|
||||||
|
|
||||||
# scenario 6: AutoCommit => 1 and explicit BEGIN and begin_work
|
# scenario 5: AutoCommit => 1 and explicit BEGIN and no begin_work
|
||||||
ok $dbh->{AutoCommit}, "AutoCommit is on";
|
ok $dbh->{AutoCommit}, "AutoCommit is on";
|
||||||
ok !$dbh->{BegunWork}, "BegunWork is off";
|
ok !$dbh->{BegunWork}, "BegunWork is off";
|
||||||
eval { $dbh->do('BEGIN TRANSACTION'); };
|
eval { $dbh->do('BEGIN TRANSACTION'); };
|
||||||
ok !$@, 'BEGIN should work';
|
ok !$@, 'BEGIN should work';
|
||||||
diag $@ if $@;
|
diag $@ if $@;
|
||||||
ok !$dbh->{AutoCommit}, "AutoCommit is turned off";
|
ok !$dbh->{AutoCommit}, "AutoCommit is turned off";
|
||||||
ok $dbh->{BegunWork}, "BegunWork is turned on";
|
ok $dbh->{BegunWork}, "BegunWork is turned on";
|
||||||
eval { $dbh->do('BEGIN TRANSACTION') };
|
eval { $dbh->do('BEGIN TRANSACTION') };
|
||||||
like $@ => qr/cannot start a transaction/, "second BEGIN should fail";
|
like $@ => qr/cannot start a transaction/, "second BEGIN should fail";
|
||||||
eval { $dbh->begin_work };
|
eval { $dbh->do('insert into foo (id) values (1)'); };
|
||||||
like $@ => qr/Already in a transaction/, "and second begin_work also should fail";
|
ok !$@, 'other statement should work';
|
||||||
eval { $dbh->do('insert into foo (id) values (1)'); };
|
diag $@ if $@;
|
||||||
ok !$@, 'other statement should work';
|
eval { $func->($dbh) };
|
||||||
diag $@ if $@;
|
ok !$@, 'rolled back/committed';
|
||||||
eval { $dbh->rollback };
|
diag $@ if $@;
|
||||||
ok !$@, 'rolled back';
|
ok $dbh->{AutoCommit}, "AutoCommit is turned on now";
|
||||||
diag $@ if $@;
|
ok !$dbh->{BegunWork}, "BegunWork is turned off";
|
||||||
ok $dbh->{AutoCommit}, "AutoCommit is turned on now";
|
|
||||||
ok !$dbh->{BegunWork}, "BegunWork is turned off";
|
|
||||||
|
|
||||||
# scenario 7: AutoCommit => 0 and explicit BEGIN
|
# scenario 6: AutoCommit => 1 and explicit BEGIN and begin_work
|
||||||
eval { $dbh->{AutoCommit} = 1 }; # to initialize
|
ok $dbh->{AutoCommit}, "AutoCommit is on";
|
||||||
ok $dbh->{AutoCommit}, "AutoCommit is on";
|
ok !$dbh->{BegunWork}, "BegunWork is off";
|
||||||
ok !$dbh->{BegunWork}, "BegunWork is off";
|
eval { $dbh->do('BEGIN TRANSACTION'); };
|
||||||
eval { $dbh->{AutoCommit} = 0 };
|
ok !$@, 'BEGIN should work';
|
||||||
ok !$@, "AutoCommit is turned off";
|
diag $@ if $@;
|
||||||
ok !$dbh->{BegunWork}, "BegunWork is still off";
|
ok !$dbh->{AutoCommit}, "AutoCommit is turned off";
|
||||||
eval { $dbh->do('BEGIN TRANSACTION'); };
|
ok $dbh->{BegunWork}, "BegunWork is turned on";
|
||||||
ok !$@, 'BEGIN should work';
|
eval { $dbh->do('BEGIN TRANSACTION') };
|
||||||
diag $@ if $@;
|
like $@ => qr/cannot start a transaction/, "second BEGIN should fail";
|
||||||
ok !$dbh->{AutoCommit}, "AutoCommit is turned off";
|
eval { $dbh->begin_work };
|
||||||
ok !$dbh->{BegunWork}, "BegunWork is still off";
|
like $@ => qr/Already in a transaction/, "and second begin_work also should fail";
|
||||||
eval { $dbh->do('BEGIN TRANSACTION') };
|
eval { $dbh->do('insert into foo (id) values (1)'); };
|
||||||
like $@ => qr/cannot start a transaction/, "second BEGIN should fail";
|
ok !$@, 'other statement should work';
|
||||||
eval { $dbh->begin_work };
|
diag $@ if $@;
|
||||||
like $@ => qr/Already in a transaction/, "and begin_work also should fail";
|
eval { $func->($dbh) };
|
||||||
eval { $dbh->do('insert into foo (id) values (1)'); };
|
ok !$@, 'rolled back/committed';
|
||||||
ok !$@, 'other statement should work';
|
diag $@ if $@;
|
||||||
diag $@ if $@;
|
ok $dbh->{AutoCommit}, "AutoCommit is turned on now";
|
||||||
eval { $dbh->rollback };
|
ok !$dbh->{BegunWork}, "BegunWork is turned off";
|
||||||
ok !$@, 'rolled back';
|
|
||||||
diag $@ if $@;
|
|
||||||
ok !$dbh->{AutoCommit}, "AutoCommit is still off";
|
|
||||||
ok !$dbh->{BegunWork}, "BegunWork is still off";
|
|
||||||
|
|
||||||
# scenario 8: AutoCommit => 0 and begin_work
|
# scenario 7: AutoCommit => 0 and explicit BEGIN
|
||||||
eval { $dbh->{AutoCommit} = 1 }; # to initialize
|
eval { $dbh->{AutoCommit} = 1 }; # to initialize
|
||||||
ok $dbh->{AutoCommit}, "AutoCommit is on";
|
ok $dbh->{AutoCommit}, "AutoCommit is on";
|
||||||
ok !$dbh->{BegunWork}, "BegunWork is off";
|
ok !$dbh->{BegunWork}, "BegunWork is off";
|
||||||
eval { $dbh->{AutoCommit} = 0 };
|
eval { $dbh->{AutoCommit} = 0 };
|
||||||
ok !$@, "AutoCommit is turned off";
|
ok !$@, "AutoCommit is turned off";
|
||||||
ok !$dbh->{BegunWork}, "BegunWork is still off";
|
ok !$dbh->{BegunWork}, "BegunWork is still off";
|
||||||
eval { $dbh->begin_work; };
|
eval { $dbh->do('BEGIN TRANSACTION'); };
|
||||||
like $@ => qr/Already in a transaction/, "begin_work should fail";
|
ok !$@, 'BEGIN should work';
|
||||||
ok !$dbh->{AutoCommit}, "AutoCommit is still off";
|
diag $@ if $@;
|
||||||
ok !$dbh->{BegunWork}, "BegunWork is still off";
|
ok !$dbh->{AutoCommit}, "AutoCommit is turned off";
|
||||||
eval { $dbh->do('BEGIN TRANSACTION') };
|
ok !$dbh->{BegunWork}, "BegunWork is still off";
|
||||||
ok !$@, "BEGIN should work";
|
eval { $dbh->do('BEGIN TRANSACTION') };
|
||||||
diag $@ if $@;
|
like $@ => qr/cannot start a transaction/, "second BEGIN should fail";
|
||||||
ok !$dbh->{AutoCommit}, "AutoCommit is still off";
|
eval { $dbh->begin_work };
|
||||||
ok !$dbh->{BegunWork}, "BegunWork is still off";
|
like $@ => qr/Already in a transaction/, "and begin_work also should fail";
|
||||||
eval { $dbh->begin_work };
|
eval { $dbh->do('insert into foo (id) values (1)'); };
|
||||||
like $@ => qr/Already in a transaction/, "and second begin_work also should fail";
|
ok !$@, 'other statement should work';
|
||||||
eval { $dbh->do('insert into foo (id) values (1)'); };
|
diag $@ if $@;
|
||||||
ok !$@, 'other statement should work';
|
eval { $func->($dbh) };
|
||||||
diag $@ if $@;
|
ok !$@, 'rolled back/committed';
|
||||||
eval { $dbh->rollback };
|
diag $@ if $@;
|
||||||
ok !$@, 'rolled back';
|
ok !$dbh->{AutoCommit}, "AutoCommit is still off";
|
||||||
diag $@ if $@;
|
ok !$dbh->{BegunWork}, "BegunWork is still off";
|
||||||
ok !$dbh->{AutoCommit}, "AutoCommit is still off";
|
|
||||||
ok !$dbh->{BegunWork}, "BegunWork is still off";
|
|
||||||
|
|
||||||
# scenario 9: AutoCommit => 0 and implicit BEGIN
|
# scenario 8: AutoCommit => 0 and begin_work
|
||||||
eval { $dbh->{AutoCommit} = 1 }; # to initialize
|
eval { $dbh->{AutoCommit} = 1 }; # to initialize
|
||||||
ok $dbh->{AutoCommit}, "AutoCommit is on";
|
ok $dbh->{AutoCommit}, "AutoCommit is on";
|
||||||
ok !$dbh->{BegunWork}, "BegunWork is off";
|
ok !$dbh->{BegunWork}, "BegunWork is off";
|
||||||
eval { $dbh->{AutoCommit} = 0 };
|
eval { $dbh->{AutoCommit} = 0 };
|
||||||
ok !$@, "AutoCommit is turned off";
|
ok !$@, "AutoCommit is turned off";
|
||||||
ok !$dbh->{BegunWork}, "BegunWork is still off";
|
ok !$dbh->{BegunWork}, "BegunWork is still off";
|
||||||
eval { $dbh->do('insert into foo (id) values (1)'); };
|
eval { $dbh->begin_work; };
|
||||||
ok !$@, 'other statement should work';
|
like $@ => qr/Already in a transaction/, "begin_work should fail";
|
||||||
diag $@ if $@;
|
ok !$dbh->{AutoCommit}, "AutoCommit is still off";
|
||||||
ok !$dbh->{AutoCommit}, "AutoCommit is still off";
|
ok !$dbh->{BegunWork}, "BegunWork is still off";
|
||||||
ok !$dbh->{BegunWork}, "BegunWork is still off";
|
eval { $dbh->do('BEGIN TRANSACTION') };
|
||||||
eval { $dbh->rollback };
|
ok !$@, "BEGIN should work";
|
||||||
ok !$@, 'rolled back';
|
diag $@ if $@;
|
||||||
diag $@ if $@;
|
ok !$dbh->{AutoCommit}, "AutoCommit is still off";
|
||||||
ok !$dbh->{AutoCommit}, "AutoCommit is still off";
|
ok !$dbh->{BegunWork}, "BegunWork is still off";
|
||||||
ok !$dbh->{BegunWork}, "BegunWork is still off";
|
eval { $dbh->begin_work };
|
||||||
|
like $@ => qr/Already in a transaction/, "and second begin_work also should fail";
|
||||||
|
eval { $dbh->do('insert into foo (id) values (1)'); };
|
||||||
|
ok !$@, 'other statement should work';
|
||||||
|
diag $@ if $@;
|
||||||
|
eval { $func->($dbh) };
|
||||||
|
ok !$@, 'rolled back/committed';
|
||||||
|
diag $@ if $@;
|
||||||
|
ok !$dbh->{AutoCommit}, "AutoCommit is still off";
|
||||||
|
ok !$dbh->{BegunWork}, "BegunWork is still off";
|
||||||
|
|
||||||
|
# scenario 9: AutoCommit => 0 and implicit BEGIN
|
||||||
|
eval { $dbh->{AutoCommit} = 1 }; # to initialize
|
||||||
|
ok $dbh->{AutoCommit}, "AutoCommit is on";
|
||||||
|
ok !$dbh->{BegunWork}, "BegunWork is off";
|
||||||
|
eval { $dbh->{AutoCommit} = 0 };
|
||||||
|
ok !$@, "AutoCommit is turned off";
|
||||||
|
ok !$dbh->{BegunWork}, "BegunWork is still off";
|
||||||
|
eval { $dbh->do('insert into foo (id) values (1)'); };
|
||||||
|
ok !$@, 'other statement should work';
|
||||||
|
diag $@ if $@;
|
||||||
|
ok !$dbh->{AutoCommit}, "AutoCommit is still off";
|
||||||
|
ok !$dbh->{BegunWork}, "BegunWork is still off";
|
||||||
|
eval { $func->($dbh) };
|
||||||
|
ok !$@, 'rolled back/committed';
|
||||||
|
diag $@ if $@;
|
||||||
|
ok !$dbh->{AutoCommit}, "AutoCommit is still off";
|
||||||
|
ok !$dbh->{BegunWork}, "BegunWork is still off";
|
||||||
|
}
|
||||||
|
eval { $dbh->{AutoCommit} = 1 }; # to end transaction
|
||||||
|
$dbh->disconnect;
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue