mysql-test-run.pl 67.9 KB
Newer Older
unknown's avatar
unknown committed
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69
#!/usr/bin/perl
# -*- cperl -*-

# This is a transformation of the "mysql-test-run" Bourne shell script
# to Perl. This is just an intermediate step, the goal is to rewrite
# the Perl script to C. The complexity of the mysql-test-run script
# makes it a bit hard to write and debug it as a C program directly,
# so this is considered a prototype.
#
# Because of this the Perl coding style may in some cases look a bit
# funny. The rules used are
#
#   - The coding style is as close as possible to the C/C++ MySQL
#     coding standard.
#
#   - Where NULL is to be returned, the undefined value is used.
#
#   - Regexp comparisons are simple and can be translated to strcmp
#     and other string functions. To ease this transformation matching
#     is done in the lib "lib/mtr_match.pl", i.e. regular expressions
#     should be avoided in the main program.
#
#   - The "unless" construct is not to be used. It is the same as "if !".
#
#   - opendir/readdir/closedir is used instead of glob()/<*>.
#
#   - All lists of arguments to send to commands are Perl lists/arrays,
#     not strings we append args to. Within reason, most string
#     concatenation for arguments should be avoided.
#
#   - sprintf() is to be used, within reason, for all string creation.
#     This mtr_add_arg() function is also based on sprintf(), i.e. you
#     use a format string and put the variable argument in the argument
#     list.
#
#   - Functions defined in the main program are not to be prefixed,
#     functions in "library files" are to be prefixed with "mtr_" (for
#     Mysql-Test-Run). There are some exceptions, code that fits best in
#     the main program, but are put into separate files to avoid
#     clutter, may be without prefix.
#
#   - All stat/opendir/-f/ is to be kept in collect_test_cases(). It
#     will create a struct that the rest of the program can use to get
#     the information. This separates the "find information" from the
#     "do the work" and makes the program more easy to maintain.
#
#   - At the moment, there are tons of "global" variables that control
#     this script, even accessed from the files in "lib/*.pl". This
#     will change over time, for now global variables are used instead
#     of using %opt, %path and %exe hashes, because I want more
#     compile time checking, that hashes would not give me. Once this
#     script is debugged, hashes will be used and passed as parameters
#     to functions, to more closely mimic how it would be coded in C
#     using structs.
#
#   - The rule when it comes to the logic of this program is
#
#       command_line_setup() - is to handle the logic between flags
#       collect_test_cases() - is to do its best to select what tests
#                              to run, dig out options, if needs restart etc.
#       run_testcase()       - is to run a single testcase, and follow the
#                              logic set in both above. No, or rare file
#                              system operations. If a test seems complex,
#                              it should probably not be here.
#
# A nice way to trace the execution of this script while debugging
# is to use the Devel::Trace package found at
# "http://www.plover.com/~mjd/perl/Trace/" and run this script like
# "perl -d:Trace mysql-test-run.pl"
unknown's avatar
unknown committed
70 71 72 73 74
#
# FIXME Save a PID file from this code as well, to record the process
#       id we think it has. In Cygwin, a fork creates one Cygwin process,
#       and then the real Win32 process. Cygwin Perl can only kill Cygwin
#       processes. And "mysqld --bootstrap ..." doesn't save a PID file.
unknown's avatar
unknown committed
75 76 77 78 79 80 81 82 83 84 85 86

$Devel::Trace::TRACE= 0;       # Don't trace boring init stuff

#require 5.6.1;
use File::Path;
use File::Basename;
use Cwd;
use Getopt::Long;
use Sys::Hostname;
#use Carp;
use IO::Socket;
use IO::Socket::INET;
87
use Data::Dumper;
unknown's avatar
unknown committed
88 89 90
use strict;
#use diagnostics;

unknown's avatar
unknown committed
91
require "lib/mtr_cases.pl";
unknown's avatar
unknown committed
92
require "lib/mtr_process.pl";
93
require "lib/mtr_timer.pl";
unknown's avatar
unknown committed
94 95 96 97
require "lib/mtr_io.pl";
require "lib/mtr_gcov.pl";
require "lib/mtr_gprof.pl";
require "lib/mtr_report.pl";
unknown's avatar
unknown committed
98
require "lib/mtr_diff.pl";
unknown's avatar
unknown committed
99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132
require "lib/mtr_match.pl";
require "lib/mtr_misc.pl";

$Devel::Trace::TRACE= 1;

# Used by gcov
our @mysqld_src_dirs=
  (
   "strings",
   "mysys",
   "include",
   "extra",
   "regex",
   "isam",
   "merge",
   "myisam",
   "myisammrg",
   "heap",
   "sql",
  );

##############################################################################
#
#  Default settings
#
##############################################################################

# We are to use handle_options() in "mysys/my_getopt.c" for the C version
#
# In the C version we want to use structs and, in some cases, arrays of
# structs. We let each struct be a separate hash.

# Misc global variables

unknown's avatar
unknown committed
133 134 135
our $glob_win32=                  0; # OS and native Win32 executables
our $glob_win32_perl=             0; # ActiveState Win32 Perl
our $glob_cygwin_perl=            0; # Cygwin Perl
unknown's avatar
unknown committed
136
our $glob_cygwin_shell=           undef;
unknown's avatar
unknown committed
137
our $glob_mysql_test_dir=         undef;
unknown's avatar
unknown committed
138
our $glob_mysql_bench_dir=        undef;
unknown's avatar
unknown committed
139 140
our $glob_hostname=               undef;
our $glob_scriptname=             undef;
141
our $glob_timers=                 undef;
unknown's avatar
unknown committed
142 143 144 145 146 147 148 149 150 151 152 153 154 155 156
our $glob_use_running_server=     0;
our $glob_use_running_ndbcluster= 0;
our $glob_use_embedded_server=    0;

our $glob_basedir;

# The total result

our $path_charsetsdir;
our $path_client_bindir;
our $path_language;
our $path_timefile;
our $path_manager_log;           # Used by mysqldadmin
our $path_slave_load_tmpdir;     # What is this?!
our $path_my_basedir;
157
our $opt_vardir;                 # A path but set directly on cmd line
unknown's avatar
unknown committed
158 159
our $opt_tmpdir;                 # A path but set directly on cmd line

unknown's avatar
unknown committed
160 161 162
our $opt_usage;
our $opt_suite;

unknown's avatar
unknown committed
163 164 165 166 167 168 169 170 171 172
our $opt_netware;

our $opt_script_debug= 0;  # Script debugging, enable with --script-debug

# Options FIXME not all....

our $exe_master_mysqld;
our $exe_mysql;
our $exe_mysqladmin;
our $exe_mysqlbinlog;
unknown's avatar
unknown committed
173
our $exe_mysql_client_test;
unknown's avatar
unknown committed
174 175
our $exe_mysqld;
our $exe_mysqldump;              # Called from test case
unknown's avatar
unknown committed
176
our $exe_mysqlshow;              # Called from test case
unknown's avatar
unknown committed
177
our $exe_mysql_fix_system_tables;
unknown's avatar
unknown committed
178 179 180 181 182 183 184
our $exe_mysqltest;
our $exe_slave_mysqld;

our $opt_bench= 0;
our $opt_small_bench= 0;
our $opt_big_test= 0;            # Send --big-test to mysqltest

unknown's avatar
unknown committed
185
our @opt_extra_mysqld_opt;
unknown's avatar
unknown committed
186 187 188 189 190 191

our $opt_compress;
our $opt_current_test;
our $opt_ddd;
our $opt_debug;
our $opt_do_test;
unknown's avatar
unknown committed
192
our @opt_cases;                  # The test cases names in argv
unknown's avatar
unknown committed
193 194 195 196
our $opt_embedded_server;
our $opt_extern;
our $opt_fast;
our $opt_force;
unknown's avatar
unknown committed
197
our $opt_reorder;
unknown's avatar
unknown committed
198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221

our $opt_gcov;
our $opt_gcov_err;
our $opt_gcov_msg;

our $opt_gdb;
our $opt_client_gdb;
our $opt_manual_gdb;

our $opt_gprof;
our $opt_gprof_dir;
our $opt_gprof_master;
our $opt_gprof_slave;

our $opt_local;
our $opt_local_master;

our $master;                    # Will be struct in C
our $slave;

our $opt_ndbcluster_port;
our $opt_ndbconnectstring;

our $opt_no_manager;            # Does nothing now, we never use manager
unknown's avatar
unknown committed
222
our $opt_manager_port;          # Does nothing now, we never use manager
unknown's avatar
unknown committed
223 224 225 226 227 228 229 230 231 232 233 234

our $opt_old_master;

our $opt_record;

our $opt_result_ext;

our $opt_skip;
our $opt_skip_rpl;
our $opt_skip_test;

our $opt_sleep;
unknown's avatar
unknown committed
235 236
our $opt_ps_protocol;

237
our $opt_sleep_time_after_restart=  1;
unknown's avatar
unknown committed
238
our $opt_sleep_time_for_delete=    10;
239 240
our $opt_testcase_timeout=          5; # 5 min max
our $opt_suite_timeout=           120; # 2 hours max
unknown's avatar
unknown committed
241 242 243 244 245 246

our $opt_socket;

our $opt_source_dist;

our $opt_start_and_exit;
247
our $opt_start_dirty;
unknown's avatar
unknown committed
248 249 250 251 252 253
our $opt_start_from;

our $opt_strace_client;

our $opt_timer;

unknown's avatar
unknown committed
254
our $opt_user;
unknown's avatar
unknown committed
255 256 257 258 259 260 261 262 263 264 265 266 267 268
our $opt_user_test;

our $opt_valgrind;
our $opt_valgrind_all;
our $opt_valgrind_options;

our $opt_verbose;

our $opt_wait_for_master;
our $opt_wait_for_slave;
our $opt_wait_timeout=  10;

our $opt_warnings;

unknown's avatar
unknown committed
269 270
our $opt_udiff;

unknown's avatar
unknown committed
271
our $opt_skip_ndbcluster;
unknown's avatar
unknown committed
272 273 274
our $opt_with_ndbcluster;
our $opt_with_openssl;

275 276 277 278 279
our $exe_ndb_mgm;
our $path_ndb_tools_dir;
our $path_ndb_backup_dir;
our $file_ndb_testrun_log;
our $flag_ndb_status_ok= 1;
unknown's avatar
unknown committed
280 281 282 283 284 285 286 287 288 289 290

######################################################################
#
#  Function declarations
#
######################################################################

sub main ();
sub initial_setup ();
sub command_line_setup ();
sub executable_setup ();
unknown's avatar
unknown committed
291
sub environment_setup ();
292
sub kill_running_server ();
unknown's avatar
unknown committed
293
sub kill_and_cleanup ();
unknown's avatar
unknown committed
294
sub ndbcluster_support ();
295
sub ndbcluster_install ();
unknown's avatar
unknown committed
296 297 298 299 300 301 302
sub ndbcluster_start ();
sub ndbcluster_stop ();
sub run_benchmarks ($);
sub run_tests ();
sub mysql_install_db ();
sub install_db ($$);
sub run_testcase ($);
unknown's avatar
unknown committed
303
sub report_failure_and_restart ($);
unknown's avatar
unknown committed
304 305 306 307 308 309 310
sub do_before_start_master ($$);
sub do_before_start_slave ($$);
sub mysqld_start ($$$$);
sub mysqld_arguments ($$$$$);
sub stop_masters_slaves ();
sub stop_masters ();
sub stop_slaves ();
unknown's avatar
unknown committed
311
sub run_mysqltest ($);
unknown's avatar
unknown committed
312
sub usage ($);
unknown's avatar
unknown committed
313 314 315 316 317 318 319 320 321 322 323 324 325 326

######################################################################
#
#  Main program
#
######################################################################

main();

sub main () {

  initial_setup();
  command_line_setup();
  executable_setup();
unknown's avatar
unknown committed
327 328 329 330 331 332
  
  if (! $opt_skip_ndbcluster and ! $opt_with_ndbcluster)
  {
    $opt_with_ndbcluster= ndbcluster_support();
  }

unknown's avatar
unknown committed
333
  environment_setup();
unknown's avatar
unknown committed
334 335 336 337 338 339 340 341 342 343 344 345 346 347
  signal_setup();

  if ( $opt_gcov )
  {
    gcov_prepare();
  }

  if ( $opt_gprof )
  {
    gprof_prepare();
  }

  if ( ! $glob_use_running_server )
  {
348 349 350 351 352 353 354 355
    if ( $opt_start_dirty )
    {
      kill_running_server();
    }
    else
    {
      kill_and_cleanup();
      mysql_install_db();
unknown's avatar
unknown committed
356 357 358

#    mysql_loadstd();  FIXME copying from "std_data" .frm and
#                      .MGR but there are none?!
359
    }
unknown's avatar
unknown committed
360 361
  }

unknown's avatar
unknown committed
362
  if ( $opt_start_dirty )
unknown's avatar
unknown committed
363
  {
unknown's avatar
unknown committed
364 365 366 367
    if ( ndbcluster_start() )
    {
      mtr_error("Can't start ndbcluster");
    }
unknown's avatar
unknown committed
368 369 370 371 372 373 374 375
    if ( mysqld_start('master',0,[],[]) )
    {
      mtr_report("Servers started, exiting");
    }
    else
    {
      mtr_error("Can't start the mysqld server");
    }
unknown's avatar
unknown committed
376
  }
unknown's avatar
unknown committed
377 378 379 380
  elsif ( $opt_bench )
  {
    run_benchmarks(shift);      # Shift what? Extra arguments?!
  }
unknown's avatar
unknown committed
381 382
  else
  {
unknown's avatar
unknown committed
383
    run_tests();
unknown's avatar
unknown committed
384 385
  }

unknown's avatar
unknown committed
386
  mtr_exit(0);
unknown's avatar
unknown committed
387 388 389 390 391 392 393 394 395 396 397 398 399 400 401
}

