diff options
Diffstat (limited to 'install/5.005/DBD-Pg-1.22-fixvercmp/t/13pgtype.t')
-rw-r--r-- | install/5.005/DBD-Pg-1.22-fixvercmp/t/13pgtype.t | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/install/5.005/DBD-Pg-1.22-fixvercmp/t/13pgtype.t b/install/5.005/DBD-Pg-1.22-fixvercmp/t/13pgtype.t deleted file mode 100644 index 8db819e..0000000 --- a/install/5.005/DBD-Pg-1.22-fixvercmp/t/13pgtype.t +++ /dev/null @@ -1,43 +0,0 @@ -use strict; -use DBI; -use Test::More; - -if (defined $ENV{DBI_DSN}) { - plan tests => 3; -} else { - plan skip_all => 'cannot test without DB info'; -} - -my $dbh = DBI->connect($ENV{DBI_DSN}, $ENV{DBI_USER}, $ENV{DBI_PASS}, - {RaiseError => 1, AutoCommit => 0} - ); -ok(defined $dbh, - 'connect with transaction' - ); - -eval { - local $dbh->{PrintError} = 0; - $dbh->do(q{DROP TABLE tt}); - $dbh->commit(); -}; -$dbh->rollback(); - -$dbh->do(q{CREATE TABLE tt (blah numeric(5,2), foo text)}); -my $sth = $dbh->prepare(qq{ - SELECT * FROM tt WHERE FALSE - }); -$sth->execute(); - -my @types = @{$sth->{pg_type}}; - -ok($types[0] eq 'numeric', - 'type numeric' - ); - -ok($types[1] eq 'text', - 'type text' - ); - -$sth->finish(); -$dbh->rollback(); -$dbh->disconnect(); |