mirror of
https://github.com/percona/percona-toolkit.git
synced 2025-09-11 05:29:30 +00:00
01de987154
* PT-2141 Fix tests for pt-archiver Fixed tests t/pt-archiver/bulk_insert.t, t/pt-archiver/issue_1225.t, t/pt-archiver/issue_1229.t Their failures were due to change of utf8 alias from utf8mb3 in MySQL 5.7 to utf8mb4 in MySQL 8.0. And also due to character set match check between connection ad source table. * PT-2141 Fix tests for pt-archiver Removed test for PT-1898, because it was broken from the beginning: - it called pt-online-schema-change instead of pt-archiver - it announced it will run 6 tests while was running only 2 - the test case itself did not test the issue, described in PT-1898
104 lines
2.8 KiB
Perl
104 lines
2.8 KiB
Perl
#!/usr/bin/env 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 utf8;
|
|
|
|
use PerconaTest;
|
|
use Sandbox;
|
|
require "$trunk/bin/pt-archiver";
|
|
|
|
my $dp = new DSNParser(opts=>$dsn_opts);
|
|
my $sb = new Sandbox(basedir => '/tmp', DSNParser => $dp);
|
|
my $dbh = $sb->get_dbh_for('master');
|
|
|
|
if ( !$dbh ) {
|
|
plan skip_all => 'Cannot connect to sandbox master';
|
|
}
|
|
elsif ($sandbox_version gt '5.7') {
|
|
plan tests => 4;
|
|
}
|
|
else {
|
|
plan tests => 5;
|
|
}
|
|
|
|
my $output;
|
|
my $archived_rows;
|
|
|
|
# #############################################################################
|
|
# Issue 1152: mk-archiver columns option resulting in null archived table data
|
|
# #############################################################################
|
|
$sb->load_file('master', 't/pt-archiver/samples/issue_1225.sql');
|
|
|
|
$dbh->do('set names "utf8"');
|
|
my $original_rows = $dbh->selectall_arrayref('select c from issue_1225.t limit 2');
|
|
is_deeply(
|
|
$original_rows,
|
|
[ ['が'], # Your terminal must be UTF8 to see this Japanese character.
|
|
['が'],
|
|
],
|
|
"Inserted UTF8 data"
|
|
);
|
|
|
|
SKIP: {
|
|
skip "MySQL 8.0+ uses UTF8 as default", 1 if ($sandbox_version gt '5.7');
|
|
|
|
throws_ok(
|
|
sub { pt_archiver::main(
|
|
'--source', 'h=127.1,P=12345,D=issue_1225,t=t,u=msandbox,p=msandbox',
|
|
'--dest', 't=a',
|
|
qw(--where 1=1 --purge))
|
|
},
|
|
qr/Character set mismatch/,
|
|
"--check-charset"
|
|
);
|
|
|
|
$output = output(
|
|
sub { pt_archiver::main(
|
|
'--source', 'h=127.1,P=12345,D=issue_1225,t=t,u=msandbox,p=msandbox',
|
|
'--dest', 't=a',
|
|
qw(--no-check-charset --where 1=1 --purge))
|
|
},
|
|
);
|
|
|
|
$archived_rows = $dbh->selectall_arrayref('select c from issue_1225.a limit 2');
|
|
|
|
ok(
|
|
$original_rows->[0]->[0] ne $archived_rows->[0]->[0],
|
|
"UTF8 characters lost when cxn isn't also UTF8"
|
|
);
|
|
}
|
|
|
|
$sb->load_file('master', 't/pt-archiver/samples/issue_1225.sql');
|
|
|
|
$output = output(
|
|
sub { pt_archiver::main(
|
|
'--source', 'h=127.1,P=12345,D=issue_1225,t=t,u=msandbox,p=msandbox',
|
|
'--dest', 't=a',
|
|
qw(--no-check-charset --where 1=1 --purge -A utf8)) # -A utf8 makes it work
|
|
},
|
|
);
|
|
|
|
$archived_rows = $dbh->selectall_arrayref('select c from issue_1225.a limit 2');
|
|
|
|
is_deeply(
|
|
$original_rows,
|
|
$archived_rows,
|
|
"UTF8 characters preserved when cxn is also UTF8"
|
|
);
|
|
|
|
# #############################################################################
|
|
# Done.
|
|
# #############################################################################
|
|
$sb->wipe_clean($dbh);
|
|
ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
|
|
exit;
|