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

Fix 'unexpectedly succeeded' in t/pt-query-digest/processlist.t.

Browse Source
This commit is contained in:
Daniel Nichter
2013-08-03 14:06:08 -07:00
parent 8773236f7e
commit 952ebc574c
1 changed files with 9 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
t/pt-query-digest/processlist.t
View File

@@ -27,9 +27,6 @@ my $dbh = $sb->get_dbh_for('master');
if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
}
else {
plan tests => 3;
}
my @args = qw(-F /tmp/12345/my.sandbox.cnf --processlist h=127.1 --report-format query_report);
@@ -58,21 +55,18 @@ my $output = output(
# the usual stddev. -- stddev doesn't matter much. It's the other vals
# that indicate that --processlist works.
$exec =~ s/(\S+) 3s$/786ms 3s/;
TODO: {
local $::TODO = "This is a timing-related test, which may occasionally fail";
ok(
no_diff(
$exec,
"t/pt-query-digest/samples/proclist001.txt",
cmd_output => 1,
),
"--processlist correctly observes and measures multiple queries"
);
}
ok(
no_diff(
$exec,
"t/pt-query-digest/samples/proclist001.txt",
cmd_output => 1,
),
"--processlist correctly observes and measures multiple queries"
);
# #############################################################################
# Done.
# #############################################################################
$sb->wipe_clean($dbh);
ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
exit;
done_testing;