← Back to branch summary

~edgarsi/percona-toolkit/osc-stop-restart

« back to all changes in this revision

Viewing changes to t/pt-query-digest/processlist.t

Merge fix-pqd-distill-bug-821690.

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/pt-query-digest/processlist.t
27
27
if ( !$dbh ) {
28
28
   plan skip_all => 'Cannot connect to sandbox master';
29
29
}
30
 
else {
31
 
   plan tests => 3;
32
 
}
33
30
 
34
31
my @args = qw(-F /tmp/12345/my.sandbox.cnf --processlist h=127.1 --report-format query_report);
35
32
 
58
55
# the usual stddev. -- stddev doesn't matter much.  It's the other vals
59
56
# that indicate that --processlist works.
60
57
$exec =~ s/(\S+)      3s$/786ms      3s/;
61
 
TODO: {
62
 
    local $::TODO = "This is a timing-related test, which may occasionally fail";
63
 
    ok(
64
 
    no_diff(
65
 
        $exec,
66
 
        "t/pt-query-digest/samples/proclist001.txt",
67
 
        cmd_output => 1,
68
 
    ),
69
 
    "--processlist correctly observes and measures multiple queries"
70
 
    );
71
 
}
 
58
ok(
 
59
   no_diff(
 
60
      $exec,
 
61
      "t/pt-query-digest/samples/proclist001.txt",
 
62
      cmd_output => 1,
 
63
   ),
 
64
   "--processlist correctly observes and measures multiple queries"
 
65
);
72
66
 
73
67
# #############################################################################
74
68
# Done.
75
69
# #############################################################################
76
70
$sb->wipe_clean($dbh);
77
71
ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
78
 
exit;
 
72
done_testing;