mirror of
https://github.com/percona/percona-toolkit.git
synced 2025-09-02 02:34:19 +00:00
16b06dcfc2
The MySQL driver DBD::mysql does not decode JSON values as utf8 although MySQL uses utf8mb4 for all JSON strings. This change decodes JSON values as utf8 (when not already done) such that SQL statements are generated correctly.
84 lines
2.7 KiB
Perl
84 lines
2.7 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 PerconaTest;
|
|
use Sandbox;
|
|
require "$trunk/bin/pt-table-sync";
|
|
|
|
my $dp = new DSNParser(opts=>$dsn_opts);
|
|
my $sb = new Sandbox(basedir => '/tmp', DSNParser => $dp);
|
|
my $source_dbh = $sb->get_dbh_for('source');
|
|
my $replica1_dbh = $sb->get_dbh_for('replica1');
|
|
|
|
if ( !$source_dbh ) {
|
|
plan skip_all => 'Cannot connect to sandbox source';
|
|
}
|
|
elsif ( !$replica1_dbh ) {
|
|
plan skip_all => 'Cannot connect to sandbox replica1';
|
|
}
|
|
elsif ( $sandbox_version lt '8.0') {
|
|
plan skip_all => 'Requires MySQL >= 8.0';
|
|
}
|
|
else {
|
|
plan tests => 3;
|
|
}
|
|
|
|
my $output;
|
|
|
|
# #############################################################################
|
|
# Test generated REPLACE statements.
|
|
# #############################################################################
|
|
$sb->load_file('source', "t/pt-table-sync/samples/pt-2377.sql");
|
|
$sb->wait_for_replicas();
|
|
$replica1_dbh->do("delete from `test`.`test_table` where `id`=1");
|
|
|
|
$output = remove_traces(output(
|
|
sub { pt_table_sync::main('--sync-to-source',
|
|
'h=127.0.0.1,P=12346,u=msandbox,p=msandbox',
|
|
qw(-t test.test_table --print --execute))
|
|
},
|
|
));
|
|
chomp($output);
|
|
is(
|
|
$output,
|
|
q/REPLACE INTO `test`.`test_table`(`id`, `data`) VALUES ('1', '{"name": "Müller"}');/,
|
|
"UTF8 characters of JSON values are printed correctly in REPLACE statements"
|
|
);
|
|
|
|
# #############################################################################
|
|
# Test generated UPDATE statements.
|
|
# #############################################################################
|
|
$sb->load_file('source', "t/pt-table-sync/samples/pt-2377.sql");
|
|
$sb->wait_for_replicas();
|
|
$replica1_dbh->do(q/update `test`.`test_table` set `data`='{"reaction": "哈哈哈"}' where `id`=2/);
|
|
|
|
$output = remove_traces(output(
|
|
sub { pt_table_sync::main(qw(--print --execute),
|
|
"h=127.0.0.1,P=12346,u=msandbox,p=msandbox,D=test,t=test_table",
|
|
"h=127.0.0.1,P=12345,u=msandbox,p=msandbox,D=test,t=test_table");
|
|
}
|
|
));
|
|
chomp($output);
|
|
is(
|
|
$output,
|
|
q/UPDATE `test`.`test_table` SET `data`='{"reaction": "哈哈哈"}' WHERE `id`='2' LIMIT 1;/,
|
|
"UTF8 characters of JSON values are printed correctly in UPDATE statements"
|
|
);
|
|
|
|
# #############################################################################
|
|
# Done.
|
|
# #############################################################################
|
|
$sb->wipe_clean($source_dbh);
|
|
ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
|
|
exit;
|