diff options
Diffstat (limited to 'install/5.005/DBD-Pg-1.22-fixvercmp/t/01connect.t')
| -rw-r--r-- | install/5.005/DBD-Pg-1.22-fixvercmp/t/01connect.t | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/install/5.005/DBD-Pg-1.22-fixvercmp/t/01connect.t b/install/5.005/DBD-Pg-1.22-fixvercmp/t/01connect.t new file mode 100644 index 000000000..be17b5087 --- /dev/null +++ b/install/5.005/DBD-Pg-1.22-fixvercmp/t/01connect.t @@ -0,0 +1,26 @@ +use strict; +use DBI; +use Test::More; + +if (defined $ENV{DBI_DSN}) { + plan tests => 2; +} 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 and $dbh->disconnect()), + 'connect with transaction' + ); + +undef $dbh; +$dbh = DBI->connect($ENV{DBI_DSN}, $ENV{DBI_USER}, $ENV{DBI_PASS}, + {RaiseError => 1, AutoCommit => 1}); + +ok((defined $dbh and $dbh->disconnect()), + 'connect without transaction' + ); + |