~drizzle-trunk/drizzle/development

#  See the "MySQL Test framework manual" for more information

require "lib/mtr_cases.pl";

require "lib/mtr_process.pl";

require "lib/mtr_timer.pl";

require "lib/mtr_io.pl";

require "lib/mtr_gcov.pl";

require "lib/mtr_gprof.pl";

require "lib/mtr_report.pl";

require "lib/mtr_match.pl";

require "lib/mtr_misc.pl";

require "lib/mtr_stress.pl";

require "lib/mtr_unique.pl";

our $path_charsetsdir;

our $path_share;

our $path_language;

our $path_mysqltest_log;

our $exe_mysql;

our $exe_mysqladmin;

our $exe_mysqlbinlog;

our $exe_mysql_client_test;

our $exe_mysqld;

our $exe_mysqlcheck;

our $exe_mysqldump;

our $exe_mysqlslap;

our $exe_mysqlimport;

our $exe_mysql_fix_system_tables;

our $exe_mysqltest;

my $opt_valgrind_mysqltest= 0;

sub run_mysqltest ($);

             'valgrind-mysqltest'       => \$opt_valgrind_mysqltest,

  if ( -d "../server" )

  # Look for language files and charsetsdir, use same share

  $path_share=      mtr_path_exists("$glob_basedir/share/mysql",

                                    "$glob_basedir/server/share",

                                    "$glob_basedir/share");

 

  $path_language=      mtr_path_exists("$path_share/english");

  $path_charsetsdir=   mtr_path_exists("$path_share/charsets");

 

 

    $exe_mysqld=       mtr_exe_exists ("$glob_basedir/server/drizzled",

  $exe_master_mysqld= $exe_master_mysqld || $exe_mysqld;

  $exe_slave_mysqld=  $exe_slave_mysqld  || $exe_mysqld;

    $opt_valgrind_mysqltest= 1;

  elsif ( $opt_valgrind_mysqltest )

    mtr_report("Turning on valgrind for mysqltest and mysql_client_test only");

  $path_timefile=  "$opt_vardir/log/mysqltest-time";

  $path_mysqltest_log=  "$opt_vardir/log/mysqltest.log";

  my $list= `$exe_mysqld --no-defaults --datadir=$tmpdir --language=$path_language --skip-grant-tables --verbose --help`;

      my $exe_name= basename($exe_mysqld);

  my $cmd= "$exe_mysql " . join(' ', @$args);

  $exe_mysqlcheck= mtr_exe_exists("$path_client_bindir/mysqlcheck");

  $exe_mysqldump= mtr_exe_exists("$path_client_bindir/mysqldump");

  $exe_mysqlimport= mtr_exe_exists("$path_client_bindir/mysqlimport");

  $exe_mysqlbinlog= mtr_exe_exists("$path_client_bindir/mysqlbinlog");

  $exe_mysqladmin= mtr_exe_exists("$path_client_bindir/mysqladmin");

  $exe_mysql=          mtr_exe_exists("$path_client_bindir/mysql");

    if ( $mysql_version_id >= 50100 )

    {

      $exe_mysqlslap= mtr_exe_exists("$path_client_bindir/mysqlslap");

    }

# Look for mysqltest executable

    $exe_mysqltest= mtr_exe_exists("$path_client_bindir/mysqltest");

# Look for mysql_client_test executable which may _not_ exist in

    $exe_mysql_client_test=

          "$glob_basedir/tests/mysql_client_test",

          "$glob_basedir/bin/mysql_client_test");

    mtr_native_path($exe_mysqldump) .

sub mysql_client_test_arguments()

  my $exe= $exe_mysql_client_test;

  if ( $opt_valgrind_mysqltest )

      "--debug=d:t:A,$path_vardir_trace/log/mysql_client_test.trace");

  $ENV{'CHARSETSDIR'}=              $path_charsetsdir;

  $ENV{'MYSQL_TEST_DIR'}=     $glob_mysql_test_dir;

  $ENV{'MYSQL_TMP_DIR'}=      $opt_tmpdir;

  $ENV{'MYSQL_TCP_PORT'}=     $mysqld_variables{'port'};

  $ENV{'EXE_MYSQL'}=          $exe_mysql;

    mtr_native_path($exe_mysqlcheck) .

  $ENV{'MYSQL_CHECK'}=              $cmdline_mysqlcheck;

  $ENV{'MYSQL_DUMP'}= $cmdline_mysqldump;

  $ENV{'MYSQL_DUMP_SLAVE'}= $cmdline_mysqldumpslave;

 

  if ( $exe_mysqlslap )

    my $cmdline_mysqlslap=

      mtr_native_path($exe_mysqlslap) .

      $cmdline_mysqlslap .=

        " --debug=d:t:A,$path_vardir_trace/log/mysqlslap.trace";

    $ENV{'MYSQL_SLAP'}= $cmdline_mysqlslap;

    mtr_native_path($exe_mysqlimport) .

  $ENV{'MYSQL_IMPORT'}= $cmdline_mysqlimport;

 

 

  # ----------------------------------------------------

  # Setup env so childs can execute mysqlbinlog

  # ----------------------------------------------------

  my $cmdline_mysqlbinlog=

    mtr_native_path($exe_mysqlbinlog) .

      " --no-defaults --disable-force-if-open --debug-check";

  if ( !$opt_extern && $mysql_version_id >= 50000 )

  {

    $cmdline_mysqlbinlog .=" --character-sets-dir=$path_charsetsdir";

  }

 

  if ( $opt_debug )

  {

    $cmdline_mysqlbinlog .=

      " --debug=d:t:A,$path_vardir_trace/log/mysqlbinlog.trace";

  }

  $ENV{'MYSQL_BINLOG'}= $cmdline_mysqlbinlog;

    mtr_native_path($exe_mysql) .

    "--port=$master->[0]->{'port'} " .

    "--character-sets-dir=$path_charsetsdir";

  $ENV{'MYSQL_BUG25714'}=  $exe_bug25714;

  # Setup env so childs can execute mysql_client_test

  $ENV{'MYSQL_CLIENT_TEST'}=  mysql_client_test_arguments();

      "$exe_mysql_fix_system_tables --no-defaults --host=localhost " .

    $ENV{'MYSQL_FIX_SYSTEM_TABLES'}=  $cmdline_mysql_fix_system_tables;

  $ENV{'MYSQL_MY_PRINT_DEFAULTS'}= mtr_native_path($exe_my_print_defaults);

  $ENV{'MYSQLADMIN'}= mtr_native_path($exe_mysqladmin);

  $ENV{'MYSQL_TEST_ROOT'}= "NO";

    $ENV{'MYSQL_TEST_ROOT'}= "YES";

  # with the mysqltest program tells us so.

sub do_before_run_mysqltest($)

  # Remove old files produced by mysqltest

        if (mtr_run($exe_mysql, $args, $sql, "", "", "") != 0)

sub do_after_run_mysqltest($)

  # Save info from this testcase run to mysqltest.log

  mtr_appendfile_to_file($path_current_test_log, $path_mysqltest_log)

  mtr_appendfile_to_file($path_timefile, $path_mysqltest_log)

  # Open mysqltest-time(the mysqltest log file)

    do_before_run_mysqltest($tinfo);

    my $res= run_mysqltest($tinfo);

    do_after_run_mysqltest($tinfo);

      # Try to get reason from mysqltest.log

      # Test case failure reported by mysqltest

      # mysqltest failed, probably crashed

        "mysqltest returned unexpected code $res, it has probably crashed";

  # Remove the file that mysqltest writes info to