Add forked Maatkit tools in bin/ and their tests in t/.

2026-05-05 01:00:35 +08:00 · 2011-06-24 16:02:05 -06:00
parent 6c501128e6
commit b4b6376be1
679 changed files with 177876 additions and 3 deletions
@@ -0,0 +1,40 @@
+#!/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 tests => 2;
+
+use MaatkitTest;
+
+my $run_with = "$trunk/bin/pt-query-digest --report-format=query_report --limit 10 $trunk/t/lib/samples/slowlogs/";
+
+# #############################################################################
+# Issue 232: mk-query-digest does not properly handle logs with an empty Schema:
+# #############################################################################
+my $output = 'foo'; # clear previous test results
+my $cmd = "${run_with}slow026.txt";
+$output = `MKDEBUG=1 $cmd 2>&1`;
+# Changed qr// from matching db to Schema because attribs are auto-detected.
+like(
+   $output,
+   qr/Type for db is string /,
+   'Type for empty Schema: is string (issue 232)',
+);
+
+unlike(
+   $output,
+   qr/Argument "" isn't numeric in numeric gt/,
+   'No error message in debug output for empty Schema: (issue 232)'
+);
+
+# #############################################################################
+# Done.
+# #############################################################################
+exit;