##############################################################################
#
#  Initial setup independent on command line arguments
#
##############################################################################

sub initial_setup () {

  select(STDOUT);
  $| = 1;                       # Make unbuffered

  $glob_scriptname=  basename($0);

unknown's avatar
unknown committed
402 403 404
  $glob_win32_perl=  ($^O eq "MSWin32");
  $glob_cygwin_perl= ($^O eq "cygwin");
  $glob_win32=       ($glob_win32_perl or $glob_cygwin_perl);
unknown's avatar
unknown committed
405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420

  # We require that we are in the "mysql-test" directory
  # to run mysql-test-run

  if (! -f $glob_scriptname)
  {
    mtr_error("Can't find the location for the mysql-test-run script\n" .
              "Go to to the mysql-test directory and execute the script " .
              "as follows:\n./$glob_scriptname");
  }

  if ( -d "../sql" )
  {
    $opt_source_dist=  1;
  }

unknown's avatar
unknown committed
421
  $glob_hostname=  mtr_short_hostname();
unknown's avatar
unknown committed
422 423 424

  # 'basedir' is always parent of "mysql-test" directory
  $glob_mysql_test_dir=  cwd();
unknown's avatar
unknown committed
425 426 427 428
  if ( $glob_cygwin_perl )
  {
    # Windows programs like 'mysqld' needs Windows paths
    $glob_mysql_test_dir= `cygpath -m $glob_mysql_test_dir`;
unknown's avatar
unknown committed
429 430
    my $shell= $ENV{'SHELL'} || "/bin/bash";
    $glob_cygwin_shell=   `cygpath -w $shell`; # The Windows path c:\...
unknown's avatar
unknown committed
431
    chomp($glob_mysql_test_dir);
unknown's avatar
unknown committed
432
    chomp($glob_cygwin_shell);
unknown's avatar
unknown committed
433
  }
unknown's avatar
unknown committed
434
  $glob_basedir=         dirname($glob_mysql_test_dir);
unknown's avatar
unknown committed
435
  $glob_mysql_bench_dir= "$glob_basedir/mysql-bench"; # FIXME make configurable
unknown's avatar
unknown committed
436 437 438 439 440 441

  # needs to be same length to test logging (FIXME what???)
  $path_slave_load_tmpdir=  "../../var/tmp";

  $path_my_basedir=
    $opt_source_dist ? $glob_mysql_test_dir : $glob_basedir;
442 443

  $glob_timers= mtr_init_timers();
unknown's avatar
unknown committed
444 445 446 447 448 449 450 451 452 453 454 455 456 457
}



##############################################################################
#
#  Default settings
#
##############################################################################

sub command_line_setup () {

  # These are defaults for things that are set on the command line

unknown's avatar
unknown committed
458
  $opt_suite=        "main";    # Special default suite
unknown's avatar
unknown committed
459 460 461
  my $opt_master_myport= 9306;
  my $opt_slave_myport=  9308;
  $opt_ndbcluster_port=  9350;
unknown's avatar
unknown committed
462 463

  # Read the command line
unknown's avatar
unknown committed
464
  # Note: Keep list, and the order, in sync with usage at end of this file
unknown's avatar
unknown committed
465 466

  GetOptions(
unknown's avatar
unknown committed
467
             # Control what engine/variation to run
unknown's avatar
unknown committed
468
             'embedded-server'          => \$opt_embedded_server,
unknown's avatar
unknown committed
469
             'ps-protocol'              => \$opt_ps_protocol,
unknown's avatar
unknown committed
470 471
             'bench'                    => \$opt_bench,
             'small-bench'              => \$opt_small_bench,
unknown's avatar
unknown committed
472
             'no-manager'               => \$opt_no_manager, # Currently not used
unknown's avatar
unknown committed
473 474

             # Control what test suites or cases to run
unknown's avatar
unknown committed
475
             'force'                    => \$opt_force,
unknown's avatar
unknown committed
476
             'with-ndbcluster'          => \$opt_with_ndbcluster,
unknown's avatar
unknown committed
477
             'skip-ndbcluster|skip-ndb' => \$opt_skip_ndbcluster,
unknown's avatar
unknown committed
478 479 480 481 482 483 484 485 486
             'do-test=s'                => \$opt_do_test,
             'suite=s'                  => \$opt_suite,
             'skip-rpl'                 => \$opt_skip_rpl,
             'skip-test=s'              => \$opt_skip_test,

             # Specify ports
             'master_port=i'            => \$opt_master_myport,
             'slave_port=i'             => \$opt_slave_myport,
             'ndbcluster_port=i'        => \$opt_ndbcluster_port,
unknown's avatar
unknown committed
487
             'manager-port=i'           => \$opt_manager_port, # Currently not used
unknown's avatar
unknown committed
488 489 490 491 492

             # Test case authoring
             'record'                   => \$opt_record,

             # ???
unknown's avatar
unknown committed
493
             'mysqld=s'                 => \@opt_extra_mysqld_opt,
unknown's avatar
unknown committed
494 495 496 497 498 499

             # Run test on running server
             'extern'                   => \$opt_extern,
             'ndbconnectstring=s'       => \$opt_ndbconnectstring,

             # Debugging
unknown's avatar
unknown committed
500
             'gdb'                      => \$opt_gdb,
unknown's avatar
unknown committed
501 502 503 504 505 506 507 508 509
             'manual-gdb'               => \$opt_manual_gdb,
             'client-gdb'               => \$opt_client_gdb,
             'ddd'                      => \$opt_ddd,
             'strace-client'            => \$opt_strace_client,
             'master-binary=s'          => \$exe_master_mysqld,
             'slave-binary=s'           => \$exe_slave_mysqld,

             # Coverage, profiling etc
             'gcov'                     => \$opt_gcov,
unknown's avatar
unknown committed
510
             'gprof'                    => \$opt_gprof,
unknown's avatar
unknown committed
511 512 513 514 515 516 517 518 519
             'valgrind'                 => \$opt_valgrind,
             'valgrind-all'             => \$opt_valgrind_all,
             'valgrind-options=s'       => \$opt_valgrind_options,

             # Misc
             'big-test'                 => \$opt_big_test,
             'compress'                 => \$opt_compress,
             'debug'                    => \$opt_debug,
             'fast'                     => \$opt_fast,
unknown's avatar
unknown committed
520 521 522 523
             'local'                    => \$opt_local,
             'local-master'             => \$opt_local_master,
             'netware'                  => \$opt_netware,
             'old-master'               => \$opt_old_master,
unknown's avatar
unknown committed
524
             'reorder'                  => \$opt_reorder,
unknown's avatar
unknown committed
525 526 527
             'script-debug'             => \$opt_script_debug,
             'sleep=i'                  => \$opt_sleep,
             'socket=s'                 => \$opt_socket,
528
             'start-dirty'              => \$opt_start_dirty,
unknown's avatar
unknown committed
529 530 531 532
             'start-and-exit'           => \$opt_start_and_exit,
             'start-from=s'             => \$opt_start_from,
             'timer'                    => \$opt_timer,
             'tmpdir=s'                 => \$opt_tmpdir,
unknown's avatar
unknown committed
533
             'unified-diff|udiff'       => \$opt_udiff,
unknown's avatar
unknown committed
534 535
             'user-test=s'              => \$opt_user_test,
             'user=s'                   => \$opt_user,
536
             'vardir=s'                 => \$opt_vardir,
unknown's avatar
unknown committed
537 538
             'verbose'                  => \$opt_verbose,
             'wait-timeout=i'           => \$opt_wait_timeout,
539 540
             'testcase-timeout=i'       => \$opt_testcase_timeout,
             'suite-timeout=i'          => \$opt_suite_timeout,
unknown's avatar
unknown committed
541 542
             'warnings|log-warnings'    => \$opt_warnings,
             'with-openssl'             => \$opt_with_openssl,
unknown's avatar
unknown committed
543 544

             'help|h'                   => \$opt_usage,
unknown's avatar
unknown committed
545 546
            ) or usage("Can't read options");

unknown's avatar
unknown committed
547 548 549 550
  if ( $opt_usage )
  {
    usage("");
  }
unknown's avatar
unknown committed
551

unknown's avatar
unknown committed
552 553
  @opt_cases= @ARGV;

554 555 556
  # --------------------------------------------------------------------------
  # Set the "var/" directory, as it is the base for everything else
  # --------------------------------------------------------------------------
557

558 559 560 561
  if ( ! $opt_vardir )
  {
    $opt_vardir= "$glob_mysql_test_dir/var";
  }
unknown's avatar
unknown committed
562

unknown's avatar
unknown committed
563 564 565
  # We make the path absolute, as the server will do a chdir() before usage
  unless ( $opt_vardir =~ m,^/, or
           ($glob_win32 and $opt_vardir =~ m,^[a-z]:/,i) )
566 567 568 569
  {
    # Make absolute path, relative test dir
    $opt_vardir= "$glob_mysql_test_dir/$opt_vardir";
  }
unknown's avatar
unknown committed
570

571 572 573
  # --------------------------------------------------------------------------
  # If not set, set these to defaults
  # --------------------------------------------------------------------------
unknown's avatar
unknown committed
574

575 576 577 578 579 580
  $opt_tmpdir=       "$opt_vardir/tmp" unless $opt_tmpdir;
  # FIXME maybe not needed?
  $path_manager_log= "$opt_vardir/log/manager.log"
    unless $path_manager_log;
  $opt_current_test= "$opt_vardir/log/current_test"
    unless $opt_current_test;
unknown's avatar
unknown committed
581

582
  # --------------------------------------------------------------------------
unknown's avatar
unknown committed
583
  # Do sanity checks of command line arguments
584
  # --------------------------------------------------------------------------
unknown's avatar
unknown committed
585 586 587

  if ( $opt_extern and $opt_local )
  {
unknown's avatar
unknown committed
588
    mtr_error("Can't use --extern and --local at the same time");
unknown's avatar
unknown committed
589 590 591 592 593 594 595 596 597 598 599 600
  }

  if ( ! $opt_socket )
  {     # FIXME set default before reading options?
#    $opt_socket=  '@MYSQL_UNIX_ADDR@';
    $opt_socket=  "/tmp/mysql.sock"; # FIXME
  }

  # --------------------------------------------------------------------------
  # Look at the command line options and set script flags
  # --------------------------------------------------------------------------

unknown's avatar
unknown committed
601
  if ( $opt_record and ! @opt_cases )
unknown's avatar
unknown committed
602 603 604 605 606 607 608 609 610 611 612
  {
    mtr_error("Will not run in record mode without a specific test case");
  }

  if ( $opt_embedded_server )
  {
    $glob_use_embedded_server= 1;
    $opt_skip_rpl= 1;              # We never run replication with embedded

    if ( $opt_extern )
    {
unknown's avatar
unknown committed
613
      mtr_error("Can't use --extern with --embedded-server");
unknown's avatar
unknown committed
614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629
    }
  }

  # FIXME don't understand what this is
#  if ( $opt_local_master )
#  {
#    $opt_master_myport=  3306;
#  }

  if ( $opt_small_bench )
  {
    $opt_bench=  1;
  }

  if ( $opt_sleep )
  {
unknown's avatar
unknown committed
630
    $opt_sleep_time_after_restart= $opt_sleep;
unknown's avatar
unknown committed
631 632
  }

unknown's avatar
unknown committed
633
  if ( $opt_gcov and ! $opt_source_dist )
unknown's avatar
unknown committed
634
  {
unknown's avatar
unknown committed
635 636 637 638 639 640
    mtr_error("Coverage test needs the source - please use source dist");
  }

  if ( $glob_use_embedded_server and ! $opt_source_dist )
  {
    mtr_error("Embedded server needs source tree - please use source dist");
unknown's avatar
unknown committed
641 642 643 644 645 646 647
  }

  if ( $opt_gdb )
  {
    $opt_wait_timeout=  300;
    if ( $opt_extern )
    {
unknown's avatar
unknown committed
648
      mtr_error("Can't use --extern with --gdb");
unknown's avatar
unknown committed
649 650 651 652 653 654 655 656
    }
  }

  if ( $opt_manual_gdb )
  {
    $opt_gdb=  1;
    if ( $opt_extern )
    {
unknown's avatar
unknown committed
657
      mtr_error("Can't use --extern with --manual-gdb");
unknown's avatar
unknown committed
658 659 660 661 662 663 664
    }
  }

  if ( $opt_ddd )
  {
    if ( $opt_extern )
    {
unknown's avatar
unknown committed
665
      mtr_error("Can't use --extern with --ddd");
unknown's avatar
unknown committed
666 667 668 669 670 671 672 673
    }
  }

  if ( $opt_ndbconnectstring )
  {
    $glob_use_running_ndbcluster= 1;
    $opt_with_ndbcluster= 1;
  }
674 675 676 677
  else
  {
    $opt_ndbconnectstring= "host=localhost:$opt_ndbcluster_port";
  }
unknown's avatar
unknown committed
678

unknown's avatar
unknown committed
679 680 681 682 683
  if ( $opt_skip_ndbcluster )
  {
    $opt_with_ndbcluster= 0;
  }

unknown's avatar
unknown committed
684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707
  # FIXME

  #if ( $opt_valgrind or $opt_valgrind_all )
  #{
    # VALGRIND=`which valgrind` # this will print an error if not found FIXME
    # Give good warning to the user and stop
  #  if ( ! $VALGRIND )
  #  {
  #    print "You need to have the 'valgrind' program in your PATH to run mysql-test-run with option --valgrind. Valgrind's home page is http://valgrind.kde.org.\n"
  #    exit 1
  #  }
    # >=2.1.2 requires the --tool option, some versions write to stdout, some to stderr
  #  valgrind --help 2>&1 | grep "\-\-tool" > /dev/null && VALGRIND="$VALGRIND --tool=memcheck"
  #  VALGRIND="$VALGRIND --alignment=8 --leak-check=yes --num-callers=16"
  #  $opt_extra_mysqld_opt.= " --skip-safemalloc --skip-bdb";
  #  SLEEP_TIME_AFTER_RESTART=10
  #  $opt_sleep_time_for_delete=  60
  #  $glob_use_running_server= ""
  #  if ( "$1"=  "--valgrind-all" )
  #  {
  #    VALGRIND="$VALGRIND -v --show-reachable=yes"
  #  }
  #}

unknown's avatar
unknown committed
708
  if ( ! $opt_user )
unknown's avatar
unknown committed
709
  {
unknown's avatar
unknown committed
710 711 712 713 714 715 716 717
    if ( $glob_use_running_server )
    {
      $opt_user= "test";
    }
    else
    {
      $opt_user= "root"; # We want to do FLUSH xxx commands
    }
unknown's avatar
unknown committed
718 719
  }

720 721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771
  # Put this into a hash, will be a C struct

  $master->[0]->{'path_myddir'}=  "$opt_vardir/master-data";
  $master->[0]->{'path_myerr'}=   "$opt_vardir/log/master.err";
  $master->[0]->{'path_mylog'}=   "$opt_vardir/log/master.log";
  $master->[0]->{'path_mypid'}=   "$opt_vardir/run/master.pid";
  $master->[0]->{'path_mysock'}=  "$opt_tmpdir/master.sock";
  $master->[0]->{'path_myport'}=   $opt_master_myport;
  $master->[0]->{'start_timeout'}= 400; # enough time create innodb tables

  $master->[0]->{'ndbcluster'}= 1; # ndbcluster not started

  $master->[1]->{'path_myddir'}=  "$opt_vardir/master1-data";
  $master->[1]->{'path_myerr'}=   "$opt_vardir/log/master1.err";
  $master->[1]->{'path_mylog'}=   "$opt_vardir/log/master1.log";
  $master->[1]->{'path_mypid'}=   "$opt_vardir/run/master1.pid";
  $master->[1]->{'path_mysock'}=  "$opt_tmpdir/master1.sock";
  $master->[1]->{'path_myport'}=   $opt_master_myport + 1;
  $master->[1]->{'start_timeout'}= 400; # enough time create innodb tables

  $slave->[0]->{'path_myddir'}=   "$opt_vardir/slave-data";
  $slave->[0]->{'path_myerr'}=    "$opt_vardir/log/slave.err";
  $slave->[0]->{'path_mylog'}=    "$opt_vardir/log/slave.log";
  $slave->[0]->{'path_mypid'}=    "$opt_vardir/run/slave.pid";
  $slave->[0]->{'path_mysock'}=   "$opt_tmpdir/slave.sock";
  $slave->[0]->{'path_myport'}=    $opt_slave_myport;
  $slave->[0]->{'start_timeout'}=  400;

  $slave->[1]->{'path_myddir'}=   "$opt_vardir/slave1-data";
  $slave->[1]->{'path_myerr'}=    "$opt_vardir/log/slave1.err";
  $slave->[1]->{'path_mylog'}=    "$opt_vardir/log/slave1.log";
  $slave->[1]->{'path_mypid'}=    "$opt_vardir/run/slave1.pid";
  $slave->[1]->{'path_mysock'}=   "$opt_tmpdir/slave1.sock";
  $slave->[1]->{'path_myport'}=    $opt_slave_myport + 1;
  $slave->[1]->{'start_timeout'}=  300;

  $slave->[2]->{'path_myddir'}=   "$opt_vardir/slave2-data";
  $slave->[2]->{'path_myerr'}=    "$opt_vardir/log/slave2.err";
  $slave->[2]->{'path_mylog'}=    "$opt_vardir/log/slave2.log";
  $slave->[2]->{'path_mypid'}=    "$opt_vardir/run/slave2.pid";
  $slave->[2]->{'path_mysock'}=   "$opt_tmpdir/slave2.sock";
  $slave->[2]->{'path_myport'}=    $opt_slave_myport + 2;
  $slave->[2]->{'start_timeout'}=  300;

  if ( $opt_extern )
  {
    $glob_use_running_server=  1;
    $opt_skip_rpl= 1;                   # We don't run rpl test cases
    $master->[0]->{'path_mysock'}=  $opt_socket;
  }

  $path_timefile=  "$opt_vardir/log/mysqltest-time";
unknown's avatar
unknown committed
772 773 774 775 776 777 778 779 780 781 782 783 784
}


