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

pt-duplicate-key-checker skipped reporting when verbose option on

Browse Source
This commit is contained in:
Frank Cizmich
2015-03-23 14:00:01 -03:00
parent 16a7ffa6f9
commit 0c50d5b1cd
3 changed files with 46 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
bin/pt-duplicate-key-checker
View File

@@ -4972,7 +4972,6 @@ sub main {
print_all_keys($keys, $tbl, \%seen_tbl) if $keys; print_all_keys($keys, $tbl, \%seen_tbl) if $keys;
print_all_keys($fks, $tbl, \%seen_tbl) if $fks; print_all_keys($fks, $tbl, \%seen_tbl) if $fks;
} }
else {
PTDEBUG && _d('Getting duplicate keys on', PTDEBUG && _d('Getting duplicate keys on',
$tbl->{db}, $tbl->{tbl}); $tbl->{db}, $tbl->{tbl});
if ( $keys ) { if ( $keys ) {
@@ -5012,7 +5011,6 @@ sub main {
summary => \%summary, summary => \%summary,
); );
} }
}
# Always count Total Keys so print_key_summary won't die # Always count Total Keys so print_key_summary won't die
# because %summary is empty. # because %summary is empty.

6
t/pt-duplicate-key-checker/basics.t
View File

@@ -136,14 +136,16 @@ ok(
# ############################################################################# # #############################################################################
# Exact unique dupes # Exact unique dupes
# https://bugs.launchpad.net/percona-toolkit/+bug/1217013 # https://bugs.launchpad.net/percona-toolkit/+bug/1217013
# Also added --verbose option (-v) to test for:
# https://bugs.launchpad.net/percona-toolkit/+bug/1402730
# ############################################################################# # #############################################################################
$sb->load_file('master', 't/lib/samples/dupekeys/simple_dupe_bug_1217013.sql', 'test'); $sb->load_file('master', 't/lib/samples/dupekeys/simple_dupe_bug_1217013.sql', 'test');
ok( ok(
no_diff( no_diff(
sub { pt_duplicate_key_checker::main(@args, qw(-t test.domains)) }, sub { pt_duplicate_key_checker::main(@args, qw(-t test.domains -v)) },
"$sample/simple_dupe_bug_1217013.txt"), "$sample/simple_dupe_bug_1217013.txt", keep_output=>1),
'Exact unique dupes (bug 1217013)' 'Exact unique dupes (bug 1217013)'
) or diag($test_diff); ) or diag($test_diff);

4
t/pt-duplicate-key-checker/samples/simple_dupe_bug_1217013.txt
View File

@@ -2,6 +2,10 @@
# test.domains # test.domains
# ######################################################################## # ########################################################################
# unique_key_domain (`domain`)
# domain (`domain`)
# PRIMARY (`id`)
# Uniqueness of domain ignored because unique_key_domain is a duplicate constraint # Uniqueness of domain ignored because unique_key_domain is a duplicate constraint
# domain is a duplicate of unique_key_domain # domain is a duplicate of unique_key_domain
# Key definitions: # Key definitions: