percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-18 09:43:09 +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 strict;
use warnings FATAL => 'all'; use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More tests => 37; use Test::More;
use DSNParser; use DSNParser;
use OptionParser; use OptionParser;
@@ -545,6 +545,9 @@ foreach my $password_comma ( @password_commas ) {
# ############################################################################# # #############################################################################
# Bug 984915: SQL calls after creating the dbh aren't checked # 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'); $dsn = $dp->parse('h=127.1,P=12345,u=msandbox,p=msandbox');
my @opts = $dp->get_cxn_params($dsn); my @opts = $dp->get_cxn_params($dsn);
@@ -569,5 +572,4 @@ like(
# ############################################################################# # #############################################################################
# Done. # Done.
# ############################################################################# # #############################################################################
$dbh->disconnect() if $dbh; done_testing;
exit;