Regression test for 957442.

t/pt-query-digest/bugs.t

@@ -0,0 +1,55 @@
+#!/usr/bin/env perl
+
+BEGIN {
+   die "The PERCONA_TOOLKIT_BRANCH environment variable is not set.\n"
+      unless $ENV{PERCONA_TOOLKIT_BRANCH} && -d $ENV{PERCONA_TOOLKIT_BRANCH};
+   unshift @INC, "$ENV{PERCONA_TOOLKIT_BRANCH}/lib";
+};
+
+use strict;
+use warnings FATAL => 'all';
+use English qw(-no_match_vars);
+use Test::More;
+
+use File::Spec;
+
+use Sandbox;
+use PerconaTest;
+# See 101_slowlog_analyses.t for why we shift.
+shift @INC;  # our unshift (above)
+shift @INC;  # PerconaTest's unshift
+shift @INC;  # Sandbox
+
+require "$trunk/bin/pt-query-digest";
+
+my $dp  = new DSNParser(opts=>$dsn_opts);
+my $sb  = new Sandbox(basedir => '/tmp', DSNParser => $dp);
+my $dbh = $sb->get_dbh_for('master');
+
+if ( !$dbh ) {
+   plan skip_all => 'Cannot connect to sandbox master';
+}
+
+my $output  = '';
+my $exit_status;
+my $cnf     = 'h=127.1,P=12345,u=msandbox,p=msandbox';
+my $samples = File::Spec->catfile($trunk, qw(t pt-query-digest samples));
+
+
+$output = output(sub {
+   $exit_status = pt_query_digest::main('--group-by=page',
+         '--filter', File::Spec->catfile($samples, 'bug_957442_filter.pl'),
+         File::Spec->catfile($samples, 'bug_957442_sample.log'))
+});
+
+ok(
+   !$exit_status,
+   "Bug 957442: No error with a custom --filter & --group-by=page"
+);
+
+# #############################################################################
+# Done.
+# #############################################################################
+$sb->wipe_clean($dbh);
+ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
+done_testing;