mirror of
https://github.com/percona/percona-toolkit.git
synced 2025-09-09 18:30:16 +00:00
f8d736a89a
The tests previously tested assertions against the replica after executing changes in the source without waiting for the replication to converge.
85 lines
1.9 KiB
Perl
85 lines
1.9 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 $replica_dbh = $sb->get_dbh_for('replica1');
|
|
|
|
if ( !$source_dbh ) {
|
|
plan skip_all => 'Cannot connect to sandbox source';
|
|
}
|
|
elsif ( !$replica_dbh ) {
|
|
plan skip_all => 'Cannot connect to sandbox replica';
|
|
}
|
|
else {
|
|
plan tests => 7;
|
|
}
|
|
|
|
my $output;
|
|
my @args = ('h=127.1,P=12346,u=msandbox,p=msandbox', qw(--sync-to-source -t test.ascii -v -v --print --chunk-size 30));
|
|
|
|
$sb->create_dbs($source_dbh, ['test']);
|
|
$sb->load_file('source', "t/lib/samples/char-chunking/ascii.sql", "test");
|
|
$source_dbh->do('alter table test.ascii drop column `i`');
|
|
|
|
$sb->wait_for_replicas();
|
|
|
|
$replica_dbh->do('delete from test.ascii where c like "Zesus%"');
|
|
|
|
$output = output(
|
|
sub { pt_table_sync::main(@args) },
|
|
);
|
|
|
|
like(
|
|
$output,
|
|
qr/#\s+0\s+4\s+0\s+0\s+Chunk\s+/,
|
|
"Chunks char col"
|
|
);
|
|
like(
|
|
$output,
|
|
qr/FORCE INDEX \(`c`\)/,
|
|
"Uses char col index"
|
|
);
|
|
like(
|
|
$output,
|
|
qr/VALUES \('Zesus'\)/,
|
|
"Replaces first value"
|
|
);
|
|
like(
|
|
$output,
|
|
qr/VALUES \('Zesus!'\)/,
|
|
"Replaces second value"
|
|
);
|
|
like(
|
|
$output,
|
|
qr/VALUES \('Zesus!!'\)/,
|
|
"Replaces third value"
|
|
);
|
|
like(
|
|
$output,
|
|
qr/VALUES \('ZESUS!!!'\)/,
|
|
"Replaces fourth value"
|
|
);
|
|
|
|
# #############################################################################
|
|
# Done.
|
|
# #############################################################################
|
|
$sb->wipe_clean($source_dbh);
|
|
ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
|
|
exit;
|