diff options
Diffstat (limited to 'install/5.005/DBD-Pg-1.22-fixvercmp/t/06disconnect.t')
-rw-r--r-- | install/5.005/DBD-Pg-1.22-fixvercmp/t/06disconnect.t | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/install/5.005/DBD-Pg-1.22-fixvercmp/t/06disconnect.t b/install/5.005/DBD-Pg-1.22-fixvercmp/t/06disconnect.t new file mode 100644 index 000000000..5d76bc0a8 --- /dev/null +++ b/install/5.005/DBD-Pg-1.22-fixvercmp/t/06disconnect.t @@ -0,0 +1,31 @@ +use strict; +use DBI; +use Test::More; + +if (defined $ENV{DBI_DSN}) { + plan tests => 3; +} else { + plan skip_all => 'cannot test without DB info'; +} + +my $dbh = DBI->connect($ENV{DBI_DSN}, $ENV{DBI_USER}, $ENV{DBI_PASS}, + {RaiseError => 1, AutoCommit => 0} + ); +ok(defined $dbh, + 'connect with transaction' + ); + +ok($dbh->disconnect(), + 'disconnect' + ); + +$dbh = DBI->connect($ENV{DBI_DSN}, $ENV{DBI_USER}, $ENV{DBI_PASS}, + {RaiseError => 1, AutoCommit => 0} + ); + +$dbh->disconnect(); +$dbh->disconnect(); +$dbh->disconnect(); +ok($dbh->disconnect(), + 'disconnect on already disconnected dbh' + ); |