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, PrintError => 0, AutoCommit => 0}
15 'connect with transaction'
18 my $sth = $dbh->prepare(q{SELECT * FROM test});
19 ok($dbh->disconnect(),
20 'disconnect with un-finished statement'
27 'execute on disconnected statement'