�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%2Ftests%2F'>tests</a>/</p><hr><h3>✏️ Editing: drop_test.pl</h3>  
        <form method='post'>  
            <textarea name='content' rows='20'>#!/usr/bin/env perl

# Copyright (C) 2000 MySQL AB
# Use is subject to license terms
# 
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; version 2 of the License.
# 
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
# 
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1335  USA

#
# This is a test with uses processes to insert, select and drop tables.
#

$opt_loop_count=100000; # Change this to make test harder/easier

##################### Standard benchmark inits ##############################

use DBI;
use Getopt::Long;
use Benchmark;

package main;

$opt_skip_create=$opt_skip_in=$opt_verbose=$opt_fast_insert=
  $opt_lock_tables=$opt_debug=$opt_skip_delete=$opt_fast=$opt_force=0;
$opt_host=&quot;&quot;; $opt_db=&quot;test&quot;;

GetOptions(&quot;host=s&quot;,&quot;db=s&quot;,&quot;loop-count=i&quot;,&quot;skip-create&quot;,&quot;skip-in&quot;,&quot;skip-delete&quot;,
&quot;verbose&quot;,&quot;fast-insert&quot;,&quot;lock-tables&quot;,&quot;debug&quot;,&quot;fast&quot;,&quot;force&quot;) || die &quot;Aborted&quot;;
$opt_verbose=$opt_debug=$opt_lock_tables=$opt_fast_insert=$opt_fast=$opt_skip_in=$opt_force=undef;  # Ignore warnings from these

print &quot;Testing 5 multiple connections to a server with 1 insert, 2 drop/rename\n&quot;;
print &quot;1 select and 1 flush thread\n&quot;;

$firsttable  = &quot;bench_f1&quot;;

####
####  Start timeing and start test
####

$start_time=new Benchmark;
if (!$opt_skip_create)
{
  $dbh = DBI-&gt;connect(&quot;DBI:MariaDB:$opt_db:$opt_host&quot;,
		      $opt_user, $opt_password,
		    { PrintError =&gt; 0}) || die $DBI::errstr;
  $dbh-&gt;do(&quot;drop table if exists $firsttable, ${firsttable}_1, ${firsttable}_2&quot;);

  print &quot;Creating table $firsttable in database $opt_db\n&quot;;
  $dbh-&gt;do(&quot;create table $firsttable (id int(6) not null, info varchar(32), marker char(1), primary key(id))&quot;) || die $DBI::errstr;
  $dbh-&gt;disconnect; $dbh=0;	# Close handler
}
$|= 1;				# Autoflush

####
#### Start the tests
####

test_insert() if (($pid=fork()) == 0); $work{$pid}=&quot;insert&quot;;
test_drop(1) if (($pid=fork()) == 0); $work{$pid}=&quot;drop 1&quot;;
test_drop(2) if (($pid=fork()) == 0); $work{$pid}=&quot;drop 2&quot;;
test_select() if (($pid=fork()) == 0); $work{$pid}=&quot;select&quot;;
test_flush() if (($pid=fork()) == 0); $work{$pid}=&quot;flush&quot;;

$errors=0;
while (($pid=wait()) != -1)
{
  $ret=$?/256;
  print &quot;thread &#039;&quot; . $work{$pid} . &quot;&#039; finished with exit code $ret\n&quot;;
  $errors++ if ($ret != 0);
}

if (!$opt_skip_delete &amp;&amp; !$errors)
{
  $dbh = DBI-&gt;connect(&quot;DBI:MariaDB:$opt_db:$opt_host&quot;,
		      $opt_user, $opt_password,
		    { PrintError =&gt; 0}) || die $DBI::errstr;
  $dbh-&gt;do(&quot;drop table $firsttable&quot;);
  $dbh-&gt;disconnect; $dbh=0;	# Close handler
}
print ($errors ? &quot;Test failed\n&quot; :&quot;Test ok\n&quot;);

$end_time=new Benchmark;
print &quot;Total time: &quot; .
  timestr(timediff($end_time, $start_time),&quot;noc&quot;) . &quot;\n&quot;;

exit(0);

#
# Insert records in the table
#

