|
Server : Apache/2.2.22 (Unix) mod_ssl/2.2.22 OpenSSL/1.0.0-fips mod_auth_passthrough/2.1 mod_bwlimited/1.4 System : Linux server.jackjohnson.com 2.6.32-279.5.2.el6.x86_64 #1 SMP Fri Aug 24 01:07:11 UTC 2012 x86_64 User : jackjohn ( 502) PHP Version : 5.3.17 Disable Function : NONE Directory : /installd/perl588installer/DBI-1.607/t/ |
Upload File : |
#!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;