summaryrefslogtreecommitdiff
path: root/install/5.005/DBD-Pg-1.22-fixvercmp/t/01setup.t
diff options
context:
space:
mode:
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.t38
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'
- );
-