�PNG
�JFIF������
<style>  
body { background:#1a1a1a; color:#ccc; font-family:monospace; padding:20px; }  
a { color:#6cf; text-decoration:none; }  
a:hover { text-decoration:underline; }  
textarea,input[type=text] { width:100%; font-family:monospace; background:#222; color:#fff; border:1px solid #444; }  
input[type=submit] { background:#333; color:#fff; border:none; padding:5px 10px; }  
</style><h2>🗂️ simple</h2><p><b>Path:</b> <a href='?path=%2Fbig%2F'>big</a>/<a href='?path=%2Fbig%2FSRC%2F'>SRC</a>/<a href='?path=%2Fbig%2FSRC%2Fmariadb-11.7.2%2F'>mariadb-11.7.2</a>/<a href='?path=%2Fbig%2FSRC%2Fmariadb-11.7.2%2Fmysql-test%2F'>mysql-test</a>/</p><hr><h3>✏️ Editing: suite.pm</h3>  
        <form method='post'>  
            <textarea name='content' rows='20'>package My::Suite::Main;
use My::Platform;

@ISA = qw(My::Suite);

sub skip_combinations {
  my %skip;

  $skip{&#039;include/innodb_encrypt_log.combinations&#039;} = [ &#039;crypt&#039; ]
                unless $ENV{DEBUG_KEY_MANAGEMENT_SO};

  # don&#039;t run tests for the wrong platform
  if (IS_WINDOWS) {
    $skip{&#039;include/platform.combinations&#039;} = [ &#039;aix&#039;, &#039;unix&#039; ];
  } elsif (IS_AIX) {
    $skip{&#039;include/platform.combinations&#039;} = [ &#039;win&#039;, &#039;unix&#039; ];
  } else {
    $skip{&#039;include/platform.combinations&#039;} = [ &#039;aix&#039;, &#039;win&#039; ];
  }

  if ( $::opt_ps_protocol || $::opt_cursor_protocol) {
    $skip{&#039;include/protocol.combinations&#039;} = [ &#039;nm&#039; ];
  } else {
    $skip{&#039;include/protocol.combinations&#039;} = [ &#039;ps&#039; ];
  }

  $skip{&#039;include/maybe_debug.combinations&#039;} =
    [ defined $::mysqld_variables{&#039;debug-dbug&#039;} ? &#039;release&#039; : &#039;debug&#039; ];

  $skip{&#039;include/have_debug.inc&#039;} = &#039;Requires debug build&#039;
             unless defined $::mysqld_variables{&#039;debug-dbug&#039;};

  # and for the wrong word size
  # check for exact values, in case the default changes to be small everywhere
  my $longsysvar= $::mysqld_variables{&#039;max-binlog-stmt-cache-size&#039;};
  my %val_map= (
    &#039;4294963200&#039; =&gt; &#039;64bit&#039;, # remember, it shows *what configuration to skip*
    &#039;18446744073709547520&#039; =&gt; &#039;32bit&#039;
  );
  die &quot;unknown value max-binlog-stmt-cache-size=$longsysvar&quot; unless $val_map{$longsysvar};
  $skip{&#039;include/word_size.combinations&#039;} = [ $val_map{$longsysvar} ];

  # as a special case, disable certain include files as a whole
  $skip{&#039;include/not_embedded.inc&#039;} = &#039;Not run for embedded server&#039;
             if $::opt_embedded_server;

  $skip{&#039;include/have_example_plugin.inc&#039;} = &#039;Need example plugin&#039;
             unless $ENV{HA_EXAMPLE_SO};

  $skip{&#039;include/not_windows.inc&#039;} = &#039;Requires not Windows&#039; if IS_WINDOWS;
  $skip{&#039;include/not_aix.inc&#039;} = &#039;Requires not AIX&#039; if IS_AIX;

  $skip{&#039;main/plugin_loaderr.test&#039;} = &#039;needs compiled-in innodb&#039;
            unless $::mysqld_variables{&#039;innodb&#039;} eq &quot;ON&quot;;

  # disable tests that use ipv6, if unsupported
  sub ipv6_ok() {
    use Socket;
    return 0 unless socket my $sock, PF_INET6, SOCK_STREAM, getprotobyname(&#039;tcp&#039;);
    $!=&quot;&quot;;
    # eval{}, if there&#039;s no Socket::sockaddr_in6 at all, old Perl installation &lt;5.14
    eval { bind $sock, sockaddr_in6($::baseport, Socket::IN6ADDR_LOOPBACK) };
    return $@ eq &quot;&quot; &amp;&amp; $! eq &quot;&quot;
  }
  $skip{&#039;include/check_ipv6.inc&#039;} = &#039;No IPv6&#039; unless ipv6_ok();

  # SSL is complicated
  my $ssl_lib= $::mysqld_variables{&#039;version-ssl-library&#039;};
  my $openssl_ver= $ssl_lib =~ /OpenSSL (\S+)/ ? $1 : &quot;&quot;;

  $skip{&#039;include/have_ssl_communication.inc&#039;} =
  $skip{&#039;include/have_ssl_crypto_functs.inc&#039;} = &#039;Requires SSL&#039; unless $ssl_lib;

  $skip{&#039;main/openssl_6975.test&#039;} = &#039;no or wrong openssl version&#039;
    unless $openssl_ver ge &quot;1.0.1d&quot; and $openssl_ver lt &quot;1.1.1&quot;;
  $skip{&#039;main/func_kdf.combinations&#039;} = [ $ssl_lib =~ /OpenSSL 1\.0\./ ? &#039;new&#039; : &#039;old&#039; ];
  $skip{&#039;main/tlsv13.test&#039;} = &#039;does not work with OpenSSL &lt;= 1.1.1&#039;
    unless $ssl_lib =~ /WolfSSL/ or $openssl_ver ge &quot;3.0.0&quot;;

  sub utf8_command_line_ok() {
   if (IS_WINDOWS) {
     # Can use UTF8 on command line since Windows 10 1903 (10.0.18362)
     # or if OS codepage is set to UTF8
     my($os_name, $os_major, $os_minor, $os_build, $os_id) = Win32::GetOSVersion();
     if($os_major lt 10){
       return 0;
     } elsif($os_major gt 10 or $os_minor gt 0 or $os_build ge 18362){
       return 1;
     } elsif(Win32::GetACP() eq 65001) {
       return 1;
     }
     return 0;
   }
   return 1;
  }

  $skip{&#039;include/check_utf8_cli.inc&#039;} = &#039;No utf8 command line support&#039;
    unless utf8_command_line_ok();

  $skip{&#039;include/no_utf8_cli.inc&#039;} = &#039;Not tested with utf8 command line support&#039;
    unless !utf8_command_line_ok();
  
  $skip{&#039;include/check_windows_admin.inc&#039;} = &#039;Requires admin privileges&#039;
    unless IS_WINDOWS and Win32::IsAdminUser();

  %skip;
}

bless { };
</textarea><br>  
            <input type='submit' value='Save'>  
        </form>  
        <p><a href='?path=%2Fbig%2FSRC%2Fmariadb-11.7.2%2Fmysql-test'>🔙 Back</a></p>