5 if (defined $ENV{DBI_DSN}) {
8 plan skip_all => 'cannot test without DB info';
11 my $dbh = DBI->connect($ENV{DBI_DSN}, $ENV{DBI_USER}, $ENV{DBI_PASS},
12 {RaiseError => 1, AutoCommit => 0}
15 ok((defined $dbh and $dbh->disconnect()),
16 'connect with transaction'
20 $dbh = DBI->connect($ENV{DBI_DSN}, $ENV{DBI_USER}, $ENV{DBI_PASS},
21 {RaiseError => 1, AutoCommit => 1});
23 ok((defined $dbh and $dbh->disconnect()),
24 'connect without transaction'