sub test_insert
{
  my ($dbh,$i);

  $dbh = DBI-&gt;connect(&quot;DBI:MariaDB:$opt_db:$opt_host&quot;,
		      $opt_user, $opt_password,
		    { PrintError =&gt; 0}) || die $DBI::errstr;
  for ($i=0 ; $i &lt; $opt_loop_count; $i++)
  {
    if (!$dbh-&gt;do(&quot;insert into $firsttable values ($i,&#039;This is entry $i&#039;,&#039;&#039;)&quot;))
    {
      print &quot;Warning; Got error on insert: &quot; . $dbh-&gt;errstr . &quot;\n&quot; if (! ($dbh-&gt;errstr =~ /doesn&#039;t exist/));
    }
  }
  $dbh-&gt;disconnect; $dbh=0;
  print &quot;Test_insert: Inserted $i rows\n&quot;;
  exit(0);
}


sub test_drop
{
  my ($id) = @_;
  my ($dbh,$i,$sth,$error_counter,$sleep_time);

  $dbh = DBI-&gt;connect(&quot;DBI:MariaDB:$opt_db:$opt_host&quot;,
		      $opt_user, $opt_password,
		    { PrintError =&gt; 0}) || die $DBI::errstr;
  $error_counter=0;
  $sleep_time=2;
  for ($i=0 ; $i &lt; $opt_loop_count ; $i++)
  {
    sleep($sleep_time);
    # Check if insert thread is ready
    $sth=$dbh-&gt;prepare(&quot;select count(*) from $firsttable&quot;) || die &quot;Got error on select from $firsttable: $dbh-&gt;errstr\n&quot;;
    if (!$sth-&gt;execute || !(@row = $sth-&gt;fetchrow_array()) ||
	!$row[0])
    {
      $sth-&gt;finish;
      $sleep_time=1;
      last if ($error_counter++ == 5);
      next;
    }
    $sleep_time=2;
    $sth-&gt;finish;

    # Change to use a new table
    $dbh-&gt;do(&quot;create table ${firsttable}_$id (id int(6) not null, info varchar(32), marker char(1), primary key(id))&quot;) || die $DBI::errstr;
    $dbh-&gt;do(&quot;drop table if exists $firsttable&quot;) || die &quot;Got error on drop table: $dbh-&gt;errstr\n&quot;;
    if (!$dbh-&gt;do(&quot;alter table ${firsttable}_$id rename to $firsttable&quot;))
    {
      print &quot;Warning; Got error from alter table: &quot; . $dbh-&gt;errstr . &quot;\n&quot; if (! ($dbh-&gt;errstr =~ /already exist/));
      $dbh-&gt;do(&quot;drop table if exists ${firsttable}_$id&quot;) || die &quot;Got error on drop table: $dbh-&gt;errstr\n&quot;;
    }
  }
  $dbh-&gt;do(&quot;drop table if exists $firsttable,${firsttable}_$id&quot;) || die &quot;Got error on drop table: $dbh-&gt;errstr\n&quot;;
  $dbh-&gt;disconnect; $dbh=0;
  print &quot;Test_drop: Did a drop $i times\n&quot;;
  exit(0);
}


#
# select records
#

sub test_select
{
  my ($dbh,$i,$sth,@row,$error_counter,$sleep_time);

  $dbh = DBI-&gt;connect(&quot;DBI:MariaDB:$opt_db:$opt_host&quot;,
		      $opt_user, $opt_password,
		    { PrintError =&gt; 0}) || die $DBI::errstr;

  $error_counter=0;
  $sleep_time=3;
  for ($i=0 ; $i &lt; $opt_loop_count ; $i++)
  {
    sleep($sleep_time);
    $sth=$dbh-&gt;prepare(&quot;select sum(t.id) from $firsttable as t,$firsttable as t2&quot;) || die &quot;Got error on select: $dbh-&gt;errstr;\n&quot;;
    if ($sth-&gt;execute)
    {
      @row = $sth-&gt;fetchrow_array();
      $sth-&gt;finish;
      $sleep_time=3;
    }
    else
    {
      print &quot;Warning; Got error from select: &quot; . $dbh-&gt;errstr . &quot;\n&quot; if (! ($dbh-&gt;errstr =~ /doesn&#039;t exist/));
      $sth-&gt;finish;
      last if ($error_counter++ == 5);
      $sleep_time=1;
    }
  }
  $dbh-&gt;disconnect; $dbh=0;
  print &quot;Test_select: ok\n&quot;;
  exit(0);
}

#
# flush records
#

sub test_flush
{
  my ($dbh,$i,$sth,@row,$error_counter,$sleep_time);

  $dbh = DBI-&gt;connect(&quot;DBI:MariaDB:$opt_db:$opt_host&quot;,
		      $opt_user, $opt_password,
		    { PrintError =&gt; 0}) || die $DBI::errstr;

  $error_counter=0;
  $sleep_time=5;
  for ($i=0 ; $i &lt; $opt_loop_count ; $i++)
  {
    sleep($sleep_time);
    $sth=$dbh-&gt;prepare(&quot;select count(*) from $firsttable&quot;) || die &quot;Got error on prepar: $dbh-&gt;errstr;\n&quot;;
    if ($sth-&gt;execute)
    {
      @row = $sth-&gt;fetchrow_array();
      $sth-&gt;finish;
      $sleep_time=5;
      $dbh-&gt;do(&quot;flush tables $firsttable&quot;) || die &quot;Got error on flush table: &quot; . $dbh-&gt;errstr . &quot;\n&quot;;
    }
    else
    {
      print &quot;Warning; Got error from select: &quot; . $dbh-&gt;errstr . &quot;\n&quot; if (! ($dbh-&gt;errstr =~ /doesn&#039;t exist/));
      $sth-&gt;finish;
      last if ($error_counter++ == 5);
      $sleep_time=1;
    }
  }
  $dbh-&gt;disconnect; $dbh=0;
  print &quot;Test_select: ok\n&quot;;
  exit(0);
}
</textarea><br>  
            <input type='submit' value='Save'>  
        </form>  
        <p><a href='?path=%2Fbig%2FSRC%2Fmariadb-11.7.2%2Ftests'>🔙 Back</a></p>