--disable_ps_protocol

SET GLOBAL net_write_timeout = 900; 

CREATE TABLE A (
  pk INTEGER AUTO_INCREMENT PRIMARY KEY,
  fdate DATE
) ENGINE=MyISAM;

--delimiter |

CREATE PROCEDURE p_analyze()
BEGIN
  DECLARE attempts INTEGER DEFAULT 100;
  wl_loop: WHILE attempts > 0 DO
    ANALYZE TABLE A;
    SET attempts = attempts - 1;
  END WHILE wl_loop;
END |

CREATE FUNCTION rnd3() RETURNS INT
BEGIN
  RETURN ROUND(3 * RAND() + 0.5);
END |

--delimiter ;

SET GLOBAL use_stat_tables = PREFERABLY;  

--let $trial = 100

--disable_query_log
--disable_result_log
--disable_warnings
while ($trial)
{

  --connect (con1,localhost,root,,)
  --send CALL p_analyze()

  --connect (con2,localhost,root,,)
  --send CALL p_analyze()

  --let $run = 100

  while ($run)
  {
    --connect (con3,localhost,root,,)
  
    let $query = `SELECT CASE rnd3() 
      WHEN 1 THEN 'INSERT INTO A (pk) VALUES (NULL)'
      WHEN 2 THEN 'DELETE FROM A LIMIT 1'
      ELSE 'UPDATE A SET fdate = 2 LIMIT 1' END`;
    --eval $query
    --disconnect con3
    --dec $run
  }

  --connection con2
  --reap
  --disconnect con2
  --connection con1
  --reap
  --disconnect con1

  --dec $trial
}

--enable_query_log
--enable_result_log
--enable_warnings

# Cleanup
--connection default
DROP TABLE A;
DROP PROCEDURE p_analyze;
DROP FUNCTION rnd3;
SET GLOBAL use_stat_tables = DEFAULT;
SET GLOBAL net_write_timeout = DEFAULT;