WL#12137: ENHANCE MTR TO DISABLE/ENABLE SECONDARY STORAGE ENGINE

Description:
------------
MySQL now supports secondary storage engine for a table.

This WL will introduce a new MTR option --secondary-engine=engine_name.

  * When --secondary-engine=engine_name option is enabled, MTR will
    take care of doing the necessary setup needed to support the
    secondary engine.

  * Engine name argument value is case-insensitive.

  * MTR will throw an error if an engine name arguments is not valid.

Change-Id: I032d30994141fc213dc05ed16238ff03af0a5bf6

Author: Pavan Naik

mysql-test/lib/My/ConfigFactory.pm

@@ -313,6 +313,45 @@ if (IS_WINDOWS) {
   push(@mysqld_rules, { 'shared-memory-base-name' => \&fix_socket });
 }
 
+sub fix_memory_heap_size {
+  return 8 * 1024 * 1024 * 1024;
+}
+
+sub fix_network_interface {
+  return My::SysInfo->network_interface();
+}
+
+# Rules to run for each mysqld server in the config if
+# secondary engine rapid is enabled.
+#  - will be run in order listed here
+my @rapid_mysqld_rules = ({ 'binlog-format'             => "ROW" },
+                          { 'binlog-row-image'          => "FULL" },
+                          { 'binlog-checksum'           => "NONE" },
+                          { 'gtid-mode'                 => "OFF" },
+                          { 'log-bin'                   => "binlog" },
+                          { 'innodb_buffer_pool_size'   => 268435456 },
+                          { 'innodb_read_io_threads'    => 32 },
+                          { 'innodb_thread_concurrency' => 32 },
+                          { 'innodb_use_native_aio'     => "ON" },);
+
+# Rules to run for each rapid server in the config
+#  - will be run in order listed here
+my @rapid_rules = (
+  { 'load_multi_buffering'              => 2 },
+  { 'memory_heap_size'                  => \&fix_memory_heap_size },
+  { 'orma_heartbeat_check_interval'     => 60 },
+  { 'orma_rapid_nodes_join_timeout_sec' => 300 },
+  { 'query_network_dump'                => 0 },
+  { 'rapid_enabled'                     => 1 },
+  { 'rapid_settings'                    => 149 },
+  { 'trans_interface'                   => \&fix_network_interface },
+  { 'trans_ipc_enabled'                 => 1 },
+  { 'trans_iplist'                      => "127.0.0.1" },
+  { 'trans_spareiplist'                 => "" },
+
+  { 'trans_ports' => sub { return $::rapid_port }
+  },);
+
 sub fix_ndb_mgmd_port {
   my ($self, $config, $group_name, $group) = @_;
   my $hostname = $group->value('HostName');
@@ -376,6 +415,44 @@ my @mysqlbinlog_rules = (
 #  - will be run in order listed here
 my @mysql_upgrade_rules = ();
 
+# Generate a [rapid] group to be used for connecting
+# to a rapid server.
+sub post_check_rapid_group {
+  my ($self, $config) = @_;
+
+  foreach my $hash (@rapid_rules) {
+    while (my ($option, $rule) = each(%{$hash})) {
+      my $value;
+      if (ref $rule eq "CODE") {
+        # Call the rule function
+        $value = &$rule($self, $config);
+      } else {
+        $value = $rule;
+      }
+      $config->insert("rapid", $option, $value);
+    }
+  }
+}
+
+# Insert mysqld server options required when secondary engine
+# rapid is enabled.
+sub post_check_rapid_mysqld_group {
+  my ($self, $config) = @_;
+
+  foreach my $hash (@rapid_mysqld_rules) {
+    while (my ($option, $rule) = each(%{$hash})) {
+      my $value;
+      if (ref $rule eq "CODE") {
+        # Call the rule function
+        $value = &$rule($self, $config);
+      } else {
+        $value = $rule;
+      }
+      $config->insert("mysqld", $option, $value);
+    }
+  }
+}
+
 # Generate a [client.<suffix>] group to be used for
 # connecting to [mysqld.<suffix>].
 sub post_check_client_group {
@@ -633,6 +710,13 @@ sub new_config {
   $self->run_rules_for_group($config, $config->insert('mysqltest'),
                              @mysqltest_rules);
 
+  if ($::secondary_engine_rapid) {
+    # Additional rules required for [rapid]
+    push(@post_rules, \&post_check_rapid_group);
+    # Additional rules required for [mysqld] when rapid is enabled
+    push(@post_rules, \&post_check_rapid_mysqld_group);
+  }
+
   # Run post rules
   foreach my $rule (@post_rules) {
     &$rule($self, $config);

mysql-test/lib/My/CoreDump.pm

@@ -31,7 +31,7 @@ use My::Platform;
 use mtr_results;
 
 # Last resort guess for executable path
-my $hint_mysqld;
+my $hint_exe;
 
 # If path in core file is 79 chars we assume it's been truncated.
 # Looks like we can still find the full path using 'strings'. If
@@ -40,7 +40,11 @@ sub _verify_binpath {
   my ($binary, $core_name) = @_;
 
   my $binpath;
-  if (length $binary != 79) {
+  if ($::secondary_engine_rapid) {
+    return unless $hint_exe;
+    $binpath = $hint_exe;
+    print "Core generated by '$binpath'\n";
+  } elsif (length $binary != 79) {
     $binpath = $binary;
     print "Core generated by '$binpath'\n";
   } else {
@@ -49,8 +53,8 @@ sub _verify_binpath {
       $binpath = $1;
       print "Guessing that core was generated by '$binpath'\n";
     } else {
-      return unless $hint_mysqld;
-      $binpath = $hint_mysqld;
+      return unless $hint_exe;
+      $binpath = $hint_exe;
       print "Wild guess that core was generated by '$binpath'\n";
     }
   }
@@ -261,7 +265,7 @@ EOF
 
 sub show {
   my ($class, $core_name, $exe_mysqld, $parallel) = @_;
-  $hint_mysqld = $exe_mysqld;
+  $hint_exe = $exe_mysqld;
 
   # On Windows, rely on cdb to be there.
   if (IS_WINDOWS) {

mysql-test/lib/My/SysInfo.pm

@@ -223,4 +223,21 @@ sub print_info {
   }
 }
 
+# Return the network interface
+sub network_interface {
+  my $out = (IS_WINDOWS) ? 'nul' : '/dev/null';
+
+  # Hardcode the default value, in case the below check fails.
+  my $network_interface = "eth0";
+
+  `ip link 2> $out`;
+  if ($? == 0) {
+    $network_interface =
+`ip link show | grep "state UP" | cut -d ':' -f 2 | tr -d ' ' | head -n1 2> $out`;
+    chomp($network_interface);
+  }
+
+  return $network_interface;
+}
+
 1;