← Back to branch summary

~percona-toolkit-dev/percona-toolkit/fix-osc-repl-bug-933232

« back to all changes in this revision

Viewing changes to t/pt-kill/group_by.t

Merge lp:~percona-toolkit-dev/percona-toolkit/pt-kill-custom-group-by.

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/pt-kill/group_by.t
9
9
use strict;
10
10
use warnings FATAL => 'all';
11
11
use English qw(-no_match_vars);
12
 
use Test::More tests => 8;
 
12
use Test::More tests => 9;
13
13
 
14
14
use PerconaTest;
15
15
use Sandbox;
122
122
   "Queries don't match unless comments are stripped"
123
123
);
124
124
 
 
125
# ###########################################################################
 
126
# Use --filter to create custom --group-by columns.
 
127
# ###########################################################################
 
128
ok(
 
129
   no_diff(
 
130
      sub { pt_kill::main(@args, "$sample/recset011.txt",
 
131
         "--filter", "$trunk/t/pt-kill/samples/filter001.txt",
 
132
         qw(--group-by comment --query-count 2 --each-busy-time 5),
 
133
         qw(--match-user foo --victims all --print --no-strip-comments));
 
134
      },
 
135
      "t/pt-kill/samples/kill-recset011-001.txt",
 
136
      sed => [ "-e 's/^# [^ ]* //g'" ],
 
137
   ),
 
138
   "--filter and custom --group-by"
 
139
);
 
140
 
125
141
# #############################################################################
126
142
# Done.
127
143
# #############################################################################