percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-17 08:57:24 +00:00
Code Issues Packages Projects Releases Wiki Activity

Silence rollback warnings in t/lib/DSNParser.t

Browse Source
This commit is contained in:
Brian Fraser
2012-08-15 13:26:13 -03:00
parent 4510cc4b28
commit 2e38f936a6
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
t/lib/DSNParser.t
View File

@@ -9,7 +9,7 @@ BEGIN {
use strict;
use warnings FATAL => 'all';
use English qw(-no_match_vars);
use Test::More tests => 37;
use Test::More;
use DSNParser;
use OptionParser;
@@ -545,6 +545,9 @@ foreach my $password_comma ( @password_commas ) {
# #############################################################################
# Bug 984915: SQL calls after creating the dbh aren't checked
# #############################################################################
# Make sure to disconnect any lingering dbhs, since full_output will fork
# and then die, which will cause rollback warnings for connected dbhs.
$dbh->disconnect() if $dbh;
$dsn = $dp->parse('h=127.1,P=12345,u=msandbox,p=msandbox');
my @opts = $dp->get_cxn_params($dsn);
@@ -569,5 +572,4 @@ like(
# #############################################################################
# Done.
# #############################################################################
$dbh->disconnect() if $dbh;
exit;
done_testing;