##############################################################################
#
#  Set paths to various executable programs
#
##############################################################################

sub executable_setup () {

  if ( $opt_source_dist )
  {
unknown's avatar
unknown committed
785
    if ( $glob_win32 )
unknown's avatar
unknown committed
786
    {
unknown's avatar
unknown committed
787 788
      $path_client_bindir= mtr_path_exists("$glob_basedir/client_release",
                                           "$glob_basedir/bin");
unknown's avatar
unknown committed
789 790 791
      $exe_mysqld=         mtr_exe_exists ("$path_client_bindir/mysqld-nt");
      $path_language=      mtr_path_exists("$glob_basedir/share/english/");
      $path_charsetsdir=   mtr_path_exists("$glob_basedir/share/charsets");
unknown's avatar
unknown committed
792 793 794
    }
    else
    {
unknown's avatar
unknown committed
795 796 797 798
      $path_client_bindir= mtr_path_exists("$glob_basedir/client");
      $exe_mysqld=         mtr_exe_exists ("$glob_basedir/sql/mysqld");
      $path_language=      mtr_path_exists("$glob_basedir/sql/share/english/");
      $path_charsetsdir=   mtr_path_exists("$glob_basedir/sql/share/charsets");
unknown's avatar
unknown committed
799
    }
unknown's avatar
unknown committed
800 801

    if ( $glob_use_embedded_server )
unknown's avatar
unknown committed
802
    {
unknown's avatar
unknown committed
803 804 805
      my $path_examples= "$glob_basedir/libmysqld/examples";
      $exe_mysqltest=    mtr_exe_exists("$path_examples/mysqltest");
      $exe_mysql_client_test=
unknown's avatar
unknown committed
806 807
        mtr_exe_exists("$path_examples/mysql_client_test_embedded",
		       "/usr/bin/false");
unknown's avatar
unknown committed
808 809 810
    }
    else
    {
unknown's avatar
unknown committed
811
      $exe_mysqltest=  mtr_exe_exists("$path_client_bindir/mysqltest");
unknown's avatar
unknown committed
812
      $exe_mysql_client_test=
unknown's avatar
unknown committed
813 814
        mtr_exe_exists("$glob_basedir/tests/mysql_client_test",
		       "/usr/bin/false");
unknown's avatar
unknown committed
815
    }
unknown's avatar
unknown committed
816 817 818 819 820 821 822 823 824
    $exe_mysqldump=      mtr_exe_exists("$path_client_bindir/mysqldump");
    $exe_mysqlshow=      mtr_exe_exists("$path_client_bindir/mysqlshow");
    $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");
    $exe_mysql_fix_system_tables=
      mtr_script_exists("$glob_basedir/scripts/mysql_fix_privilege_tables");
    $path_ndb_tools_dir= mtr_path_exists("$glob_basedir/ndb/tools");
    $exe_ndb_mgm=        "$glob_basedir/ndb/src/mgmclient/ndb_mgm";
unknown's avatar
unknown committed
825 826 827
  }
  else
  {
unknown's avatar
unknown committed
828 829 830 831 832 833 834 835
    $path_client_bindir= mtr_path_exists("$glob_basedir/bin");
    $exe_mysqltest=      mtr_exe_exists("$path_client_bindir/mysqltest");
    $exe_mysqldump=      mtr_exe_exists("$path_client_bindir/mysqldump");
    $exe_mysqlshow=      mtr_exe_exists("$path_client_bindir/mysqlshow");
    $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");
    $exe_mysql_fix_system_tables=
unknown's avatar
unknown committed
836 837
      mtr_script_exists("$path_client_bindir/mysql_fix_privilege_tables",
			"$glob_basedir/scripts/mysql_fix_privilege_tables");
unknown's avatar
unknown committed
838 839 840 841 842 843 844

    $path_language=      mtr_path_exists("$glob_basedir/share/mysql/english/",
                                         "$glob_basedir/share/english/");
    $path_charsetsdir=   mtr_path_exists("$glob_basedir/share/mysql/charsets",
                                         "$glob_basedir/share/charsets");
    $exe_mysqld=         mtr_exe_exists ("$glob_basedir/libexec/mysqld",
                                         "$glob_basedir/bin/mysqld");
unknown's avatar
unknown committed
845

unknown's avatar
unknown committed
846 847
    if ( $glob_use_embedded_server )
    {
unknown's avatar
unknown committed
848 849 850
      $exe_mysqltest= mtr_exe_exists("$path_client_bindir/mysqltest_embedded");
      $exe_mysql_client_test=
        mtr_exe_exists("$glob_basedir/tests/mysql_client_test_embedded",
unknown's avatar
unknown committed
851 852
                       "$path_client_bindir/mysql_client_test_embedded",
		       "/usr/bin/false");
unknown's avatar
unknown committed
853 854 855
    }
    else
    {
unknown's avatar
unknown committed
856 857
      $exe_mysqltest= mtr_exe_exists("$path_client_bindir/mysqltest");
      $exe_mysql_client_test=
unknown's avatar
unknown committed
858 859
        mtr_exe_exists("$path_client_bindir/mysql_client_test",
		       "/usr/bin/false"); # FIXME temporary
unknown's avatar
unknown committed
860
    }
861 862 863

    $path_ndb_tools_dir=  "$glob_basedir/bin";
    $exe_ndb_mgm=         "$glob_basedir/bin/ndb_mgm";
unknown's avatar
unknown committed
864 865
  }

unknown's avatar
unknown committed
866 867
  $exe_master_mysqld= $exe_master_mysqld || $exe_mysqld;
  $exe_slave_mysqld=  $exe_slave_mysqld  || $exe_mysqld;
868 869

  $path_ndb_backup_dir=
870 871
    "$opt_vardir/ndbcluster-$opt_ndbcluster_port";
  $file_ndb_testrun_log= "$opt_vardir/log/ndb_testrun.log";
unknown's avatar
unknown committed
872 873 874
}


unknown's avatar
unknown committed
875 876 877 878 879 880 881 882 883 884 885
##############################################################################
#
#  Set environment to be used by childs of this process
#
##############################################################################

# Note that some env is setup in spawn/run, in "mtr_process.pl"

