mirror of
https://github.com/percona/percona-toolkit.git
synced 2025-09-03 11:05:48 +00:00
9e832790f8
This introduces a L option to the DSNs of pt-upgrade and pt-archiver, which turns on mysql_local_infile.
97 lines
2.9 KiB
Perl
97 lines
2.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-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';
|
|
}
|
|
|
|
my $output;
|
|
my $cnf = "/tmp/12345/my.sandbox.cnf";
|
|
# Add path to samples to Perl's INC so the tool can find the module.
|
|
my $cmd = "perl -I $trunk/t/pt-archiver/samples $trunk/bin/pt-archiver";
|
|
|
|
# #############################################################################
|
|
# First run without the plugin to get a reference for how the tables should
|
|
# be after a normal bulk insert run.
|
|
# #############################################################################
|
|
$sb->load_file('master', "t/pt-archiver/samples/bulk_regular_insert.sql");
|
|
$dbh->do('use bri');
|
|
|
|
output(
|
|
sub { pt_archiver::main("--source", "F=$cnf,D=bri,t=t,L=1", qw(--dest t=t_arch --where 1=1 --bulk-insert --limit 3)) },
|
|
);
|
|
|
|
my $t_rows = $dbh->selectall_arrayref('select * from t order by id');
|
|
my $t_arch_rows = $dbh->selectall_arrayref('select * from t_arch order by id');
|
|
|
|
is_deeply(
|
|
$t_rows,
|
|
[ ['10', 'jj', '11:11:10'] ],
|
|
"Table after normal bulk insert"
|
|
);
|
|
|
|
is_deeply(
|
|
$t_arch_rows,
|
|
[
|
|
['1','aa','11:11:11'],
|
|
['2','bb','11:11:12'],
|
|
['3','cc','11:11:13'],
|
|
['4','dd','11:11:14'],
|
|
['5','ee','11:11:15'],
|
|
['6','ff','11:11:16'],
|
|
['7','gg','11:11:17'],
|
|
['8','hh','11:11:18'],
|
|
['9','ii','11:11:19'],
|
|
],
|
|
"Archive table after normal bulk insert"
|
|
);
|
|
|
|
# #############################################################################
|
|
# Do it again with the plugin. The tables should be identical.
|
|
# #############################################################################
|
|
$sb->load_file('master', "t/pt-archiver/samples/bulk_regular_insert.sql");
|
|
$dbh->do('use bri');
|
|
|
|
`$cmd --source F=$cnf,D=bri,t=t,L=1 --dest t=t_arch,m=bulk_regular_insert --where "1=1" --bulk-insert --limit 3`;
|
|
|
|
my $bri_t_rows = $dbh->selectall_arrayref('select * from t order by id');
|
|
my $bri_t_arch_rows = $dbh->selectall_arrayref('select * from t_arch order by id');
|
|
|
|
is_deeply(
|
|
$bri_t_rows,
|
|
$t_rows,
|
|
"Table after bulk_regular_insert"
|
|
);
|
|
|
|
is_deeply(
|
|
$bri_t_arch_rows,
|
|
$t_arch_rows,
|
|
"Archive table after bulk_regular_insert"
|
|
);
|
|
|
|
# #############################################################################
|
|
# Done.
|
|
# #############################################################################
|
|
$sb->wipe_clean($dbh);
|
|
ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
|
|
done_testing;
|
|
exit;
|