percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-11 05:29:30 +00:00
Code Issues Packages Projects Releases Wiki Activity

Bug 1022622: pt-config-diff is case-sensitive

Browse Source
This commit is contained in:
Brian Fraser
2012-07-27 20:12:45 -03:00
parent 192f38498c
commit ac015477af
4 changed files with 110 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
t/pt-config-diff/basics.t
View File

@@ -26,11 +26,9 @@ if ( !$master_dbh ) {
elsif ( !$slave_dbh ) {
plan skip_all => 'Cannot connect to sandbox slave';
}
else {
plan tests => 13;
}
my $cnf = '/tmp/12345/my.sandbox.cnf';
my $samples = "$trunk/t/pt-config-diff/samples/";
my $output;
my $retval;
@@ -162,8 +160,44 @@ like(
"Config diff output"
);
# #############################################################################
# Case insensitivity
# #############################################################################
use File::Spec;
$output = output(
sub { $retval = pt_config_diff::main(
File::Spec->catfile($samples, "case1.cnf"),
File::Spec->catfile($samples, "case2.cnf"),
) },
stderr => 1,
);
is(
$output,
"",
"Case-insensitive by default, finds no diffs"
);
$output = output(
sub { $retval = pt_config_diff::main(
File::Spec->catfile($samples, "case1.cnf"),
File::Spec->catfile($samples, "case2.cnf"),
'--no-ignore-case',
) },
stderr => 1,
);
like(
$output,
qr/binlog_format\s+genlog\s+GENLOG/,
"With case-insensitivity turned off, finds one diff"
);
# #############################################################################
# Done.
# #############################################################################
ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
exit;
done_testing;