sub environment_setup () {

  # --------------------------------------------------------------------------
unknown's avatar
unknown committed
886 887
  # We might not use a standard installation directory, like /usr/lib.
  # Set LD_LIBRARY_PATH to make sure we find our installed libraries.
unknown's avatar
unknown committed
888 889
  # --------------------------------------------------------------------------

unknown's avatar
unknown committed
890 891 892 893 894 895 896 897 898
  unless ( $opt_source_dist )
  {
    $ENV{'LD_LIBRARY_PATH'}=
      "$glob_basedir/lib" .
        ($ENV{'LD_LIBRARY_PATH'} ? ":$ENV{'LD_LIBRARY_PATH'}" : "");
    $ENV{'DYLD_LIBRARY_PATH'}=
      "$glob_basedir/lib" .
        ($ENV{'DYLD_LIBRARY_PATH'} ? ":$ENV{'DYLD_LIBRARY_PATH'}" : "");
  }
unknown's avatar
unknown committed
899 900 901 902 903

  # --------------------------------------------------------------------------
  # Also command lines in .opt files may contain env vars
  # --------------------------------------------------------------------------

unknown's avatar
unknown committed
904 905 906 907 908
  $ENV{'UMASK'}=              "0660"; # The octal *string*
  $ENV{'UMASK_DIR'}=          "0770"; # The octal *string*
  $ENV{'LC_COLLATE'}=         "C";
  $ENV{'USE_RUNNING_SERVER'}= $glob_use_running_server;
  $ENV{'MYSQL_TEST_DIR'}=     $glob_mysql_test_dir;
unknown's avatar
unknown committed
909
  $ENV{'MYSQL_TEST_WINDIR'}=  $glob_mysql_test_dir;
unknown's avatar
unknown committed
910
  $ENV{'MASTER_MYSOCK'}=      $master->[0]->{'path_mysock'};
unknown's avatar
unknown committed
911
  $ENV{'MASTER_WINMYSOCK'}=   $master->[0]->{'path_mysock'};
unknown's avatar
unknown committed
912 913 914 915 916 917
  $ENV{'MASTER_MYSOCK1'}=     $master->[1]->{'path_mysock'};
  $ENV{'MASTER_MYPORT'}=      $master->[0]->{'path_myport'};
  $ENV{'MASTER_MYPORT1'}=     $master->[1]->{'path_myport'};
  $ENV{'SLAVE_MYPORT'}=       $slave->[0]->{'path_myport'};
# $ENV{'MYSQL_TCP_PORT'}=     '@MYSQL_TCP_PORT@'; # FIXME
  $ENV{'MYSQL_TCP_PORT'}=     3306;
unknown's avatar
unknown committed
918 919 920 921 922 923 924 925 926 927

  if ( $glob_cygwin_perl )
  {
    foreach my $key ('MYSQL_TEST_WINDIR','MASTER_MYSOCK')
    {
      $ENV{$key}= `cygpath -w $ENV{$key}`;
      $ENV{$key} =~ s,\\,\\\\,g;
      chomp($ENV{$key});
    }
  }
unknown's avatar
unknown committed
928 929 930
}


unknown's avatar
unknown committed
931 932 933 934 935 936 937 938 939 940 941 942 943 944 945
##############################################################################
#
#  If we get a ^C, we try to clean up before termination
#
##############################################################################
# FIXME check restrictions what to do in a signal handler

sub signal_setup () {
  $SIG{INT}= \&handle_int_signal;
}

sub handle_int_signal () {
  $SIG{INT}= 'DEFAULT';         # If we get a ^C again, we die...
  mtr_warning("got INT signal, cleaning up.....");
  stop_masters_slaves();
unknown's avatar
unknown committed
946
  mtr_error("We die from ^C signal from user");
unknown's avatar
unknown committed
947 948 949 950 951 952 953 954 955
}


##############################################################################
#
#  Handle left overs from previous runs
#
##############################################################################

956
sub kill_running_server () {
unknown's avatar
unknown committed
957 958 959 960 961 962 963 964 965 966 967 968 969 970 971 972 973 974

  if ( $opt_fast or $glob_use_embedded_server )
  {
    # FIXME is embedded server really using PID files?!
    unlink($master->[0]->{'path_mypid'});
    unlink($master->[1]->{'path_mypid'});
    unlink($slave->[0]->{'path_mypid'});
    unlink($slave->[1]->{'path_mypid'});
    unlink($slave->[2]->{'path_mypid'});
  }
  else
  {
    # Ensure that no old mysqld test servers are running
    # This is different from terminating processes we have
    # started from ths run of the script, this is terminating
    # leftovers from previous runs.

    mtr_report("Killing Possible Leftover Processes");
975
    mkpath("$opt_vardir/log"); # Needed for mysqladmin log
unknown's avatar
unknown committed
976 977 978
    mtr_kill_leftovers();

    ndbcluster_stop();
979
    $master->[0]->{'ndbcluster'}= 1;
unknown's avatar
unknown committed
980
  }
981 982 983 984 985
}

sub kill_and_cleanup () {

  kill_running_server ();
unknown's avatar
unknown committed
986 987 988

  mtr_report("Removing Stale Files");

989 990 991 992
  rmtree("$opt_vardir/log");
  rmtree("$opt_vardir/ndbcluster-$opt_ndbcluster_port");
  rmtree("$opt_vardir/run");
  rmtree("$opt_vardir/tmp");
unknown's avatar
unknown committed
993

994 995 996
  mkpath("$opt_vardir/log");
  mkpath("$opt_vardir/run");
  mkpath("$opt_vardir/tmp");
unknown's avatar
unknown committed
997
  mkpath($opt_tmpdir) if $opt_tmpdir ne "$opt_vardir/tmp";
unknown's avatar
unknown committed
998

unknown's avatar
unknown committed
999 1000 1001
  # FIXME do we really need to create these all, or are they
  # created for us when tables are created?

unknown's avatar
unknown committed
1002
  rmtree("$master->[0]->{'path_myddir'}");
unknown's avatar
unknown committed
1003
  mkpath("$master->[0]->{'path_myddir'}/mysql");
unknown's avatar
unknown committed
1004 1005 1006
  mkpath("$master->[0]->{'path_myddir'}/test");

  rmtree("$master->[1]->{'path_myddir'}");
unknown's avatar
unknown committed
1007
  mkpath("$master->[1]->{'path_myddir'}/mysql");
unknown's avatar
unknown committed
1008 1009 1010
  mkpath("$master->[1]->{'path_myddir'}/test");

  rmtree("$slave->[0]->{'path_myddir'}");
unknown's avatar
unknown committed
1011
  mkpath("$slave->[0]->{'path_myddir'}/mysql");
unknown's avatar
unknown committed
1012 1013 1014
  mkpath("$slave->[0]->{'path_myddir'}/test");

  rmtree("$slave->[1]->{'path_myddir'}");
unknown's avatar
unknown committed
1015
  mkpath("$slave->[1]->{'path_myddir'}/mysql");
unknown's avatar
unknown committed
1016 1017 1018
  mkpath("$slave->[1]->{'path_myddir'}/test");

  rmtree("$slave->[2]->{'path_myddir'}");
unknown's avatar
unknown committed
1019
  mkpath("$slave->[2]->{'path_myddir'}/mysql");
unknown's avatar
unknown committed
1020
  mkpath("$slave->[2]->{'path_myddir'}/test");
1021 1022 1023 1024 1025 1026 1027 1028 1029 1030

  # To make some old test cases work, we create a soft
  # link from the old "var" location to the new one

  if ( ! $glob_win32 and $opt_vardir ne "$glob_mysql_test_dir/var" )
  {
    # FIXME why bother with the above, why not always remove all of var?!
    rmtree("$glob_mysql_test_dir/var"); # Clean old var, FIXME or rename it?!
    symlink($opt_vardir, "$glob_mysql_test_dir/var");
  }
unknown's avatar
unknown committed
1031 1032 1033 1034 1035 1036 1037 1038 1039
}


##############################################################################
#
#  Start the ndb cluster
#
##############################################################################

unknown's avatar
unknown committed
1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056
sub ndbcluster_support () {

  # check ndbcluster support by testing using a switch
  # that is only available in that case
  if ( mtr_run($exe_mysqld,
	       ["--no-defaults",
	        "--ndb-use-exact-count",
	        "--help"],
	       "", "/dev/null", "/dev/null", "") != 0 )
  {
    mtr_report("No ndbcluster support");
    return 0;
  }
  mtr_report("Has ndbcluster support");
  return 1;
}

unknown's avatar
unknown committed
1057 1058
# FIXME why is there a different start below?!

1059
sub ndbcluster_install () {
unknown's avatar
unknown committed
1060

1061 1062 1063 1064 1065
  if ( ! $opt_with_ndbcluster or $glob_use_running_ndbcluster )
  {
    return 0;
  }
  mtr_report("Install ndbcluster");
unknown's avatar
unknown committed
1066
  my $ndbcluster_opts=  $opt_bench ? "" : "--small";
1067 1068 1069 1070
  my $ndbcluster_port_base= $opt_ndbcluster_port + 2;
  if (  mtr_run("$glob_mysql_test_dir/ndb/ndbcluster",
		["--port=$opt_ndbcluster_port",
		 "--port-base=$ndbcluster_port_base",
1071
		 "--data-dir=$opt_vardir",
1072 1073 1074 1075 1076 1077 1078 1079 1080 1081 1082 1083 1084 1085 1086 1087 1088 1089 1090 1091 1092 1093 1094
		 $ndbcluster_opts,
		 "--initial"],
		"", "", "", "") )
  {
    mtr_error("Error ndbcluster_install");
    return 1;
  }

  ndbcluster_stop();
  $master->[0]->{'ndbcluster'}= 1;

  return 0;
}

sub ndbcluster_start () {

  if ( ! $opt_with_ndbcluster or $glob_use_running_ndbcluster )
  {
    return 0;
  }
  # FIXME, we want to _append_ output to file $file_ndb_testrun_log instead of /dev/null
  if ( mtr_run("$glob_mysql_test_dir/ndb/ndbcluster",
	       ["--port=$opt_ndbcluster_port",
1095
		"--data-dir=$opt_vardir"],
1096 1097
	       "", "/dev/null", "", "") )
  {
unknown's avatar
unknown committed
1098
    mtr_error("Error ndbcluster_start");
1099 1100 1101 1102
    return 1;
  }

  return 0;
unknown's avatar
unknown committed
1103 1104 1105
}

sub ndbcluster_stop () {
1106 1107 1108 1109 1110 1111 1112

  if ( ! $opt_with_ndbcluster or $glob_use_running_ndbcluster )
  {
    return;
  }
  my $ndbcluster_port_base= $opt_ndbcluster_port + 2;
  # FIXME, we want to _append_ output to file $file_ndb_testrun_log instead of /dev/null
unknown's avatar
unknown committed
1113
  mtr_run("$glob_mysql_test_dir/ndb/ndbcluster",
1114
          ["--port=$opt_ndbcluster_port",
1115
           "--data-dir=$opt_vardir",
unknown's avatar
unknown committed
1116
           "--stop"],
1117 1118 1119
          "", "/dev/null", "", "");

  return;
unknown's avatar
unknown committed
1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136
}


##############################################################################
#
#  Run the benchmark suite
#
##############################################################################

sub run_benchmarks ($) {
  my $benchmark=  shift;

  my $args;

  if ( ! $glob_use_embedded_server and ! $opt_local_master )
  {
    $master->[0]->{'pid'}= mysqld_start('master',0,[],[]);
unknown's avatar
unknown committed
1137 1138 1139 1140
    if ( ! $master->[0]->{'pid'} )
    {
      mtr_error("Can't start the mysqld server");
    }
unknown's avatar
unknown committed
1141 1142 1143 1144 1145
  }

  mtr_init_args(\$args);

  mtr_add_arg($args, "--socket=%s", $master->[0]->{'path_mysock'});
unknown's avatar
unknown committed
1146
  mtr_add_arg($args, "--user=%s", $opt_user);
unknown's avatar
unknown committed
1147 1148 1149 1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160 1161 1162 1163 1164 1165 1166

  if ( $opt_small_bench )
  {
    mtr_add_arg($args, "--small-test");
    mtr_add_arg($args, "--small-tables");
  }

  if ( $opt_with_ndbcluster )
  {
    mtr_add_arg($args, "--create-options=TYPE=ndb");
  }

  my $benchdir=  "$glob_basedir/sql-bench";
  chdir($benchdir);             # FIXME check error

  # FIXME write shorter....

  if ( ! $benchmark )
  {
    mtr_add_arg($args, "--log");
unknown's avatar
unknown committed
1167
    mtr_run("$glob_mysql_bench_dir/run-all-tests", $args, "", "", "", "");
unknown's avatar
unknown committed
1168 1169 1170 1171
    # FIXME check result code?!
  }
  elsif ( -x $benchmark )
  {
unknown's avatar
unknown committed
1172
    mtr_run("$glob_mysql_bench_dir/$benchmark", $args, "", "", "", "");
unknown's avatar
unknown committed
1173 1174 1175 1176
    # FIXME check result code?!
  }
  else
  {
unknown's avatar
unknown committed
1177
    mtr_error("Benchmark $benchmark not found");
unknown's avatar
unknown committed
1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194
  }

  chdir($glob_mysql_test_dir);          # Go back

  if ( ! $glob_use_embedded_server )
  {
    stop_masters();
  }
}


##############################################################################
#
#  Run the test suite
#
##############################################################################

unknown's avatar
unknown committed
1195 1196
# FIXME how to specify several suites to run? Comma separated list?

