1 files changed, 85 insertions, 0 deletions
diff --git a/mysql-test/include/log_grep.inc b/mysql-test/include/log_grep.inc
new file mode 100644
index 00000000..a2b0c383
--- /dev/null
+++ b/mysql-test/include/log_grep.inc
@@ -0,0 +1,85 @@
+if ($log_expected_matches) {
+  --echo [log_grep.inc] file: $log_file pattern: $grep_pattern expected_matches: $log_expected_matches
+}
+if (!$log_expected_matches) {
+  --echo [log_grep.inc] file: $log_file pattern: $grep_pattern
+}
+--let LOG_GREP_PERL_RESULT=$MYSQL_TMP_DIR/log_grep_perl_result.test
+perl;
+
+  open my $command_file, ">", "$ENV{'LOG_GREP_PERL_RESULT'}" or die "Cannot create file";
+
+  $log_file=           $ENV{'log_file'};
+  $log_file_full_path= $ENV{'log_file_full_path'};
+  $log_slow_rate_test= $ENV{'log_slow_rate_test'};
+  open(FILE, "$log_file_full_path")
+    or die("Cannot open file $log_file_full_path: $!\n");
+
+  if ($log_slow_rate_test) {
+    $one= 0;
+    $two= 0;
+    $three= 0;
+    while(<FILE>) {
+      $one++   if(/'connection_one'/);
+      $two++   if(/'connection_two'/);
+      $three++ if(/'connection_three'/);
+    }
+    $sum= $one + $two + $three;
+    $zero= 0;
+    if ($one == 0) {
+      $zero++;
+    }
+    if ($two == 0) {
+      $zero++;
+    }
+    if ($three == 0) {
+      $zero++;
+    }
+    print "[log_grep.inc] sum:  $sum\n";
+    print "[log_grep.inc] zero: $zero\n";
+  }
+  else {
+    $grep_pattern=       $ENV{'grep_pattern'};
+    $lines= 0;
+    while(<FILE>) {
+      $lines++ if (/$grep_pattern/);
+    }
+    $log_expected_matches= $ENV{'log_expected_matches'};
+    if ($log_expected_matches) {
+      if ($log_expected_matches != $lines) {
+        print "[log_grep.inc] ERROR: expected matches: $log_expected_matches, actual matches: $lines\n";
+        print "[log_grep.inc] log file at $log_file_full_path\n";
+        close(FILE);
+        open(FILE, "$log_file_full_path")
+          or die("Cannot open file $log_file_full_path: $!\n");
+        while (<FILE>) {
+          print ;
+        }
+        print $command_file "--let \$log_grep_failed= 1;\n";
+      } else {
+        print "[log_grep.inc] found expected match count: $log_expected_matches\n";
+      }
+    } else {
+      print "[log_grep.inc] lines:   $lines\n";
+    }
+  }
+  close(FILE);
+  close($command_file);
+EOF
+--source $LOG_GREP_PERL_RESULT
+--remove_file $LOG_GREP_PERL_RESULT
+if ($log_grep_failed)
+{
+  SHOW SESSION STATUS LIKE 'Slow_queries';
+  SHOW GLOBAL VARIABLES LIKE 'log%';
+  SHOW GLOBAL VARIABLES LIKE 'long_query_time';
+  SHOW GLOBAL VARIABLES LIKE 'min_examined_row_limit';
+  SHOW GLOBAL VARIABLES LIKE 'query_cache%';
+  SHOW GLOBAL VARIABLES LIKE 'slow_query%';
+  SHOW SESSION VARIABLES LIKE 'log%';
+  SHOW SESSION VARIABLES LIKE 'long_query_time';
+  SHOW SESSION VARIABLES LIKE 'min_examined_row_limit';
+  SHOW SESSION VARIABLES LIKE 'query_cache%';
+  SHOW SESSION VARIABLES LIKE 'slow_query%';
+  --die Testcase failed!
+}