mirror of
https://github.com/percona/percona-toolkit.git
synced 2025-09-13 22:50:25 +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
88 lines
2.6 KiB
Perl
88 lines
2.6 KiB
Perl
#!/usr/bin/env perl
|
|
# test 'x'
|
|
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;
|
|
|
|
use PerconaTest;
|
|
use Sandbox;
|
|
use utf8;
|
|
|
|
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 ( $DBD::mysql::VERSION lt '4' ) {
|
|
plan skip_all => "DBD::mysql version $DBD::mysql::VERSION has utf8 bugs. "
|
|
. "See https://bugs.launchpad.net/percona-toolkit/+bug/932327";
|
|
}
|
|
|
|
my $output;
|
|
my $rows;
|
|
my $cnf = "/tmp/12345/my.sandbox.cnf";
|
|
my $file = "/tmp/pt-archiver-file.txt";
|
|
|
|
# #############################################################################
|
|
# Issue 1229: mk-archiver not creating UTF8 compatible file handles for
|
|
# archive to file
|
|
# #############################################################################
|
|
$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 where i in (1, 2)');
|
|
is_deeply(
|
|
$original_rows,
|
|
[ [ 'が'], # Your terminal must be UTF8 to see this Japanese character.
|
|
[ 'が'],
|
|
],
|
|
"Inserted UTF8 data"
|
|
) or diag(Dumper($original_rows));
|
|
|
|
diag(`rm -rf $file >/dev/null`);
|
|
|
|
# We need to have --no-check-charset here, because utf8 that we use in the test file
|
|
# is alias of utf8mb3 in 5.7 and alias of utf8mb4 in 8.0.
|
|
# We cannot set this character set explicitly due to Perl limitations.
|
|
# Changing utf8 to utf8mb4 will break test on 5.7
|
|
$output = output(
|
|
sub { pt_archiver::main(
|
|
'--source', 'h=127.1,P=12345,D=issue_1225,t=t,u=msandbox,p=msandbox',
|
|
'--file', $file,
|
|
qw(--no-check-charset --where 1=1 -A UTF8)) # -A utf8 makes it work
|
|
},
|
|
stderr => 1,
|
|
);
|
|
|
|
my $got = slurp_file($file);
|
|
$got =~ s/^\d+//gsm;
|
|
ok(
|
|
no_diff(
|
|
$got,
|
|
"t/pt-archiver/samples/issue_1229_file.txt",
|
|
cmd_output => 1,
|
|
),
|
|
"Printed UTF8 data to --file"
|
|
);
|
|
|
|
diag(`rm -rf $file >/dev/null`);
|
|
|
|
# #############################################################################
|
|
# Done.
|
|
# #############################################################################
|
|
$sb->wipe_clean($dbh);
|
|
ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
|
|
done_testing;
|