unknown's avatar
unknown committed
1197
sub run_tests () {
unknown's avatar
unknown committed
1198 1199 1200 1201 1202 1203 1204
  run_suite($opt_suite);
}

sub run_suite () {
  my $suite= shift;

  mtr_print_thick_line();
unknown's avatar
unknown committed
1205

unknown's avatar
unknown committed
1206
  mtr_report("Finding  Tests in the '$suite' suite");
unknown's avatar
unknown committed
1207

1208 1209
  mtr_timer_start($glob_timers,"suite", 60 * $opt_suite_timeout);

unknown's avatar
unknown committed
1210
  my $tests= collect_test_cases($suite);
unknown's avatar
unknown committed
1211

unknown's avatar
unknown committed
1212
  mtr_report("Starting Tests in the '$suite' suite");
unknown's avatar
unknown committed
1213 1214 1215 1216 1217

  mtr_print_header();

  foreach my $tinfo ( @$tests )
  {
1218
    mtr_timer_start($glob_timers,"testcase", 60 * $opt_testcase_timeout);
unknown's avatar
unknown committed
1219
    run_testcase($tinfo);
1220
    mtr_timer_stop($glob_timers,"testcase");
unknown's avatar
unknown committed
1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1231 1232 1233 1234 1235 1236 1237 1238 1239 1240
  }

  mtr_print_line();

  if ( ! $opt_gdb and ! $glob_use_running_server and
       ! $opt_ddd and ! $glob_use_embedded_server )
  {
    stop_masters_slaves();
  }

  if ( $opt_gcov )
  {
    gcov_collect(); # collect coverage information
  }
  if ( $opt_gprof )
  {
    gprof_collect(); # collect coverage information
  }

  mtr_report_stats($tests);
1241 1242

  mtr_timer_stop($glob_timers,"suite");
unknown's avatar
unknown committed
1243 1244 1245 1246 1247 1248 1249 1250 1251 1252 1253
}


##############################################################################
#
#  Initiate the test databases
#
##############################################################################

sub mysql_install_db () {

unknown's avatar
unknown committed
1254
  # FIXME not exactly true I think, needs improvements
unknown's avatar
unknown committed
1255
  install_db('master', $master->[0]->{'path_myddir'});
unknown's avatar
unknown committed
1256
  install_db('master', $master->[1]->{'path_myddir'});
unknown's avatar
unknown committed
1257
  install_db('slave',  $slave->[0]->{'path_myddir'});
unknown's avatar
unknown committed
1258 1259
  install_db('slave',  $slave->[1]->{'path_myddir'});
  install_db('slave',  $slave->[2]->{'path_myddir'});
unknown's avatar
unknown committed
1260

1261 1262 1263 1264 1265 1266 1267
  if ( ndbcluster_install() )
  {
    # failed to install, disable usage but flag that its no ok
    $opt_with_ndbcluster= 0;
    $flag_ndb_status_ok= 0;
  }

unknown's avatar
unknown committed
1268 1269 1270 1271 1272 1273 1274 1275
  return 0;
}


sub install_db ($$) {
  my $type=      shift;
  my $data_dir=  shift;

unknown's avatar
unknown committed
1276 1277
  my $init_db_sql=     "lib/init_db.sql";
  my $init_db_sql_tmp= "/tmp/init_db.sql$$";
unknown's avatar
unknown committed
1278 1279 1280 1281
  my $args;

  mtr_report("Installing \u$type Databases");

unknown's avatar
unknown committed
1282
  open(IN, $init_db_sql)
unknown's avatar
unknown committed
1283
    or mtr_error("Can't open $init_db_sql: $!");
unknown's avatar
unknown committed
1284
  open(OUT, ">", $init_db_sql_tmp)
unknown's avatar
unknown committed
1285
    or mtr_error("Can't write to $init_db_sql_tmp: $!");
unknown's avatar
unknown committed
1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 1299
  while (<IN>)
  {
    chomp;
    s/\@HOSTNAME\@/$glob_hostname/;
    if ( /^\s*$/ )
    {
      print OUT "\n";
    }
    elsif (/;$/)
    {
      print OUT "$_\n";
    }
    else
    {
unknown's avatar
unknown committed
1300
      print OUT "$_ ";
unknown's avatar
unknown committed
1301 1302 1303 1304 1305
    }
  }
  close OUT;
  close IN;

unknown's avatar
unknown committed
1306 1307 1308 1309
  mtr_init_args(\$args);

  mtr_add_arg($args, "--no-defaults");
  mtr_add_arg($args, "--bootstrap");
1310
  mtr_add_arg($args, "--console");
unknown's avatar
unknown committed
1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323
  mtr_add_arg($args, "--skip-grant-tables");
  mtr_add_arg($args, "--basedir=%s", $path_my_basedir);
  mtr_add_arg($args, "--datadir=%s", $data_dir);
  mtr_add_arg($args, "--skip-innodb");
  mtr_add_arg($args, "--skip-ndbcluster");
  mtr_add_arg($args, "--skip-bdb");

  if ( ! $opt_netware )
  {
    mtr_add_arg($args, "--language=%s", $path_language);
    mtr_add_arg($args, "--character-sets-dir=%s", $path_charsetsdir);
  }

unknown's avatar
unknown committed
1324
  if ( mtr_run($exe_mysqld, $args, $init_db_sql_tmp,
unknown's avatar
unknown committed
1325 1326
               $path_manager_log, $path_manager_log, "") != 0 )
  {
unknown's avatar
unknown committed
1327
    unlink($init_db_sql_tmp);
unknown's avatar
unknown committed
1328
    mtr_error("Error executing mysqld --bootstrap\n" .
unknown's avatar
unknown committed
1329 1330
              "Could not install $type test DBs");
  }
unknown's avatar
unknown committed
1331
  unlink($init_db_sql_tmp);
unknown's avatar
unknown committed
1332 1333 1334 1335 1336 1337 1338 1339 1340 1341 1342 1343 1344 1345 1346 1347 1348 1349 1350 1351 1352 1353 1354 1355 1356 1357
}


##############################################################################
#
#  Run a single test case
#
##############################################################################

# When we get here, we have already filtered out test cases that doesn't
# apply to the current setup, for example if we use a running server, test
# cases that restart the server are dropped. So this function should mostly
# be about doing things, not a lot of logic.

# We don't start and kill the servers for each testcase. But some
# testcases needs a restart, because they specify options to start
# mysqld with. After that testcase, we need to restart again, to set
# back the normal options.

sub run_testcase ($) {
  my $tinfo=  shift;

  my $tname= $tinfo->{'name'};

  mtr_tonewfile($opt_current_test,"$tname\n"); # Always tell where we are

1358 1359 1360
  # output current test to ndbcluster log file to enable diagnostics
  mtr_tofile($file_ndb_testrun_log,"CURRENT TEST $tname\n");

unknown's avatar
unknown committed
1361 1362 1363 1364 1365 1366 1367 1368 1369
  # ----------------------------------------------------------------------
  # If marked to skip, just print out and return.
  # Note that a test case not marked as 'skip' can still be
  # skipped later, because of the test case itself in cooperation
  # with the mysqltest program tells us so.
  # ----------------------------------------------------------------------

  if ( $tinfo->{'skip'} )
  {
unknown's avatar
unknown committed
1370
    mtr_report_test_name($tinfo);
unknown's avatar
unknown committed
1371 1372 1373 1374 1375 1376 1377 1378 1379 1380 1381 1382 1383 1384 1385 1386 1387
    mtr_report_test_skipped($tinfo);
    return;
  }

  # ----------------------------------------------------------------------
  # If not using a running servers we may need to stop and restart.
  # We restart in the case we have initiation scripts, server options
  # etc to run. But we also restart again after the test first restart
  # and test is run, to get back to normal server settings.
  #
  # To make the code a bit more clean, we actually only stop servers
  # here, and mark this to be done. Then a generic "start" part will
  # start up the needed servers again.
  # ----------------------------------------------------------------------

  if ( ! $glob_use_running_server and ! $glob_use_embedded_server )
  {
unknown's avatar
unknown committed
1388 1389
    if ( $tinfo->{'master_restart'} or
         $master->[0]->{'running_master_is_special'} )
unknown's avatar
unknown committed
1390 1391
    {
      stop_masters();
unknown's avatar
unknown committed
1392
      $master->[0]->{'running_master_is_special'}= 0; # Forget why we stopped
unknown's avatar
unknown committed
1393 1394 1395 1396 1397 1398 1399 1400 1401
    }

    # ----------------------------------------------------------------------
    # Always terminate all slaves, if any. Else we may have useless
    # reconnection attempts and error messages in case the slave and
    # master servers restart.
    # ----------------------------------------------------------------------

    stop_slaves();
unknown's avatar
unknown committed
1402
  }    
unknown's avatar
unknown committed
1403

unknown's avatar
unknown committed
1404 1405 1406 1407 1408
  # ----------------------------------------------------------------------
  # Prepare to start masters. Even if we use embedded, we want to run
  # the preparation.
  # ----------------------------------------------------------------------

unknown's avatar
unknown committed
1409 1410
  $ENV{'TZ'}= $tinfo->{'timezone'};

unknown's avatar
unknown committed
1411 1412
  mtr_report_test_name($tinfo);

unknown's avatar
unknown committed
1413
  mtr_tofile($master->[0]->{'path_myerr'},"CURRENT_TEST: $tname\n");
unknown's avatar
unknown committed
1414 1415 1416 1417

# FIXME test cases that depend on each other, prevent this from
# being at this location.
#  do_before_start_master($tname,$tinfo->{'master_sh'});
unknown's avatar
unknown committed
1418

unknown's avatar
unknown committed
1419 1420 1421 1422 1423 1424
  # ----------------------------------------------------------------------
  # If any mysqld servers running died, we have to know
  # ----------------------------------------------------------------------

  mtr_record_dead_children();

unknown's avatar
unknown committed
1425 1426 1427
  # ----------------------------------------------------------------------
  # Start masters
  # ----------------------------------------------------------------------
unknown's avatar
unknown committed
1428

unknown's avatar
unknown committed
1429 1430
  if ( ! $glob_use_running_server and ! $glob_use_embedded_server )
  {
unknown's avatar
unknown committed
1431 1432 1433 1434 1435 1436 1437
    # FIXME give the args to the embedded server?!
    # FIXME what does $opt_local_master mean?!
    # FIXME split up start and check that started so that can do
    #       starts in parallel, masters and slaves at the same time.

    if ( ! $opt_local_master )
    {
1438 1439 1440 1441 1442 1443 1444 1445 1446
      if ( $master->[0]->{'ndbcluster'} )
      {
	$master->[0]->{'ndbcluster'}= ndbcluster_start();
        if ( $master->[0]->{'ndbcluster'} )
        {
          report_failure_and_restart($tinfo);
          return;
        }
      }
unknown's avatar
unknown committed
1447 1448
      if ( ! $master->[0]->{'pid'} )
      {
unknown's avatar
unknown committed
1449 1450
        # FIXME not correct location for do_before_start_master()
        do_before_start_master($tname,$tinfo->{'master_sh'});
unknown's avatar
unknown committed
1451 1452
        $master->[0]->{'pid'}=
          mysqld_start('master',0,$tinfo->{'master_opt'},[]);
unknown's avatar
unknown committed
1453 1454 1455 1456 1457
        if ( ! $master->[0]->{'pid'} )
        {
          report_failure_and_restart($tinfo);
          return;
        }
unknown's avatar
unknown committed
1458 1459 1460 1461 1462
      }
      if ( $opt_with_ndbcluster and ! $master->[1]->{'pid'} )
      {
        $master->[1]->{'pid'}=
          mysqld_start('master',1,$tinfo->{'master_opt'},[]);
unknown's avatar
unknown committed
1463 1464 1465 1466 1467
        if ( ! $master->[1]->{'pid'} )
        {
          report_failure_and_restart($tinfo);
          return;
        }
unknown's avatar
unknown committed
1468 1469
      }

unknown's avatar
unknown committed
1470
      if ( $tinfo->{'master_restart'} )
unknown's avatar
unknown committed
1471
      {
unknown's avatar
unknown committed
1472
        $master->[0]->{'running_master_is_special'}= 1;
unknown's avatar
unknown committed
1473 1474 1475 1476 1477 1478 1479 1480 1481 1482 1483 1484 1485 1486 1487 1488 1489 1490 1491 1492
      }
    }

    # ----------------------------------------------------------------------
    # Start slaves - if needed
    # ----------------------------------------------------------------------

    if ( $tinfo->{'slave_num'} )
    {
      mtr_tofile($slave->[0]->{'path_myerr'},"CURRENT_TEST: $tname\n");

      do_before_start_slave($tname,$tinfo->{'slave_sh'});

      for ( my $idx= 0; $idx <  $tinfo->{'slave_num'}; $idx++ )
      {
        if ( ! $slave->[$idx]->{'pid'} )
        {
          $slave->[$idx]->{'pid'}=
            mysqld_start('slave',$idx,
                         $tinfo->{'slave_opt'}, $tinfo->{'slave_mi'});
unknown's avatar
unknown committed
1493 1494 1495 1496 1497
          if ( ! $slave->[$idx]->{'pid'} )
          {
            report_failure_and_restart($tinfo);
            return;
          }
unknown's avatar
unknown committed
1498 1499 1500 1501 1502
        }
      }
    }
  }

unknown's avatar
unknown committed
1503 1504 1505 1506 1507 1508 1509 1510 1511 1512
  # ----------------------------------------------------------------------
  # If --start-and-exit given, stop here to let user manually run tests
  # ----------------------------------------------------------------------

  if ( $opt_start_and_exit )
  {
    mtr_report("\nServers started, exiting");
    exit(0);
  }

unknown's avatar
unknown committed
1513 1514 1515 1516 1517
  # ----------------------------------------------------------------------
  # Run the test case
  # ----------------------------------------------------------------------

  {
1518 1519 1520 1521 1522 1523 1524 1525 1526
    # remove the old reject file
    if ( $opt_suite eq "main" )
    {
      unlink("r/$tname.reject");
    }
    else
    {
      unlink("suite/$opt_suite/r/$tname.reject");
    }
unknown's avatar
unknown committed
1527 1528
    unlink($path_timefile);

unknown's avatar
unknown committed
1529
    my $res= run_mysqltest($tinfo);
unknown's avatar
unknown committed
1530 1531 1532 1533 1534

    if ( $res == 0 )
    {
      mtr_report_test_passed($tinfo);
    }
unknown's avatar
unknown committed
1535
    elsif ( $res == 62 )
unknown's avatar
unknown committed
1536 1537 1538 1539
    {
      # Testcase itself tell us to skip this one
      mtr_report_test_skipped($tinfo);
    }
1540 1541 1542 1543 1544
    elsif ( $res == 63 )
    {
      $tinfo->{'timeout'}= 1;           # Mark as timeout
      report_failure_and_restart($tinfo);
    }
unknown's avatar
unknown committed
1545 1546
    else
    {
unknown's avatar
unknown committed
1547 1548
      # Test case failed, if in control mysqltest returns 1
      if ( $res != 1 )
unknown's avatar
unknown committed
1549 1550 1551 1552 1553
      {
        mtr_tofile($path_timefile,
                   "mysqltest returned unexpected code $res, " .
                   "it has probably crashed");
      }
unknown's avatar
unknown committed
1554 1555 1556 1557
      report_failure_and_restart($tinfo);
    }
  }
}
unknown's avatar
unknown committed
1558

