diff options
author | ivan <ivan> | 2004-04-29 09:23:31 +0000 |
---|---|---|
committer | ivan <ivan> | 2004-04-29 09:23:31 +0000 |
commit | ee146c3eada3bdb419ba471dd6df5e889d7dd7e5 (patch) | |
tree | 37658dbe6ba8c0806d7ffbaffd9910d8889deff6 /install/5.005/DBD-Pg-1.22-fixvercmp/t/07reuse.t | |
parent | c29fa7acc16efcc86af06077e739fca8b783c3c1 (diff) |
adding DBD::Pg and DBIx::DBSchema for 5.005. argh freebsd and solaris!
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.t | 28 |
1 files changed, 28 insertions, 0 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 new file mode 100644 index 000000000..d09dfc010 --- /dev/null +++ b/install/5.005/DBD-Pg-1.22-fixvercmp/t/07reuse.t @@ -0,0 +1,28 @@ +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' + ); |