percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-12 06:00:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

Test and fix bug 1206728.

Browse Source
This commit is contained in:
Daniel Nichter
2013-10-10 14:36:42 -07:00
parent a5b4781cda
commit 8b640ec2ae
4 changed files with 38 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
bin/pt-deadlock-logger
View File

@@ -4448,15 +4448,12 @@ sub main {
my $dp = $o->DSNParser(); my $dp = $o->DSNParser();
$dp->prop('set-vars', $o->set_vars()); $dp->prop('set-vars', $o->set_vars());
my $src; my $src = Cxn->new(
if ( my $src_dsn_string = shift @ARGV ) { dsn_string => shift @ARGV,
$src = Cxn->new(
dsn_string => $src_dsn_string,
parent => $o->get('daemonize'), parent => $o->get('daemonize'),
DSNParser => $dp, DSNParser => $dp,
OptionParser => $o, OptionParser => $o,
); );
}
my $dst; my $dst;
if ( my $dst_dsn = $o->get('dest') ) { if ( my $dst_dsn = $o->get('dest') ) {

19
t/pt-deadlock-logger/bugs.t
View File

@@ -136,8 +136,25 @@ is_deeply(
"Bug 1195034: TOO DEEP OR LONG SEARCH IN THE LOCK TABLE WAITS-FOR GRAPH" "Bug 1195034: TOO DEEP OR LONG SEARCH IN THE LOCK TABLE WAITS-FOR GRAPH"
) or diag(Dumper($deadlocks)); ) or diag(Dumper($deadlocks));
# #############################################################################
# pt-deadlock-logger 2.2 requires a DSN
# https://bugs.launchpad.net/percona-toolkit/+bug/1206728
# #############################################################################
my $config = "/tmp/pt-deadlock-logger-test.conf.$PID";
`cp $trunk/t/pt-deadlock-logger/samples/pt-deadlock-logger-test.conf $config`;
my $output = `$trunk/bin/pt-deadlock-logger --config $config --iteration 1 2>&1`;
is(
$CHILD_ERROR,
0,
"Does not require explicit DSN (bug 1206728)"
) or diag($output);
diag(`rm -rf $config`);
# ############################################################################# # #############################################################################
# Done. # Done.
# ############################################################################# # #############################################################################
done_testing; done_testing;
exit;

18
t/pt-deadlock-logger/option_sanity.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 => 4; use Test::More;
use PerconaTest; use PerconaTest;
@@ -18,12 +18,14 @@ my $output;
# ############################################################################# # #############################################################################
# Sanity tests. # Sanity tests.
# ############################################################################# # #############################################################################
$output = `$trunk/bin/pt-deadlock-logger --dest D=test,t=deadlocks 2>&1`;
like( # Wrong design: https://bugs.launchpad.net/percona-toolkit/+bug/1206728
$output, #$output = `$trunk/bin/pt-deadlock-logger --dest D=test,t=deadlocks 2>&1`;
qr/No DSN was specified/, #like(
'Requires source host' # $output,
); # qr/No DSN was specified/,
# 'Requires source host'
#);
$output = `$trunk/bin/pt-deadlock-logger h=127.1 --dest t=deadlocks 2>&1`; $output = `$trunk/bin/pt-deadlock-logger h=127.1 --dest t=deadlocks 2>&1`;
like( like(
@@ -55,4 +57,4 @@ is(
# ############################################################################# # #############################################################################
# Done. # Done.
# ############################################################################# # #############################################################################
exit; done_testing;

4
t/pt-deadlock-logger/samples/pt-deadlock-logger-test.conf Normal file
View File

@@ -0,0 +1,4 @@
h=127.1
P=12345
u=msandbox
p=msandbox