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 'connect with transaction'
23 ok($dbh->prepare($sql),
32 ok($dbh->prepare($sql),
42 ok($dbh->prepare($sql),
53 ok($dbh->prepare($sql),
64 ok($dbh->prepare($sql),
78 ok($dbh->prepare($sql),
82 ok($dbh->disconnect(),