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 => 1});
13 ok(defined $dbh,'connect without transaction');
15 local $dbh->{PrintError} = 0;
16 local $dbh->{RaiseError} = 0;
17 $dbh->do(q{DROP TABLE test});
26 date timestamp default 'now()',
35 ok($dbh->disconnect(),