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'
19 local $dbh->{PrintError} = 0;
20 $dbh->do(q{DROP TABLE tt});
25 $dbh->do(q{CREATE TABLE tt (blah numeric(5,2), foo text)});
26 my $sth = $dbh->prepare(qq{
27 SELECT * FROM tt WHERE FALSE
31 my @types = @{$sth->{pg_type}};
33 ok($types[0] eq 'numeric',
37 ok($types[1] eq 'text',