percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2026-04-17 01:01:39 +08:00
Code Issues Packages Projects Releases Wiki Activity

Start rewritting pt-upgrade 2.2.

Browse Source
This commit is contained in:
Daniel Nichter
2013-02-09 13:43:14 -07:00
parent a511c7e995
commit 0c229fce51
5 changed files with 559 additions and 8605 deletions
Download Patch File Download Diff File Expand all files Collapse all files

115
t/pt-upgrade/diff_warnings.t Normal file
View File

@@ -0,0 +1,115 @@
#!/usr/bin/perl
BEGIN {
die "The PERCONA_TOOLKIT_BRANCH environment variable is not set.\n"
unless $ENV{PERCONA_TOOLKIT_BRANCH} && -d $ENV{PERCONA_TOOLKIT_BRANCH};
unshift @INC, "$ENV{PERCONA_TOOLKIT_BRANCH}/lib";
};
use strict;
use warnings FATAL => 'all';
use English qw(-no_match_vars);
use Test::More;
use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Sortkeys = 1;
$Data::Dumper::Quotekeys = 0;
use Sandbox;
use PerconaTest;
require "$trunk/bin/pt-upgrade";
my $dp = new DSNParser(opts=>$dsn_opts);
my $sb = new Sandbox(basedir => '/tmp', DSNParser => $dp);
my $dbh1 = $sb->get_dbh_for('master');
my $dbh2 = $sb->get_dbh_for('master');
if ( !$dbh1 || !$dbh2 ) {
plan skip_all => "Cannot connect to sandbox master";
}
$sb->load_file('master', "t/lib/samples/compare-warnings.sql");
sub clear_warnings {
$dbh1->do("SELECT /* clear warnings */ 1 FROM mysql.user");
$dbh2->do("SELECT /* clear warnings */ 1 FROM mysql.user");
}
$dbh1->do("INSERT INTO test.t VALUES (2, '', 123456789)");
$dbh2->do("INSERT INTO test.t VALUES (3, '', 123456789)");
my $w1 = pt_upgrade::get_warnings(dbh => $dbh1);
my $w2 = pt_upgrade::get_warnings(dbh => $dbh2);
my $error_1264 = {
code => '1264',
level => 'Warning',
message => "Out of range value for column 't' at row 1",
};
is_deeply(
$w1,
{
1264 => $error_1264,
},
"host1 warning"
) or diag(Dumper($w1));
is_deeply(
$w2,
{
1264 => $error_1264,
},
"... and host2 warning"
) or diag(Dumper($w2));
my $diffs = pt_upgrade::diff_warnings(
host1_warnings => $w1,
host2_warnings => $w2,
);
is_deeply(
$diffs,
[],
'... but no diffs'
) or diag(Dumper($diffs));
$diffs = pt_upgrade::diff_warnings(
host1_warnings => {},
host2_warnings => $w2,
);
is_deeply(
$diffs,
[
{
host1 => undef,
host2 => $error_1264,
},
],
"host1 doesn't have the warning"
) or diag(Dumper($diffs));
# #############################################################################
# Ignore warnings
# #############################################################################
$diffs = pt_upgrade::diff_warnings(
ignore_warnings => { 1264 => 1 },
host1_warnings => $w1,
host2_warnings => $w2,
);
is_deeply(
$diffs,
[],
'Ignore a warning'
) or diag(Dumper($diffs));
# #############################################################################
# Done.
# #############################################################################
$sb->wipe_clean($dbh1);
ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
done_testing;