diff options
author | Lorry Tar Creator <lorry-tar-importer@baserock.org> | 2012-06-06 16:41:29 +0000 |
---|---|---|
committer | Lorry <lorry@roadtrain.codethink.co.uk> | 2012-09-26 13:46:50 +0000 |
commit | 7c48e67cf07ee41bfde7139a62bb232bd23a4a48 (patch) | |
tree | 6d7686b5075bd5cba253dabf2e6c302acb3a147c /t/65transact.t | |
download | perl-dbi-tarball-master.tar.gz |
Diffstat (limited to 't/65transact.t')
-rw-r--r-- | t/65transact.t | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/t/65transact.t b/t/65transact.t new file mode 100644 index 0000000..f3d672b --- /dev/null +++ b/t/65transact.t @@ -0,0 +1,35 @@ +#!perl -w +$|=1; + +use strict; + +use DBI; + +use Test::More; + +plan skip_all => 'Transactions not supported by DBD::Gofer' + if $ENV{DBI_AUTOPROXY} && $ENV{DBI_AUTOPROXY} =~ /^dbi:Gofer/i; + +plan tests => 10; + +my $dbh = DBI->connect('dbi:ExampleP(AutoCommit=>1):', undef, undef) + or die "Unable to connect to ExampleP driver: $DBI::errstr"; + +print "begin_work...\n"; +ok($dbh->{AutoCommit}); +ok(!$dbh->{BegunWork}); + +ok($dbh->begin_work); +ok(!$dbh->{AutoCommit}); +ok($dbh->{BegunWork}); + +$dbh->commit; +ok($dbh->{AutoCommit}); +ok(!$dbh->{BegunWork}); + +ok($dbh->begin_work({})); +$dbh->rollback; +ok($dbh->{AutoCommit}); +ok(!$dbh->{BegunWork}); + +1; |