summaryrefslogtreecommitdiff
path: root/install/5.005/DBD-Pg-1.22-fixvercmp/t/07reuse.t
diff options
context:
space:
mode:
authorcvs2git <cvs2git>2006-08-23 22:25:40 +0000
committercvs2git <cvs2git>2006-08-23 22:25:40 +0000
commit58d093219cf60264550b8c34649d9f3190eda042 (patch)
tree10418dd70b52416a5f52da8e17d8e282d914595d /install/5.005/DBD-Pg-1.22-fixvercmp/t/07reuse.t
parent3ce7691203a7737406bf2d4442f7fd84b81f847e (diff)
This commit was manufactured by cvs2svn to create tagAFTER_FINAL_MASONIZE
'AFTER_FINAL_MASONIZE'.
Diffstat (limited to 'install/5.005/DBD-Pg-1.22-fixvercmp/t/07reuse.t')
-rw-r--r--install/5.005/DBD-Pg-1.22-fixvercmp/t/07reuse.t28
1 files changed, 0 insertions, 28 deletions
diff --git a/install/5.005/DBD-Pg-1.22-fixvercmp/t/07reuse.t b/install/5.005/DBD-Pg-1.22-fixvercmp/t/07reuse.t
deleted file mode 100644
index d09dfc010..000000000
--- a/install/5.005/DBD-Pg-1.22-fixvercmp/t/07reuse.t
+++ /dev/null
@@ -1,28 +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, PrintError => 0, AutoCommit => 0}
- );
-ok(defined $dbh,
- 'connect with transaction'
- );
-
-my $sth = $dbh->prepare(q{SELECT * FROM test});
-ok($dbh->disconnect(),
- 'disconnect with un-finished statement'
- );
-
-eval {
- $sth->execute();
-};
-ok($@,
- 'execute on disconnected statement'
- );