unknown's avatar
unknown committed
1559 1560 1561 1562 1563 1564 1565 1566 1567 1568 1569 1570 1571 1572 1573

sub report_failure_and_restart ($) {
  my $tinfo= shift;

  mtr_report_test_failed($tinfo);
  mtr_show_failed_diff($tinfo->{'name'});
  print "\n";
  if ( ! $opt_force )
  {
    print "Aborting: $tinfo->{'name'} failed. To continue, re-run with '--force'.";
    print "\n";
    if ( ! $opt_gdb and ! $glob_use_running_server and
         ! $opt_ddd and ! $glob_use_embedded_server )
    {
      stop_masters_slaves();
unknown's avatar
unknown committed
1574
    }
unknown's avatar
unknown committed
1575
    mtr_exit(1);
unknown's avatar
unknown committed
1576 1577 1578 1579 1580 1581 1582
  }

  # FIXME always terminate on failure?!
  if ( ! $opt_gdb and ! $glob_use_running_server and
       ! $opt_ddd and ! $glob_use_embedded_server )
  {
    stop_masters_slaves();
unknown's avatar
unknown committed
1583
  }
unknown's avatar
unknown committed
1584
  print "Resuming Tests\n\n";
unknown's avatar
unknown committed
1585 1586 1587 1588 1589 1590 1591 1592 1593 1594 1595 1596 1597
}


##############################################################################
#
#  Start and stop servers
#
##############################################################################

# The embedded server needs the cleanup so we do some of the start work
# but stop before actually running mysqld or anything.

sub do_before_start_master ($$) {
unknown's avatar
unknown committed
1598 1599
  my $tname=       shift;
  my $init_script= shift;
unknown's avatar
unknown committed
1600 1601 1602 1603 1604 1605 1606 1607 1608

  # FIXME what about second master.....

  # Remove stale binary logs except for 2 tests which need them FIXME here????
  if ( $tname ne "rpl_crash_binlog_ib_1b" and
       $tname ne "rpl_crash_binlog_ib_2b" and
       $tname ne "rpl_crash_binlog_ib_3b")
  {
    # FIXME we really want separate dir for binlogs
unknown's avatar
unknown committed
1609
    foreach my $bin ( glob("$opt_vardir/log/master*-bin*") )
unknown's avatar
unknown committed
1610 1611 1612
    {
      unlink($bin);
    }
unknown's avatar
unknown committed
1613 1614 1615
  }

  # Remove old master.info and relay-log.info files
unknown's avatar
unknown committed
1616 1617 1618 1619
  unlink("$master->[0]->{'path_myddir'}/master.info");
  unlink("$master->[0]->{'path_myddir'}/relay-log.info");
  unlink("$master->[1]->{'path_myddir'}/master.info");
  unlink("$master->[1]->{'path_myddir'}/relay-log.info");
unknown's avatar
unknown committed
1620

unknown's avatar
unknown committed
1621
  # Run master initialization shell script if one exists
unknown's avatar
unknown committed
1622
  if ( $init_script )
unknown's avatar
unknown committed
1623
  {
unknown's avatar
unknown committed
1624 1625 1626 1627 1628 1629
    my $ret= mtr_run("/bin/sh", [$init_script], "", "", "", "");
    if ( $ret != 0 )
    {
      # FIXME rewrite those scripts to return 0 if successful
#      mtr_warning("$init_script exited with code $ret");
    }
unknown's avatar
unknown committed
1630 1631 1632 1633 1634 1635
  }
  # for gcov  FIXME needed? If so we need more absolute paths
# chdir($glob_basedir);
}

sub do_before_start_slave ($$) {
unknown's avatar
unknown committed
1636 1637
  my $tname=       shift;
  my $init_script= shift;
unknown's avatar
unknown committed
1638 1639 1640 1641 1642 1643 1644 1645

  # Remove stale binary logs and old master.info files
  # except for too tests which need them
  if ( $tname ne "rpl_crash_binlog_ib_1b" and
       $tname ne "rpl_crash_binlog_ib_2b" and
       $tname ne "rpl_crash_binlog_ib_3b" )
  {
    # FIXME we really want separate dir for binlogs
unknown's avatar
unknown committed
1646
    foreach my $bin ( glob("$opt_vardir/log/slave*-bin*") )
unknown's avatar
unknown committed
1647 1648 1649
    {
      unlink($bin);
    }
unknown's avatar
unknown committed
1650
    # FIXME really master?!
unknown's avatar
unknown committed
1651 1652
    unlink("$slave->[0]->{'path_myddir'}/master.info");
    unlink("$slave->[0]->{'path_myddir'}/relay-log.info");
unknown's avatar
unknown committed
1653 1654
  }

unknown's avatar
unknown committed
1655
  # Run slave initialization shell script if one exists
unknown's avatar
unknown committed
1656
  if ( $init_script )
unknown's avatar
unknown committed
1657
  {
unknown's avatar
unknown committed
1658 1659 1660 1661 1662 1663
    my $ret= mtr_run("/bin/sh", [$init_script], "", "", "", "");
    if ( $ret != 0 )
    {
      # FIXME rewrite those scripts to return 0 if successful
#      mtr_warning("$init_script exited with code $ret");
    }
unknown's avatar
unknown committed
1664 1665
  }

unknown's avatar
unknown committed
1666 1667 1668 1669
  foreach my $bin ( glob("$slave->[0]->{'path_myddir'}/log.*") )
  {
    unlink($bin);
  }
unknown's avatar
unknown committed
1670 1671 1672
}

