blob: 87e5d4914ad4d26f109ea1e9cb58d55ee4b05be3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
#!/usr/bin/perl
use strict;
BEGIN {
$| = 1;
$^W = 1;
}
use t::lib::Test;
use Test::More tests => 5;
use Test::NoWarnings;
my $dbh = connect_ok(
AutoCommit => 1,
RaiseError => 1,
);
$dbh->begin_work;
$dbh->do("CREATE TABLE MST (id, lbl)");
$dbh->do("SAVEPOINT svp_0");
$dbh->do("INSERT INTO MST VALUES(1, 'ITEM1')");
$dbh->do("INSERT INTO MST VALUES(2, 'ITEM2')");
$dbh->do("INSERT INTO MST VALUES(3, 'ITEM3')");
my $ac = $dbh->{AutoCommit};
ok((not $ac), 'AC != 1 inside txn');
{
local $dbh->{AutoCommit} = $dbh->{AutoCommit};
$dbh->do("ROLLBACK TRANSACTION TO SAVEPOINT svp_0");
is $dbh->{AutoCommit}, $ac,
"rolling back savepoint doesn't alter AC";
}
is $dbh->selectrow_array("SELECT COUNT(*) FROM MST"), 0,
"savepoint rolled back";
$dbh->rollback;
|