mirror of
https://github.com/percona/percona-toolkit.git
synced 2026-05-02 01:01:09 +08:00
Merge branch '3.0' into PT-204
This commit is contained in:
@@ -2,6 +2,7 @@ Changelog for Percona Toolkit
|
|||||||
|
|
||||||
v3.0.6
|
v3.0.6
|
||||||
|
|
||||||
|
* Fixed bug PT-229: pt-online-schema-change does not retry on deadlock error when using percona 5.7
|
||||||
* Fixed bug PT-225: pt-table-checksum ignores generated cols
|
* Fixed bug PT-225: pt-table-checksum ignores generated cols
|
||||||
* Improvement PT-221: pt-table-sync pt-table-sync support for MyRocks
|
* Improvement PT-221: pt-table-sync pt-table-sync support for MyRocks
|
||||||
|
|
||||||
|
|||||||
@@ -56,7 +56,7 @@ BEGIN {
|
|||||||
{
|
{
|
||||||
package Percona::Toolkit;
|
package Percona::Toolkit;
|
||||||
|
|
||||||
our $VERSION = '3.0.5';
|
our $VERSION = '3.0.6';
|
||||||
|
|
||||||
use strict;
|
use strict;
|
||||||
use warnings FATAL => 'all';
|
use warnings FATAL => 'all';
|
||||||
@@ -11262,6 +11262,7 @@ sub osc_retry {
|
|||||||
if ( $error =~ m/Lock wait timeout exceeded/
|
if ( $error =~ m/Lock wait timeout exceeded/
|
||||||
|| $error =~ m/Deadlock found/
|
|| $error =~ m/Deadlock found/
|
||||||
|| $error =~ m/Query execution was interrupted/
|
|| $error =~ m/Query execution was interrupted/
|
||||||
|
|| $error =~ m/WSREP detected deadlock\/conflict/
|
||||||
) {
|
) {
|
||||||
# These errors/warnings can be retried, so don't print
|
# These errors/warnings can be retried, so don't print
|
||||||
# a warning yet; do that in final_fail.
|
# a warning yet; do that in final_fail.
|
||||||
@@ -12972,6 +12973,6 @@ Place, Suite 330, Boston, MA 02111-1307 USA.
|
|||||||
|
|
||||||
=head1 VERSION
|
=head1 VERSION
|
||||||
|
|
||||||
pt-online-schema-change 3.0.5
|
pt-online-schema-change 3.0.6
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|||||||
@@ -0,0 +1,152 @@
|
|||||||
|
#!/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 threads;
|
||||||
|
use threads::shared;
|
||||||
|
use Thread::Semaphore;
|
||||||
|
|
||||||
|
use English qw(-no_match_vars);
|
||||||
|
use Test::More;
|
||||||
|
|
||||||
|
use Data::Dumper;
|
||||||
|
use PerconaTest;
|
||||||
|
use Sandbox;
|
||||||
|
use SqlModes;
|
||||||
|
use File::Temp qw/ tempdir /;
|
||||||
|
|
||||||
|
plan tests => 5;
|
||||||
|
|
||||||
|
require "$trunk/bin/pt-online-schema-change";
|
||||||
|
|
||||||
|
my $dp = new DSNParser(opts=>$dsn_opts);
|
||||||
|
my $sb = new Sandbox(basedir => '/tmp', DSNParser => $dp);
|
||||||
|
|
||||||
|
my $master_dbh = $sb->get_dbh_for('node1');
|
||||||
|
my $master_dsn = $sb->dsn_for('node1');
|
||||||
|
|
||||||
|
if ( !$master_dbh ) {
|
||||||
|
plan skip_all => 'Cannot connect to sandbox master';
|
||||||
|
}
|
||||||
|
|
||||||
|
# The sandbox servers run with lock_wait_timeout=3 and it's not dynamic
|
||||||
|
# so we need to specify --set-vars innodb_lock_wait_timeout=3 else the
|
||||||
|
# tool will die.
|
||||||
|
my @args = (qw(--set-vars innodb_lock_wait_timeout=3));
|
||||||
|
my $output;
|
||||||
|
my $exit_status;
|
||||||
|
my $sample = "t/pt-online-schema-change/samples/";
|
||||||
|
|
||||||
|
$sb->load_file('master', "$sample/pt-229.sql");
|
||||||
|
|
||||||
|
my $num_rows = 40000;
|
||||||
|
diag("Loading $num_rows into the table. This might take some time.");
|
||||||
|
diag(`util/mysql_random_data_load_linux_amd64 --host=127.1 --port=12345 --user=msandbox --password=msandbox test test_a $num_rows`);
|
||||||
|
diag("$num_rows rows loaded. Starting tests.");
|
||||||
|
$master_dbh->do("FLUSH TABLES");
|
||||||
|
|
||||||
|
my $threads = [];
|
||||||
|
|
||||||
|
sub signal_handler {
|
||||||
|
my $i=0;
|
||||||
|
for my $thread (@$threads) {
|
||||||
|
$i++;
|
||||||
|
diag ("Signaling thread #$i to stop");
|
||||||
|
$thread->kill("STOP");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
sub start_thread {
|
||||||
|
my ($dsn_opts, $node, $s) = @_;
|
||||||
|
|
||||||
|
my $stop;
|
||||||
|
$SIG{'STOP'} = sub {
|
||||||
|
$stop = 1;
|
||||||
|
};
|
||||||
|
|
||||||
|
my $dp = new DSNParser(opts=>$dsn_opts);
|
||||||
|
my $sb = new Sandbox(basedir => '/tmp', DSNParser => $dp);
|
||||||
|
my $dbh= $sb->get_dbh_for($node);
|
||||||
|
diag("Thread started");
|
||||||
|
|
||||||
|
while(!$stop) {
|
||||||
|
eval {
|
||||||
|
$dbh->do("UPDATE `test`.`test_a` SET modified=NOW() WHERE RAND() <= 0.2 LIMIT 1");
|
||||||
|
};
|
||||||
|
my $random_sleep_time = rand() / 10;
|
||||||
|
select(undef, undef, undef, $random_sleep_time);
|
||||||
|
}
|
||||||
|
print "Thread for $node has been stopped\n";
|
||||||
|
$s->up();
|
||||||
|
}
|
||||||
|
|
||||||
|
$SIG{INT} = \&signal_handler;
|
||||||
|
|
||||||
|
my $nodes = ['node1', 'node2', 'node3'];
|
||||||
|
|
||||||
|
my $s = Thread::Semaphore->new();
|
||||||
|
|
||||||
|
for my $node (@$nodes) {
|
||||||
|
my $thread = threads->create('start_thread', $dsn_opts, $node, $s);
|
||||||
|
$thread->detach();
|
||||||
|
push @$threads, $thread;
|
||||||
|
}
|
||||||
|
|
||||||
|
threads->yield();
|
||||||
|
|
||||||
|
diag("Starting osc. Random rows will be updated in other threads.");
|
||||||
|
($output, $exit_status) = full_output(
|
||||||
|
sub { pt_online_schema_change::main(@args, "$master_dsn,D=test,t=test_a",
|
||||||
|
'--execute',
|
||||||
|
'--alter', "ADD COLUMN zzz INT",
|
||||||
|
),
|
||||||
|
},
|
||||||
|
stderr => 1,
|
||||||
|
);
|
||||||
|
|
||||||
|
is(
|
||||||
|
$exit_status,
|
||||||
|
0,
|
||||||
|
"PT-229 Successfully altered. Exit status = 0",
|
||||||
|
);
|
||||||
|
|
||||||
|
like(
|
||||||
|
$output,
|
||||||
|
qr/Successfully altered/s,
|
||||||
|
"PT-229 Got successfully altered message.",
|
||||||
|
);
|
||||||
|
|
||||||
|
my $rows = $master_dbh->selectrow_arrayref('SHOW CREATE TABLE test.test_a');
|
||||||
|
like(
|
||||||
|
@$rows[1],
|
||||||
|
qr/ `zzz` int\(11\) DEFAULT NULL,/im,
|
||||||
|
"PT-229 New field was added",
|
||||||
|
);
|
||||||
|
|
||||||
|
$rows = $master_dbh->selectrow_arrayref('SELECT COUNT(*) FROM test.test_a');
|
||||||
|
is(
|
||||||
|
@$rows[0],
|
||||||
|
$num_rows,
|
||||||
|
"PT-229 Number of rows is correct",
|
||||||
|
);
|
||||||
|
|
||||||
|
signal_handler(); # Signal all threads to stop
|
||||||
|
|
||||||
|
for (@$threads) {
|
||||||
|
$s->down(); # Wait until all threads are really stopped
|
||||||
|
}
|
||||||
|
|
||||||
|
$master_dbh->do("DROP DATABASE IF EXISTS test");
|
||||||
|
|
||||||
|
# #############################################################################
|
||||||
|
# Done.
|
||||||
|
# #############################################################################
|
||||||
|
$sb->wipe_clean($master_dbh);
|
||||||
|
ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
|
||||||
|
done_testing;
|
||||||
@@ -0,0 +1,14 @@
|
|||||||
|
DROP DATABASE IF EXISTS test;
|
||||||
|
CREATE DATABASE test;
|
||||||
|
USE test;
|
||||||
|
|
||||||
|
CREATE TABLE `test_a` (
|
||||||
|
`test_id` int(10) unsigned NOT NULL AUTO_INCREMENT,
|
||||||
|
`column_a` varchar(80) DEFAULT NULL,
|
||||||
|
`column_b` varchar(20) DEFAULT NULL,
|
||||||
|
`active` tinyint(1) unsigned DEFAULT NULL,
|
||||||
|
`created` timestamp NULL DEFAULT NULL,
|
||||||
|
`modified` timestamp NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,
|
||||||
|
PRIMARY KEY (`test_id`)
|
||||||
|
) ENGINE=InnoDB AUTO_INCREMENT=1 DEFAULT CHARSET=utf8;
|
||||||
|
|
||||||
Executable
BIN
Binary file not shown.
Reference in New Issue
Block a user