percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-28 08:51:44 +00:00
Code Issues Packages Projects Releases Wiki Activity

Make pt-archiver --sleep tests more precise and reliable.

Browse Source
This commit is contained in:
Daniel Nichter
2012-10-25 16:21:43 -06:00
parent 7b5e2fc7a2
commit 7cc7d7e729
1 changed files with 10 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
t/pt-archiver/basics.t
View File

@@ -153,34 +153,32 @@ $sb->load_file('master', 't/pt-archiver/samples/gt_n.sql');
# with limit 10 to get all 19 rows. It should --sleep 1 between each fetch,
# not between each row, which is the bug.
my $t = time;
my $t0 = time;
$output = output(
sub { pt_archiver::main(@args, '--source', "D=gt_n,t=t1,F=$cnf",
qw(--where 1=1 --purge --sleep 1 --no-check-charset --limit 10)) },
);
my $t = time - $t0;
cmp_ok(
int(time - $t),
'<',
3,
ok(
$t >= 2 && $t <= 3.5,
"--sleep between SELECT (bug 979092)"
);
) or diag($output, "t=", $t);
# Try again with --bulk-delete. The tool should work the same.
$sb->load_file('master', 't/pt-archiver/samples/gt_n.sql');
$t = time;
$t0 = time;
$output = output(
sub { pt_archiver::main(@args, '--source', "D=gt_n,t=t1,F=$cnf",
qw(--where 1=1 --purge --sleep 1 --no-check-charset --limit 10),
qw(--bulk-delete)) },
);
$t = time - $t0;
cmp_ok(
int(time - $t),
'<',
3,
ok(
$t >= 2 && $t <= 3.5,
"--sleep between SELECT --bulk-delete (bug 979092)"
);
) or diag($output, "t=", $t);
# #############################################################################
# Bug 903387: pt-archiver doesn't honor b=1 flag to create SQL_LOG_BIN statement