diff options
Diffstat (limited to 'install/5.005/DBD-Pg-1.22-fixvercmp/t/01setup.t')
-rw-r--r-- | install/5.005/DBD-Pg-1.22-fixvercmp/t/01setup.t | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/install/5.005/DBD-Pg-1.22-fixvercmp/t/01setup.t b/install/5.005/DBD-Pg-1.22-fixvercmp/t/01setup.t deleted file mode 100644 index d0b57a345..000000000 --- a/install/5.005/DBD-Pg-1.22-fixvercmp/t/01setup.t +++ /dev/null @@ -1,38 +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 => 1}); -ok(defined $dbh,'connect without transaction'); -{ - local $dbh->{PrintError} = 0; - local $dbh->{RaiseError} = 0; - $dbh->do(q{DROP TABLE test}); -} - -my $sql = <<SQL; -CREATE TABLE test ( - id int, - name text, - val text, - score float, - date timestamp default 'now()', - array text[][] -) -SQL - -ok($dbh->do($sql), - 'create table' - ); - -ok($dbh->disconnect(), - 'disconnect' - ); - |