install/5.005/DBD-Pg-1.22-fixvercmp/t/06disconnect.t

   1 use strict;
   2 use DBI;
   3 use Test::More;
   4
   5 if (defined $ENV{DBI_DSN}) {
   6   plan tests => 3;
   7 } else {
   8   plan skip_all => 'cannot test without DB info';
   9 }
  10
  11 my $dbh = DBI->connect($ENV{DBI_DSN}, $ENV{DBI_USER}, $ENV{DBI_PASS},
  12                        {RaiseError => 1, AutoCommit => 0}
  13                       );
  14 ok(defined $dbh,
  15    'connect with transaction'
  16   );
  17
  18 ok($dbh->disconnect(),
  19    'disconnect'
  20   );
  21
  22 $dbh = DBI->connect($ENV{DBI_DSN}, $ENV{DBI_USER}, $ENV{DBI_PASS},
  23                        {RaiseError => 1, AutoCommit => 0}
  24                       );
  25
  26 $dbh->disconnect();
  27 $dbh->disconnect();
  28 $dbh->disconnect();
  29 ok($dbh->disconnect(),
  30    'disconnect on already disconnected dbh'
  31   );