percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-26 15:31:55 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix pt-archiver tests to work with PXC in cluster mode. dest.t is still a work in progress.

Browse Source
This commit is contained in:
Daniel Nichter
2012-11-30 18:16:11 +00:00
parent 065e0a8c5e f6fd2b7470
commit 2da682dff3
9 changed files with 284 additions and 233 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
t/pt-archiver/dest.t
View File

@@ -10,6 +10,7 @@ use strict;
use warnings FATAL => 'all';
use English qw(-no_match_vars);
use Test::More;
use Data::Dumper;
use PerconaTest;
use Sandbox;
@@ -22,9 +23,6 @@ my $dbh = $sb->get_dbh_for('master');
if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
}
else {
plan tests => 14;
}
my $output;
my $rows;
@@ -64,8 +62,7 @@ is_deeply(
{ a => '3', b => '2', c => '3', d => undef },
{ a => '4', b => '2', c => '3', d => undef },
],
'Found rows in new table OK when archiving only some columns to another table');
'Found rows in new table OK when archiving only some columns to another table') or diag(Dumper($rows));
# Archive to another table with autocommit
$sb->load_file('master', 't/pt-archiver/samples/tables1-4.sql');
@@ -102,4 +99,4 @@ is($output + 0, 10, 'Rows got archived');
# #############################################################################
$sb->wipe_clean($dbh);
ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
exit;
done_testing;