Merge pull request #217 from michal-josef-spacek/improve_testing

Add explicit disconnect() in testing connection

Author: choroba

t/15reconnect.t

@@ -12,6 +12,7 @@ require 'lib.pl';
 my $dbh;
 my $sth;
 
+# Test connection
 $dbh = DbiTestConnect($test_dsn, $test_user, $test_password,
   { RaiseError => 1, PrintError => 0 });
 $dbh->disconnect();

t/55utf8.t

@@ -13,8 +13,10 @@ binmode $tb->output,         ":utf8";
 binmode $tb->failure_output, ":utf8";
 binmode $tb->todo_output,    ":utf8";
 
+# Test connection
 my $dbh = DbiTestConnect($test_dsn, $test_user, $test_password,
                       { RaiseError => 1, PrintError => 0, AutoCommit => 0 });
+$dbh->disconnect();
 
 plan tests => 40 * 2;