sub mysqld_arguments ($$$$$) {
unknown's avatar
unknown committed
1673 1674 1675 1676 1677 1678
  my $args=              shift;
  my $type=              shift;        # master/slave/bootstrap
  my $idx=               shift;
  my $extra_opt=         shift;
  my $slave_master_info= shift;

unknown's avatar
unknown committed
1679 1680 1681 1682 1683 1684 1685 1686 1687 1688 1689
  my $sidx= "";                 # Index as string, 0 is empty string
  if ( $idx > 0 )
  {
    $sidx= sprintf("%d", $idx); # sprintf not needed in Perl for this
  }

  my $prefix= "";               # If mysqltest server arg

  if ( $glob_use_embedded_server )
  {
    $prefix= "--server-arg=";
unknown's avatar
unknown committed
1690 1691 1692
  } else {
    # We can't pass embedded server --no-defaults
    mtr_add_arg($args, "%s--no-defaults", $prefix);
unknown's avatar
unknown committed
1693 1694
  }

1695
  mtr_add_arg($args, "%s--console", $prefix);
unknown's avatar
unknown committed
1696 1697 1698 1699 1700 1701 1702 1703 1704 1705 1706 1707 1708 1709 1710 1711 1712
  mtr_add_arg($args, "%s--basedir=%s", $prefix, $path_my_basedir);
  mtr_add_arg($args, "%s--character-sets-dir=%s", $prefix, $path_charsetsdir);
  mtr_add_arg($args, "%s--core", $prefix);
  mtr_add_arg($args, "%s--default-character-set=latin1", $prefix);
  mtr_add_arg($args, "%s--language=%s", $prefix, $path_language);
  mtr_add_arg($args, "%s--tmpdir=$opt_tmpdir", $prefix);

  if ( $opt_valgrind )
  {
    mtr_add_arg($args, "%s--skip-safemalloc", $prefix);
    mtr_add_arg($args, "%s--skip-bdb", $prefix);
  }

  my $pidfile;

  if ( $type eq 'master' )
  {
unknown's avatar
unknown committed
1713 1714
    my $id= $idx > 0 ? $idx + 101 : 1;

unknown's avatar
unknown committed
1715 1716
    mtr_add_arg($args, "%s--log-bin=%s/log/master-bin%s", $prefix,
                $opt_vardir, $sidx);
unknown's avatar
unknown committed
1717 1718 1719 1720
    mtr_add_arg($args, "%s--pid-file=%s", $prefix,
                $master->[$idx]->{'path_mypid'});
    mtr_add_arg($args, "%s--port=%d", $prefix,
                $master->[$idx]->{'path_myport'});
unknown's avatar
unknown committed
1721
    mtr_add_arg($args, "%s--server-id=%d", $prefix, $id);
unknown's avatar
unknown committed
1722 1723 1724 1725 1726 1727
    mtr_add_arg($args, "%s--socket=%s", $prefix,
                $master->[$idx]->{'path_mysock'});
    mtr_add_arg($args, "%s--innodb_data_file_path=ibdata1:50M", $prefix);
    mtr_add_arg($args, "%s--local-infile", $prefix);
    mtr_add_arg($args, "%s--datadir=%s", $prefix,
                $master->[$idx]->{'path_myddir'});
unknown's avatar
unknown committed
1728

unknown's avatar
unknown committed
1729 1730 1731 1732 1733
    if ( $idx > 0 )
    {
      mtr_add_arg($args, "%s--skip-innodb", $prefix);
    }

unknown's avatar
unknown committed
1734 1735 1736 1737
    if ( $opt_skip_ndbcluster )
    {
      mtr_add_arg($args, "%s--skip-ndbcluster", $prefix);
    }
unknown's avatar
unknown committed
1738 1739 1740 1741 1742
  }

  if ( $type eq 'slave' )
  {
    my $slave_server_id=  2 + $idx;
unknown's avatar
unknown committed
1743
    my $slave_rpl_rank= $slave_server_id;
unknown's avatar
unknown committed
1744 1745 1746

    mtr_add_arg($args, "%s--datadir=%s", $prefix,
                $slave->[$idx]->{'path_myddir'});
unknown's avatar
unknown committed
1747
    # FIXME slave get this option twice?!
unknown's avatar
unknown committed
1748 1749
    mtr_add_arg($args, "%s--exit-info=256", $prefix);
    mtr_add_arg($args, "%s--init-rpl-role=slave", $prefix);
1750 1751
    mtr_add_arg($args, "%s--log-bin=%s/log/slave%s-bin", $prefix,
                $opt_vardir, $sidx); # FIXME use own dir for binlogs
unknown's avatar
unknown committed
1752
    mtr_add_arg($args, "%s--log-slave-updates", $prefix);
unknown's avatar
unknown committed
1753
    # FIXME option duplicated for slave
unknown's avatar
unknown committed
1754
    mtr_add_arg($args, "%s--log=%s", $prefix,
unknown's avatar
unknown committed
1755
                $slave->[$idx]->{'path_mylog'});
unknown's avatar
unknown committed
1756 1757 1758 1759 1760
    mtr_add_arg($args, "%s--master-retry-count=10", $prefix);
    mtr_add_arg($args, "%s--pid-file=%s", $prefix,
                $slave->[$idx]->{'path_mypid'});
    mtr_add_arg($args, "%s--port=%d", $prefix,
                $slave->[$idx]->{'path_myport'});
1761 1762
    mtr_add_arg($args, "%s--relay-log=%s/log/slave%s-relay-bin", $prefix,
                $opt_vardir, $sidx);
unknown's avatar
unknown committed
1763 1764 1765 1766 1767 1768 1769 1770 1771 1772 1773 1774 1775 1776 1777 1778 1779 1780 1781 1782 1783 1784 1785 1786 1787 1788 1789 1790 1791 1792 1793 1794 1795 1796 1797 1798 1799
    mtr_add_arg($args, "%s--report-host=127.0.0.1", $prefix);
    mtr_add_arg($args, "%s--report-port=%d", $prefix,
                $slave->[$idx]->{'path_myport'});
    mtr_add_arg($args, "%s--report-user=root", $prefix);
    mtr_add_arg($args, "%s--skip-innodb", $prefix);
    mtr_add_arg($args, "%s--skip-ndbcluster", $prefix);
    mtr_add_arg($args, "%s--skip-slave-start", $prefix);
    mtr_add_arg($args, "%s--slave-load-tmpdir=%s", $prefix,
                $path_slave_load_tmpdir);
    mtr_add_arg($args, "%s--socket=%s", $prefix,
                $slave->[$idx]->{'path_mysock'});
    mtr_add_arg($args, "%s--set-variable=slave_net_timeout=10", $prefix);

    if ( @$slave_master_info )
    {
      foreach my $arg ( @$slave_master_info )
      {
        mtr_add_arg($args, "%s%s", $prefix, $arg);
      }
    }
    else
    {
      mtr_add_arg($args, "%s--master-user=root", $prefix);
      mtr_add_arg($args, "%s--master-connect-retry=1", $prefix);
      mtr_add_arg($args, "%s--master-host=127.0.0.1", $prefix);
      mtr_add_arg($args, "%s--master-password=", $prefix);
      mtr_add_arg($args, "%s--master-port=%d", $prefix,
                  $master->[0]->{'path_myport'}); # First master
      mtr_add_arg($args, "%s--server-id=%d", $prefix, $slave_server_id);
      mtr_add_arg($args, "%s--rpl-recovery-rank=%d", $prefix, $slave_rpl_rank);
    }
  } # end slave

  if ( $opt_debug )
  {
    if ( $type eq 'master' )
    {
1800 1801
      mtr_add_arg($args, "%s--debug=d:t:i:A,%s/log/master%s.trace",
                  $prefix, $opt_vardir, $sidx);
unknown's avatar
unknown committed
1802 1803 1804
    }
    if ( $type eq 'slave' )
    {
1805 1806
      mtr_add_arg($args, "%s--debug=d:t:i:A,%s/log/slave%s.trace",
                  $prefix, $opt_vardir, $sidx);
unknown's avatar
unknown committed
1807 1808 1809 1810 1811 1812
    }
  }

  if ( $opt_with_ndbcluster )
  {
    mtr_add_arg($args, "%s--ndbcluster", $prefix);
1813 1814
    mtr_add_arg($args, "%s--ndb-connectstring=%s", $prefix,
                $opt_ndbconnectstring);
unknown's avatar
unknown committed
1815 1816 1817 1818 1819 1820 1821 1822 1823
  }

  # FIXME always set nowdays??? SMALL_SERVER
  mtr_add_arg($args, "%s--key_buffer_size=1M", $prefix);
  mtr_add_arg($args, "%s--sort_buffer=256K", $prefix);
  mtr_add_arg($args, "%s--max_heap_table_size=1M", $prefix);

  if ( $opt_with_openssl )
  {
unknown's avatar
unknown committed
1824 1825 1826 1827 1828 1829
    mtr_add_arg($args, "%s--ssl-ca=%s/std_data/cacert.pem", $prefix,
                $glob_mysql_test_dir);
    mtr_add_arg($args, "%s--ssl-cert=%s/std_data/server-cert.pem", $prefix,
                $glob_mysql_test_dir);
    mtr_add_arg($args, "%s--ssl-key=%s/std_data/server-key.pem", $prefix,
                $glob_mysql_test_dir);
unknown's avatar
unknown committed
1830 1831 1832 1833 1834 1835 1836 1837 1838 1839 1840 1841 1842 1843 1844 1845 1846 1847 1848 1849 1850 1851 1852 1853 1854 1855 1856 1857 1858 1859
  }

  if ( $opt_warnings )
  {
    mtr_add_arg($args, "%s--log-warnings", $prefix);
  }

  if ( $opt_gdb or $opt_client_gdb or $opt_manual_gdb or $opt_ddd)
  {
    mtr_add_arg($args, "%s--gdb", $prefix);
  }

  # If we should run all tests cases, we will use a local server for that

  if ( -w "/" )
  {
    # We are running as root;  We need to add the --root argument
    mtr_add_arg($args, "%s--user=root", $prefix);
  }

  if ( $type eq 'master' )
  {

    if ( ! $opt_old_master )
    {
      mtr_add_arg($args, "%s--rpl-recovery-rank=1", $prefix);
      mtr_add_arg($args, "%s--init-rpl-role=master", $prefix);
    }

    # FIXME strange,.....
unknown's avatar
unknown committed
1860
    # FIXME MYSQL_MYPORT is not set anythere?!
unknown's avatar
unknown committed
1861 1862 1863 1864 1865 1866 1867
    if ( $opt_local_master )
    {
      mtr_add_arg($args, "%s--host=127.0.0.1", $prefix);
      mtr_add_arg($args, "%s--port=%s", $prefix, $ENV{'MYSQL_MYPORT'});
    }
  }

unknown's avatar
unknown committed
1868
  foreach my $arg ( @opt_extra_mysqld_opt, @$extra_opt )
unknown's avatar
unknown committed
1869 1870 1871 1872 1873 1874 1875 1876 1877
  {
    mtr_add_arg($args, "%s%s", $prefix, $arg);
  }

  if ( $opt_bench )
  {
    mtr_add_arg($args, "%s--rpl-recovery-rank=1", $prefix);
    mtr_add_arg($args, "%s--init-rpl-role=master", $prefix);
  }
unknown's avatar
unknown committed
1878
  elsif ( $type eq 'master' )
unknown's avatar
unknown committed
1879 1880 1881
  {
    mtr_add_arg($args, "%s--exit-info=256", $prefix);
    mtr_add_arg($args, "%s--open-files-limit=1024", $prefix);
unknown's avatar
unknown committed
1882
    mtr_add_arg($args, "%s--log=%s", $prefix, $master->[0]->{'path_mylog'});
unknown's avatar
unknown committed
1883 1884 1885 1886 1887 1888 1889 1890 1891 1892 1893 1894 1895 1896 1897 1898 1899 1900 1901 1902 1903
  }

  return $args;
}

# FIXME
#  if ( $type eq 'master' and $glob_use_embedded_server )
#  {
#    # Add a -A to each argument to pass it to embedded server
#    my @mysqltest_opt=  map {("-A",$_)} @args;
#    $opt_extra_mysqltest_opt=  \@mysqltest_opt;
#    return;
#  }

##############################################################################
#
#  Start mysqld and return the PID
#
##############################################################################

sub mysqld_start ($$$$) {
unknown's avatar
unknown committed
1904 1905 1906 1907
  my $type=              shift;        # master/slave/bootstrap
  my $idx=               shift;
  my $extra_opt=         shift;
  my $slave_master_info= shift;
unknown's avatar
unknown committed
1908 1909 1910 1911 1912

  my $args;                             # Arg vector
  my $exe;
  my $pid;

unknown's avatar
unknown committed
1913
  if ( $type eq 'master' )
unknown's avatar
unknown committed
1914
  {
unknown's avatar
unknown committed
1915 1916 1917 1918 1919
    $exe= $exe_master_mysqld;
  }
  elsif ( $type eq 'slave' )
  {
    $exe= $exe_slave_mysqld;
unknown's avatar
unknown committed
1920 1921 1922
  }
  else
  {
unknown's avatar
unknown committed
1923
    $exe= $exe_mysqld;
unknown's avatar
unknown committed
1924 1925 1926 1927 1928 1929 1930 1931 1932 1933 1934 1935 1936 1937 1938 1939 1940 1941 1942 1943 1944 1945 1946 1947 1948 1949 1950 1951 1952 1953 1954 1955 1956 1957 1958 1959 1960
  }

  mtr_init_args(\$args);

  if ( $opt_valgrind )
  {

    mtr_add_arg($args, "--tool=memcheck");
    mtr_add_arg($args, "--alignment=8");
    mtr_add_arg($args, "--leak-check=yes");
    mtr_add_arg($args, "--num-callers=16");

    if ( $opt_valgrind_all )
    {
      mtr_add_arg($args, "-v");
      mtr_add_arg($args, "--show-reachable=yes");
    }

    if ( $opt_valgrind_options )
    {
      # FIXME split earlier and put into @glob_valgrind_*
      mtr_add_arg($args, split(' ', $opt_valgrind_options));
    }

    mtr_add_arg($args, $exe);

    $exe=  $opt_valgrind;
  }

  mysqld_arguments($args,$type,$idx,$extra_opt,$slave_master_info);

  if ( $type eq 'master' )
  {
    if ( $pid= mtr_spawn($exe, $args, "",
                         $master->[$idx]->{'path_myerr'},
                         $master->[$idx]->{'path_myerr'}, "") )
    {
unknown's avatar
unknown committed
1961 1962
      return sleep_until_file_created($master->[$idx]->{'path_mypid'},
                                      $master->[$idx]->{'start_timeout'}, $pid);
unknown's avatar
unknown committed
1963 1964 1965 1966 1967 1968 1969 1970 1971
    }
  }

  if ( $type eq 'slave' )
  {
    if ( $pid= mtr_spawn($exe, $args, "",
                         $slave->[$idx]->{'path_myerr'},
                         $slave->[$idx]->{'path_myerr'}, "") )
    {
unknown's avatar
unknown committed
1972 1973
      return sleep_until_file_created($slave->[$idx]->{'path_mypid'},
                                      $master->[$idx]->{'start_timeout'}, $pid);
unknown's avatar
unknown committed
1974 1975 1976
    }
  }

unknown's avatar
unknown committed
1977
  return 0;
unknown's avatar
unknown committed
1978 1979 1980 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1995 1996 1997 1998 1999
}

sub stop_masters_slaves () {

  print  "Ending Tests\n";
  print  "Shutting-down MySQL daemon\n\n";
  stop_masters();
  print "Master(s) shutdown finished\n";
  stop_slaves();
  print "Slave(s) shutdown finished\n";
}

sub stop_masters () {

  my @args;

  for ( my $idx; $idx < 2; $idx++ )
  {
    # FIXME if we hit ^C before fully started, this test will prevent
    # the mysqld process from being killed
    if ( $master->[$idx]->{'pid'} )
    {
unknown's avatar
unknown committed
2000 2001 2002 2003 2004 2005 2006
      push(@args,{
                  pid      => $master->[$idx]->{'pid'},
                  pidfile  => $master->[$idx]->{'path_mypid'},
                  sockfile => $master->[$idx]->{'path_mysock'},
                  port     => $master->[$idx]->{'path_myport'},
                 });
      $master->[$idx]->{'pid'}= 0; # Assume we are done with it
unknown's avatar
unknown committed
2007 2008 2009
    }
  }

2010 2011 2012 2013 2014 2015
  if ( ! $master->[0]->{'ndbcluster'} )
  {
    ndbcluster_stop();
    $master->[0]->{'ndbcluster'}= 1;
  }

unknown's avatar
unknown committed
2016
  mtr_stop_mysqld_servers(\@args);
unknown's avatar
unknown committed
2017 2018 2019 2020 2021 2022 2023 2024 2025 2026 2027
}

sub stop_slaves () {
  my $force= shift;

  my @args;

  for ( my $idx; $idx < 3; $idx++ )
  {
    if ( $slave->[$idx]->{'pid'} )
    {
unknown's avatar
unknown committed
2028 2029 2030 2031 2032 2033 2034
      push(@args,{
                  pid      => $slave->[$idx]->{'pid'},
                  pidfile  => $slave->[$idx]->{'path_mypid'},
                  sockfile => $slave->[$idx]->{'path_mysock'},
                  port     => $slave->[$idx]->{'path_myport'},
                 });
      $slave->[$idx]->{'pid'}= 0; # Assume we are done with it
unknown's avatar
unknown committed
2035 2036 2037
    }
  }

unknown's avatar
unknown committed
2038
  mtr_stop_mysqld_servers(\@args);
unknown's avatar
unknown committed
2039 2040 2041
}


