diff options
author | cvs2git <cvs2git> | 2006-08-23 22:25:40 +0000 |
---|---|---|
committer | cvs2git <cvs2git> | 2006-08-23 22:25:40 +0000 |
commit | 58d093219cf60264550b8c34649d9f3190eda042 (patch) | |
tree | 10418dd70b52416a5f52da8e17d8e282d914595d /install/5.005/DBD-Pg-1.22-fixvercmp/t/06disconnect.t | |
parent | 3ce7691203a7737406bf2d4442f7fd84b81f847e (diff) |
This commit was manufactured by cvs2svn to create tagAFTER_FINAL_MASONIZE
'AFTER_FINAL_MASONIZE'.
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, 0 insertions, 31 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 deleted file mode 100644 index 5d76bc0a8..000000000 --- a/install/5.005/DBD-Pg-1.22-fixvercmp/t/06disconnect.t +++ /dev/null @@ -1,31 +0,0 @@ -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' - ); |