percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-09 07:30:02 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix pt-archiver tests.

Browse Source
This commit is contained in:
Daniel Nichter
2012-02-01 10:21:30 -07:00
parent 84929a0408
commit 4408123ea8
3 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
t/pt-archiver/issue_1152.t
View File

@@ -19,6 +19,9 @@ my $dp = new DSNParser(opts=>$dsn_opts);
my $sb = new Sandbox(basedir => '/tmp', DSNParser => $dp);
my $dbh = $sb->get_dbh_for('master');
# This issue/bug seems not to have been reproduced or followed up on.
plan skip_all => "issue 1152";
if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
}

2
t/pt-archiver/issue_1229.t
View File

@@ -36,7 +36,7 @@ my $file = "/tmp/mk-archiver-file.txt";
# archive to file
# #############################################################################
$sb->load_file('master', 't/pt-archiver/samples/issue_1225.sql');
PerconaTest::wait_for_table($dbh, 'issue_1225.t');
PerconaTest::wait_for_table($dbh, 'issue_1225.t', "i=2");
$dbh->do('set names "utf8"');
my $original_rows = $dbh->selectall_arrayref('select * from issue_1225.t where i in (1, 2)');

1
t/pt-archiver/issue_655.t
View File

@@ -39,6 +39,7 @@ $sb->create_dbs($dbh, ['test']);
$dbh->do('CREATE TABLE test.t (i int)');
$output = output(
sub { pt_archiver::main(qw(--where 1=1), "--source", "F=$cnf,D=test,t=t", qw(--purge --primary-key-only)) },
stderr => 1,
);
unlike(
$output,