unknown's avatar
unknown committed
2042
sub run_mysqltest ($) {
unknown's avatar
unknown committed
2043
  my $tinfo=       shift;
unknown's avatar
unknown committed
2044 2045

  my $cmdline_mysqldump= "$exe_mysqldump --no-defaults -uroot " .
unknown's avatar
unknown committed
2046
                         "--port=$master->[0]->{'path_myport'} " .
unknown's avatar
unknown committed
2047 2048 2049 2050
                         "--socket=$master->[0]->{'path_mysock'} --password=";
  if ( $opt_debug )
  {
    $cmdline_mysqldump .=
2051
      " --debug=d:t:A,$opt_vardir/log/mysqldump.trace";
unknown's avatar
unknown committed
2052 2053
  }

unknown's avatar
unknown committed
2054
  my $cmdline_mysqlshow= "$exe_mysqlshow -uroot " .
unknown's avatar
unknown committed
2055
                         "--port=$master->[0]->{'path_myport'} " .
unknown's avatar
unknown committed
2056 2057 2058 2059 2060 2061 2062
                         "--socket=$master->[0]->{'path_mysock'} --password=";
  if ( $opt_debug )
  {
    $cmdline_mysqlshow .=
      " --debug=d:t:A,$opt_vardir/log/mysqlshow.trace";
  }

unknown's avatar
unknown committed
2063 2064 2065 2066 2067 2068
  my $cmdline_mysqlbinlog=
    "$exe_mysqlbinlog --no-defaults --local-load=$opt_tmpdir";

  if ( $opt_debug )
  {
    $cmdline_mysqlbinlog .=
2069
      " --debug=d:t:A,$opt_vardir/log/mysqlbinlog.trace";
unknown's avatar
unknown committed
2070 2071 2072
  }

  my $cmdline_mysql=
unknown's avatar
unknown committed
2073 2074 2075 2076 2077 2078 2079 2080 2081
    "$exe_mysql --host=localhost  --user=root --password= " .
    "--port=$master->[0]->{'path_myport'} " .
    "--socket=$master->[0]->{'path_mysock'}";

  my $cmdline_mysql_client_test=
    "$exe_mysql_client_test --no-defaults --testcase --user=root --silent " .
    "--port=$master->[0]->{'path_myport'} " .
    "--socket=$master->[0]->{'path_mysock'}";

unknown's avatar
unknown committed
2082 2083 2084 2085 2086 2087 2088 2089
  if ( $glob_use_embedded_server )
  {
    $cmdline_mysql_client_test.=
      " -A --language=$path_language" .
      " -A --datadir=$slave->[0]->{'path_myddir'}" .
      " -A --character-sets-dir=$path_charsetsdir";
  }

unknown's avatar
unknown committed
2090 2091 2092 2093 2094 2095 2096
  my $cmdline_mysql_fix_system_tables=
    "$exe_mysql_fix_system_tables --no-defaults --host=localhost --user=root --password= " .
    "--basedir=$glob_basedir --bindir=$path_client_bindir --verbose " .
    "--port=$master->[0]->{'path_myport'} " .
    "--socket=$master->[0]->{'path_mysock'}";


unknown's avatar
unknown committed
2097

unknown's avatar
unknown committed
2098 2099 2100
  # FIXME really needing a PATH???
  # $ENV{'PATH'}= "/bin:/usr/bin:/usr/local/bin:/usr/bsd:/usr/X11R6/bin:/usr/openwin/bin:/usr/bin/X11:$ENV{'PATH'}";

unknown's avatar
unknown committed
2101
  $ENV{'MYSQL'}=                    $cmdline_mysql;
unknown's avatar
unknown committed
2102
  $ENV{'MYSQL_DUMP'}=               $cmdline_mysqldump;
unknown's avatar
unknown committed
2103
  $ENV{'MYSQL_SHOW'}=               $cmdline_mysqlshow;
unknown's avatar
unknown committed
2104 2105 2106 2107
  $ENV{'MYSQL_BINLOG'}=             $cmdline_mysqlbinlog;
  $ENV{'MYSQL_FIX_SYSTEM_TABLES'}=  $cmdline_mysql_fix_system_tables;
  $ENV{'MYSQL_CLIENT_TEST'}=        $cmdline_mysql_client_test;
  $ENV{'CHARSETSDIR'}=              $path_charsetsdir;
unknown's avatar
unknown committed
2108

2109 2110 2111 2112 2113 2114 2115
  $ENV{'NDB_STATUS_OK'}=            $flag_ndb_status_ok;
  $ENV{'NDB_MGM'}=                  $exe_ndb_mgm;
  $ENV{'NDB_BACKUP_DIR'}=           $path_ndb_backup_dir;
  $ENV{'NDB_TOOLS_DIR'}=            $path_ndb_tools_dir;
  $ENV{'NDB_TOOLS_OUTPUT'}=         $file_ndb_testrun_log;
  $ENV{'NDB_CONNECTSTRING'}=        $opt_ndbconnectstring;

unknown's avatar
unknown committed
2116 2117
  my $exe= $exe_mysqltest;
  my $args;
unknown's avatar
unknown committed
2118 2119 2120 2121 2122 2123

  mtr_init_args(\$args);

  mtr_add_arg($args, "--no-defaults");
  mtr_add_arg($args, "--socket=%s", $master->[0]->{'path_mysock'});
  mtr_add_arg($args, "--database=test");
unknown's avatar
unknown committed
2124
  mtr_add_arg($args, "--user=%s", $opt_user);
unknown's avatar
unknown committed
2125 2126 2127 2128 2129 2130 2131
  mtr_add_arg($args, "--password=");
  mtr_add_arg($args, "--silent");
  mtr_add_arg($args, "-v");
  mtr_add_arg($args, "--skip-safemalloc");
  mtr_add_arg($args, "--tmpdir=%s", $opt_tmpdir);
  mtr_add_arg($args, "--port=%d", $master->[0]->{'path_myport'});

unknown's avatar
unknown committed
2132 2133 2134 2135 2136 2137 2138 2139 2140
  if ( $opt_ps_protocol )
  {
    mtr_add_arg($args, "--ps-protocol");
  }

  if ( $opt_strace_client )
  {
    $exe=  "strace";            # FIXME there are ktrace, ....
    mtr_add_arg($args, "-o");
2141
    mtr_add_arg($args, "%s/log/mysqltest.strace", $opt_vardir);
unknown's avatar
unknown committed
2142 2143 2144
    mtr_add_arg($args, "$exe_mysqltest");
  }

unknown's avatar
unknown committed
2145 2146
  if ( $opt_timer )
  {
2147
    mtr_add_arg($args, "--timer-file=%s/log/timer", $opt_vardir);
unknown's avatar
unknown committed
2148 2149 2150 2151 2152 2153 2154 2155 2156 2157 2158 2159 2160 2161 2162 2163 2164 2165 2166 2167 2168 2169 2170 2171
  }

  if ( $opt_big_test )
  {
    mtr_add_arg($args, "--big-test");
  }

  if ( $opt_record )
  {
    mtr_add_arg($args, "--record");
  }

  if ( $opt_compress )
  {
    mtr_add_arg($args, "--compress");
  }

  if ( $opt_sleep )
  {
    mtr_add_arg($args, "--sleep=%d", $opt_sleep);
  }

  if ( $opt_debug )
  {
2172
    mtr_add_arg($args, "--debug=d:t:A,%s/log/mysqltest.trace", $opt_vardir);
unknown's avatar
unknown committed
2173 2174 2175 2176
  }

  if ( $opt_with_openssl )
  {
unknown's avatar
unknown committed
2177 2178 2179 2180 2181 2182
    mtr_add_arg($args, "--ssl-ca=%s/std_data/cacert.pem",
                $glob_mysql_test_dir);
    mtr_add_arg($args, "--ssl-cert=%s/std_data/client-cert.pem",
                $glob_mysql_test_dir);
    mtr_add_arg($args, "--ssl-key=%s/std_data/client-key.pem",
                $glob_mysql_test_dir);
unknown's avatar
unknown committed
2183 2184 2185 2186 2187
  }

  mtr_add_arg($args, "-R");
  mtr_add_arg($args, $tinfo->{'result_file'});

unknown's avatar
unknown committed
2188 2189 2190 2191
  # ----------------------------------------------------------------------
  # If embedded server, we create server args to give mysqltest to pass on
  # ----------------------------------------------------------------------

unknown's avatar
unknown committed
2192 2193 2194 2195 2196
  if ( $glob_use_embedded_server )
  {
    mysqld_arguments($args,'master',0,$tinfo->{'master_opt'},[]);
  }

unknown's avatar
unknown committed
2197
  return mtr_run_test($exe,$args,$tinfo->{'path'},"",$path_timefile,"");
unknown's avatar
unknown committed
2198
}
unknown's avatar
unknown committed
2199 2200 2201 2202 2203 2204 2205

##############################################################################
#
#  Usage
#
##############################################################################

unknown's avatar
unknown committed
2206
sub usage ($) {
unknown's avatar
unknown committed
2207 2208 2209 2210 2211 2212 2213 2214 2215 2216 2217 2218 2219 2220 2221 2222 2223 2224 2225 2226 2227 2228 2229 2230 2231 2232 2233 2234
  print STDERR <<HERE;

mysql-test-run [ OPTIONS ] [ TESTCASE ]

FIXME when is TESTCASE arg used or not?!

Options to control what engine/variation to run

  embedded-server       Use the embedded server, i.e. no mysqld daemons
  ps-protocol           Use the binary protocol between client and server
  bench                 Run the benchmark suite FIXME
  small-bench           FIXME
  no-manager            Use the istanse manager (currently disabled)

Options to control what test suites or cases to run

  force                 Continue to run the suite after failure
  with-ndbcluster       Use cluster, and enable test cases that requres it
  do-test=PREFIX        Run test cases which name are prefixed with PREFIX
  start-from=PREFIX     Run test cases starting from test prefixed with PREFIX
  suite=NAME            Run the test suite named NAME. The default is "main"
  skip-rpl              Skip the replication test cases.
  skip-test=PREFIX      Skip test cases which name are prefixed with PREFIX

Options that specify ports

  master_port=PORT      Specify the port number used by the first master
  slave_port=PORT       Specify the port number used by the first slave
unknown's avatar
unknown committed
2235 2236
  ndbcluster_port=PORT  Specify the port number used by cluster
  manager-port=PORT     Specify the port number used by manager (currently not used)
unknown's avatar
unknown committed
2237 2238 2239 2240 2241 2242 2243 2244 2245 2246 2247 2248 2249

Options for test case authoring

  record TESTNAME       (Re)genereate the result file for TESTNAME

Options that pass on options

  mysqld=ARGS           Specify additional arguments to "mysqld"

Options to run test on running server

  extern                Use running server for tests FIXME DANGEROUS
  ndbconnectstring=STR  Use running cluster, and connect using STR      
2250
  user=USER             User for connect to server
unknown's avatar
unknown committed
2251 2252 2253 2254 2255 2256 2257 2258 2259 2260 2261 2262 2263 2264 2265 2266 2267 2268 2269 2270 2271 2272 2273 2274 2275

Options for debugging the product

  gdb                   FIXME
  manual-gdb            FIXME
  client-gdb            FIXME
  ddd                   FIXME
  strace-client         FIXME
  master-binary=PATH    Specify the master "mysqld" to use
  slave-binary=PATH     Specify the slave "mysqld" to use

Options for coverage, profiling etc

  gcov                  FIXME
  gprof                 FIXME
  valgrind              FIXME
  valgrind-all          FIXME
  valgrind-options=ARGS Extra options to give valgrind

Misc options

  verbose               Verbose output from this script
  script-debug          Debug this script itself
  compress              Use the compressed protocol between client and server
  timer                 Show test case execution time
unknown's avatar
unknown committed
2276 2277
  start-and-exit        Only initiate and start the "mysqld" servers, use the startup
                        settings for the specified test case if any
2278
  start-dirty           Only start the "mysqld" servers without initiation
unknown's avatar
unknown committed
2279
  fast                  Don't try to cleanup from earlier runs
unknown's avatar
unknown committed
2280
  reorder               Reorder tests to get less server restarts
unknown's avatar
unknown committed
2281
  help                  Get this help text
unknown's avatar
unknown committed
2282
  unified-diff | udiff  When presenting differences, use unified diff
unknown's avatar
unknown committed
2283

2284 2285 2286 2287
  testcase-timeout=MINUTES Max test case run time (default 5)
  suite-timeout=MINUTES    Max test suite run time (default 120)


unknown's avatar
unknown committed
2288 2289 2290 2291 2292 2293 2294 2295 2296 2297 2298 2299 2300 2301 2302 2303 2304 2305
Options not yet described, or that I want to look into more

  big-test              
  debug                 
  local                 
  local-master          
  netware               
  old-master            
  sleep=SECONDS         
  socket=PATH           
  tmpdir=DIR            
  user-test=s           
  wait-timeout=SECONDS  
  warnings              
  log-warnings          
  with-openssl          

HERE
unknown's avatar
unknown committed
2306
  mtr_exit(1);
2307

unknown's avatar
unknown committed
2308
}