mysql-test-run.pl 130 KB
Newer Older
unknown's avatar
unknown committed
1 2 3 4
#!/usr/bin/perl
# -*- cperl -*-

#
5 6 7
##############################################################################
#
#  mysql-test-run.pl
unknown's avatar
unknown committed
8
#
unknown's avatar
unknown committed
9
#  Tool used for executing a suite of .test files
unknown's avatar
unknown committed
10
#
11 12
#  See the "MySQL Test framework manual" for more information
#  http://dev.mysql.com/doc/mysqltest/en/index.html
unknown's avatar
unknown committed
13 14
#
#
15
##############################################################################
unknown's avatar
unknown committed
16

unknown's avatar
unknown committed
17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
use strict;
use warnings;

BEGIN {
  # Check that mysql-test-run.pl is started from mysql-test/
  unless ( -f "mysql-test-run.pl" )
  {
    print "**** ERROR **** ",
      "You must start mysql-test-run from the mysql-test/ directory\n";
    exit(1);
  }
  # Check that lib exist
  unless ( -d "lib/" )
  {
    print "**** ERROR **** ",
      "Could not find the lib/ directory \n";
    exit(1);
  }
}
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
BEGIN {
  # Check backward compatibility support
  # By setting the environment variable MTR_VERSION
  # it's possible to use a previous version of
  # mysql-test-run.pl
  my $version= $ENV{MTR_VERSION} || 2;
  if ( $version == 1 )
  {
    print "=======================================================\n";
    print "  WARNING: Using mysql-test-run.pl version 1!  \n";
    print "=======================================================\n";
    require "lib/v1/mysql-test-run.pl";
    exit(1);
  }
  elsif ( $version == 2 )
  {
    # This is the current version, just continue
    ;
  }
  else
  {
    print "ERROR: Version $version of mysql-test-run does not exist!\n";
    exit(1);
  }
}
unknown's avatar
unknown committed
62

unknown's avatar
unknown committed
63
use lib "lib";
64

unknown's avatar
unknown committed
65 66
use Cwd;
use Getopt::Long;
unknown's avatar
unknown committed
67 68 69
use My::File::Path; # Patched version of File::Path
use File::Basename;
use File::Copy;
70
use File::Find;
unknown's avatar
unknown committed
71
use File::Temp qw / tempdir /;
72
use File::Spec::Functions qw / splitdir /;
unknown's avatar
unknown committed
73
use My::Platform;
unknown's avatar
unknown committed
74 75
use My::SafeProcess;
use My::ConfigFactory;
76
use My::Options;
unknown's avatar
unknown committed
77
use My::Find;
78
use My::SysInfo;
79
use My::CoreDump;
unknown's avatar
unknown committed
80
use mtr_cases;
81
use mtr_report;
82
use mtr_match;
83
use mtr_unique;
84 85
use IO::Socket::INET;
use IO::Select;
86

unknown's avatar
unknown committed
87 88 89 90 91
require "lib/mtr_process.pl";
require "lib/mtr_io.pl";
require "lib/mtr_gcov.pl";
require "lib/mtr_misc.pl";

unknown's avatar
unknown committed
92
$SIG{INT}= sub { mtr_error("Got ^C signal"); };
unknown's avatar
unknown committed
93

unknown's avatar
unknown committed
94
our $mysql_version_id;
unknown's avatar
unknown committed
95 96
our $glob_mysql_test_dir;
our $basedir;
unknown's avatar
unknown committed
97 98 99

our $path_charsetsdir;
our $path_client_bindir;
unknown's avatar
unknown committed
100
our $path_client_libdir;
unknown's avatar
unknown committed
101
our $path_language;
102 103 104

our $path_current_testlog;
our $path_testlog;
unknown's avatar
unknown committed
105

unknown's avatar
unknown committed
106 107 108 109 110
our $default_vardir;
our $opt_vardir;                # Path to use for var/ dir
my $path_vardir_trace;          # unix formatted opt_vardir for trace files
my $opt_tmpdir;                 # Path to use for tmp/ dir
my $path_config_file;           # The generated config file, var/my.cnf
unknown's avatar
unknown committed
111

112 113 114 115 116 117
# Visual Studio produces executables in different sub-directories based on the
# configuration used to build them.  To make life easier, an environment
# variable or command-line option may be specified to control which set of
# executables will be used by the test suite.
our $opt_vs_config = $ENV{'MTR_VS_CONFIG'};

118
my $DEFAULT_SUITES= "main,binlog,federated,rpl,rpl_ndb,ndb";
119
my $opt_suites;
unknown's avatar
unknown committed
120

121
our $opt_verbose= 0;  # Verbose output, enable with --verbose
unknown's avatar
unknown committed
122 123 124 125

our $exe_mysql;
our $exe_mysqladmin;
our $exe_mysqltest;
126
our $exe_libtool;
unknown's avatar
unknown committed
127

128
our $opt_big_test= 0;
unknown's avatar
unknown committed
129

130
our @opt_combinations;
131

unknown's avatar
unknown committed
132
our @opt_extra_mysqld_opt;
unknown's avatar
unknown committed
133 134

our $opt_compress;
135 136 137 138
our $opt_ssl;
our $opt_skip_ssl;
our $opt_ssl_supported;
our $opt_ps_protocol;
139 140 141
our $opt_sp_protocol;
our $opt_cursor_protocol;
our $opt_view_protocol;
142

unknown's avatar
unknown committed
143
our $opt_debug;
unknown's avatar
unknown committed
144
our @opt_cases;                  # The test cases names in argv
145
our $opt_embedded_server;
146

unknown's avatar
unknown committed
147 148 149
# Options used when connecting to an already running server
my %opts_extern;
sub using_extern { return (keys %opts_extern > 0);};
150

unknown's avatar
unknown committed
151
our $opt_fast= 0;
unknown's avatar
unknown committed
152
our $opt_force;
153
our $opt_mem= $ENV{'MTR_MEM'};
unknown's avatar
unknown committed
154 155 156 157 158

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

unknown's avatar
unknown committed
159
our $glob_debugger= 0;
unknown's avatar
unknown committed
160 161
our $opt_gdb;
our $opt_client_gdb;
unknown's avatar
unknown committed
162 163
our $opt_ddd;
our $opt_client_ddd;
unknown's avatar
unknown committed
164
our $opt_manual_gdb;
unknown's avatar
unknown committed
165 166
our $opt_manual_ddd;
our $opt_manual_debug;
167 168
our $opt_debugger;
our $opt_client_debugger;
unknown's avatar
unknown committed
169

unknown's avatar
unknown committed
170 171
my $config; # The currently running config
my $current_config_name; # The currently running config file template
unknown's avatar
unknown committed
172

173
my $baseport;
174
my $opt_build_thread= $ENV{'MTR_BUILD_THREAD'} || "auto";
175

unknown's avatar
unknown committed
176
my $opt_record;
177
my $opt_report_features;
unknown's avatar
unknown committed
178

179
our $opt_check_testcases= 1;
unknown's avatar
unknown committed
180
my $opt_mark_progress;
unknown's avatar
unknown committed
181

unknown's avatar
unknown committed
182
my $opt_sleep;
unknown's avatar
unknown committed
183

184
my $opt_testcase_timeout=    15; # minutes
Sven Sandberg's avatar
Sven Sandberg committed
185
my $opt_suite_timeout   =   300; # minutes
186
my $opt_shutdown_timeout=    10; # seconds
Magnus Svensson's avatar
Magnus Svensson committed
187
my $opt_start_timeout   =   180; # seconds
unknown's avatar
unknown committed
188

189 190 191 192
sub testcase_timeout { return $opt_testcase_timeout * 60; };
sub suite_timeout { return $opt_suite_timeout * 60; };
sub check_timeout { return $opt_testcase_timeout * 6; };

unknown's avatar
unknown committed
193 194
my $opt_start;
my $opt_start_dirty;
unknown's avatar
unknown committed
195
my $opt_repeat= 1;
unknown's avatar
unknown committed
196
my $opt_retry= 3;
unknown's avatar
unknown committed
197
my $opt_retry_failure= 2;
unknown's avatar
unknown committed
198

unknown's avatar
unknown committed
199
my $opt_strace_client;
unknown's avatar
unknown committed
200

201
our $opt_user = "root";
unknown's avatar
unknown committed
202

unknown's avatar
unknown committed
203 204 205 206 207 208 209 210 211
my $opt_valgrind= 0;
my $opt_valgrind_mysqld= 0;
my $opt_valgrind_mysqltest= 0;
my @default_valgrind_args= ("--show-reachable=yes");
my @valgrind_args;
my $opt_valgrind_path;
my $opt_callgrind;

our $opt_warnings= 1;
unknown's avatar
unknown committed
212

213
our $opt_skip_ndbcluster= 0;
unknown's avatar
unknown committed
214

unknown's avatar
unknown committed
215 216 217
my $exe_ndbd;
my $exe_ndb_mgmd;
my $exe_ndb_waiter;
unknown's avatar
unknown committed
218

unknown's avatar
unknown committed
219
our $debug_compiled_binaries;
220

221 222
our %mysqld_variables;

223 224
my $source_dist= 0;

225 226
my $opt_max_save_core= $ENV{MTR_MAX_SAVE_CORE} || 5;
my $opt_max_save_datadir= $ENV{MTR_MAX_SAVE_DATADIR} || 20;
227
my $opt_max_test_fail= $ENV{MTR_MAX_TEST_FAIL} || 10;
228

229
my $opt_parallel= $ENV{MTR_PARALLEL} || 1;
230

unknown's avatar
unknown committed
231 232
select(STDOUT);
$| = 1; # Automatically flush STDOUT
unknown's avatar
unknown committed
233 234 235

main();

236

unknown's avatar
unknown committed
237
sub main {
Magnus Svensson's avatar
Magnus Svensson committed
238
  # Default, verbosity on
239
  report_option('verbose', 0);
unknown's avatar
unknown committed
240

241 242 243 244
  # This is needed for test log evaluation in "gen-build-status-page"
  # in all cases where the calling tool does not log the commands
  # directly before it executes them, like "make test-force-pl" in RPM builds.
  mtr_report("Logging: $0 ", join(" ", @ARGV));
245

Magnus Svensson's avatar
Magnus Svensson committed
246
  command_line_setup();
unknown's avatar
unknown committed
247

248
  if ( $opt_gcov ) {
Magnus Svensson's avatar
Magnus Svensson committed
249
    gcov_prepare($basedir);
unknown's avatar
unknown committed
250 251
  }

252
  if (!$opt_suites) {
253 254 255 256 257 258 259 260 261 262 263 264 265
    $opt_suites= $DEFAULT_SUITES;

    # Check for any extra suites to enable based on the path name
    my %extra_suites=
      (
       "mysql-5.1-new-ndb"              => "ndb_team",
       "mysql-5.1-new-ndb-merge"        => "ndb_team",
       "mysql-5.1-telco-6.2"            => "ndb_team",
       "mysql-5.1-telco-6.2-merge"      => "ndb_team",
       "mysql-5.1-telco-6.3"            => "ndb_team",
       "mysql-6.0-ndb"                  => "ndb_team",
      );

266
    foreach my $dir ( reverse splitdir($basedir) ) {
267
      my $extra_suite= $extra_suites{$dir};
268
      if (defined $extra_suite) {
269 270 271 272 273 274 275
	mtr_report("Found extra suite: $extra_suite");
	$opt_suites= "$extra_suite,$opt_suites";
	last;
      }
    }
  }

unknown's avatar
unknown committed
276
  mtr_report("Collecting tests...");
277
  my $tests= collect_test_cases($opt_suites, \@opt_cases);
unknown's avatar
unknown committed
278

unknown's avatar
unknown committed
279 280
  if ( $opt_report_features ) {
    # Put "report features" as the first test to run
281 282 283
    my $tinfo = My::Test->new
      (
       name           => 'report_features',
284
       # No result_file => Prints result
Magnus Svensson's avatar
Magnus Svensson committed
285
       path           => 'include/report-features.test',
286
       template_path  => "include/default_my.cnf",
287 288 289
       master_opt     => [],
       slave_opt      => [],
      );
unknown's avatar
unknown committed
290
    unshift(@$tests, $tinfo);
unknown's avatar
unknown committed
291
  }
292

Magnus Svensson's avatar
Magnus Svensson committed
293
  print "vardir: $opt_vardir\n";
294 295
  initialize_servers();

Magnus Svensson's avatar
Magnus Svensson committed
296 297 298 299 300 301 302 303 304 305
  #######################################################################
  my $num_tests= @$tests;
  if ( not defined $opt_parallel ) {
    # Try to find a suitable value for number of workers
    my $sys_info= My::SysInfo->new();

    $opt_parallel= $sys_info->num_cpus();
    for my $limit (2000, 1500, 1000, 500){
      $opt_parallel-- if ($sys_info->min_bogomips() < $limit);
    }
306
    $opt_parallel= 8 if ($opt_parallel > 8);
Magnus Svensson's avatar
Magnus Svensson committed
307
    $opt_parallel= $num_tests if ($opt_parallel > $num_tests);
308
    $opt_parallel= 1 if (IS_WINDOWS and $sys_info->isvm());
Magnus Svensson's avatar
Magnus Svensson committed
309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345
    $opt_parallel= 1 if ($opt_parallel < 1);
    mtr_report("Using parallel: $opt_parallel");
  }

  # Create server socket on any free port
  my $server = new IO::Socket::INET
    (
     LocalAddr => 'localhost',
     Proto => 'tcp',
     Listen => $opt_parallel,
    );
  mtr_error("Could not create testcase server port: $!") unless $server;
  my $server_port = $server->sockport();
  mtr_report("Using server port $server_port");

  # Create child processes
  my %children;
  for my $child_num (1..$opt_parallel){
    my $child_pid= My::SafeProcess::Base::_safe_fork();
    if ($child_pid == 0){
      $server= undef; # Close the server port in child
      $tests= {}; # Don't need the tests list in child

      # Use subdir of var and tmp unless only one worker
      if ($opt_parallel > 1) {
	set_vardir("$opt_vardir/$child_num");
	$opt_tmpdir= "$opt_tmpdir/$child_num";
      }

      run_worker($server_port, $child_num);
      exit(1);
    }

    $children{$child_pid}= 1;
  }
  #######################################################################

346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366
  mtr_report();
  mtr_print_thick_line();
  mtr_print_header();

  my $completed= run_test_server($server, $tests, $opt_parallel);

  # Send Ctrl-C to any children still running
  kill("INT", keys(%children));

  # Wait for childs to exit
  foreach my $pid (keys %children)
  {
    my $ret_pid= waitpid($pid, 0);
    if ($ret_pid != $pid){
      mtr_report("Unknown process $ret_pid exited");
    }
    else {
      delete $children{$ret_pid};
    }
  }

unknown's avatar
unknown committed
367 368 369 370
  if ( not defined @$completed ) {
    mtr_error("Test suite aborted");
  }

371
  if ( @$completed != $num_tests){
372

373 374 375 376 377 378
    if ($opt_force){
      # All test should have been run, print any that are still in $tests
      foreach my $test ( @$tests ){
        $test->print_test();
      }
    }
379

380
    # Not all tests completed, failure
381
    mtr_report();
382 383
    mtr_report("Only ", int(@$completed), " of $num_tests completed.");
    mtr_error("Not all tests completed");
384 385
  }

386 387
  mtr_print_line();

Magnus Svensson's avatar
Magnus Svensson committed
388 389 390 391 392
  if ( $opt_gcov ) {
    gcov_collect($basedir, $opt_gcov,
		 $opt_gcov_msg, $opt_gcov_err);
  }

393 394 395 396 397 398
  mtr_report_stats($completed);

  exit(0);
}


Magnus Svensson's avatar
Magnus Svensson committed
399
sub run_test_server ($$$) {
400 401
  my ($server, $tests, $childs) = @_;

402 403
  my $num_saved_cores= 0;  # Number of core files saved in vardir/log/ so far.
  my $num_saved_datadir= 0;  # Number of datadirs saved in vardir/log/ so far.
404
  my $num_failed_test= 0; # Number of tests failed so far
405

406
  # Scheduler variables
Magnus Svensson's avatar
Magnus Svensson committed
407
  my $max_ndb= $childs / 2;
408 409 410 411 412 413 414 415
  $max_ndb = 4 if $max_ndb > 4;
  $max_ndb = 1 if $max_ndb < 1;
  my $num_ndb_tests= 0;

  my $completed= [];
  my %running;
  my $result;

416
  my $suite_timeout_proc= My::SafeProcess->timer(suite_timeout());
unknown's avatar
unknown committed
417

418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436
  my $s= IO::Select->new();
  $s->add($server);
  while (1) {
    my @ready = $s->can_read(1); # Wake up once every second
    foreach my $sock (@ready) {
      if ($sock == $server) {
	# New client connected
	my $child= $sock->accept();
	mtr_verbose("Client connected");
	$s->add($child);
	print $child "HELLO\n";
      }
      else {
	my $line= <$sock>;
	if (!defined $line) {
	  # Client disconnected
	  mtr_verbose("Child closed socket");
	  $s->remove($sock);
	  if (--$childs == 0){
unknown's avatar
unknown committed
437
	    $suite_timeout_proc->kill();
438 439 440 441 442 443 444 445 446 447 448 449 450
	    return $completed;
	  }
	  next;
	}
	chomp($line);

	if ($line eq 'TESTRESULT'){
	  $result= My::Test::read_test($sock);
	  # $result->print_test();

	  # Report test status
	  mtr_report_test($result);

451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467
	  if ( $result->is_failed() ) {

	    # Save the workers "savedir" in var/log
	    my $worker_savedir= $result->{savedir};
	    my $worker_savename= basename($worker_savedir);
	    my $savedir= "$opt_vardir/log/$worker_savename";

	    if ($opt_max_save_datadir > 0 &&
		$num_saved_datadir >= $opt_max_save_datadir)
	    {
	      mtr_report(" - skipping '$worker_savedir/'");
	      rmtree($worker_savedir);
	    }
	    else {
	      mtr_report(" - saving '$worker_savedir/' to '$savedir/'");
	      rename($worker_savedir, $savedir);

468 469 470 471 472 473
	      if ($opt_max_save_core > 0) {
		# Limit number of core files saved
		find({ no_chdir => 1,
		       wanted => sub {
			 my $core_file= $File::Find::name;
			 my $core_name= basename($core_file);
474

475
			 if ($core_name =~ "core*"){
476
			   mtr_report(" - found '$core_name'",
477
				      "($num_saved_cores/$opt_max_save_core)");
478 479 480 481 482 483

			   My::CoreDump->show($core_file);

			   if ($num_saved_cores >= $opt_max_save_core) {
			     mtr_report(" - deleting it, already saved",
					"$opt_max_save_core");
484 485 486
			     unlink("$core_file");
			   }
			   ++$num_saved_cores;
487 488
			 }
		       }
489 490 491
		     },
		     $savedir);
	      }
492
	    }
493
	    $num_saved_datadir++;
494 495 496

	    if ( !$opt_force ) {
	      # Test has failed, force is off
unknown's avatar
unknown committed
497
	      $suite_timeout_proc->kill();
498 499 500
	      push(@$completed, $result);
	      return $completed;
	    }
501
	    elsif ($opt_max_test_fail > 0 and
502 503 504 505 506 507 508
		   $num_failed_test >= $opt_max_test_fail) {
	      $suite_timeout_proc->kill();
	      mtr_report("Too many tests($num_failed_test) failed!",
			 "Terminating...");
	      return undef;
	    }
	    $num_failed_test++;
509 510 511
	  }

	  # Retry test run after test failure
unknown's avatar
unknown committed
512
	  my $retries= $result->{retries} || 2;
513
	  my $test_has_failed= $result->{failures} || 0;
unknown's avatar
unknown committed
514
	  if ($test_has_failed and $retries <= $opt_retry){
515 516 517 518
	    # Test should be run one more time unless it has failed
	    # too many times already
	    my $failures= $result->{failures};
	    if ($opt_retry > 1 and $failures >= $opt_retry_failure){
unknown's avatar
unknown committed
519
	      mtr_report("\nTest has failed $failures times,",
520 521 522 523
			 "no more retries!\n");
	    }
	    else {
	      mtr_report("\nRetrying test, attempt($retries/$opt_retry)...\n");
524
	      delete($result->{result});
525 526 527 528 529 530 531 532 533 534 535 536
	      $result->{retries}= $retries+1;
	      $result->write_test($sock, 'TESTCASE');
	      next;
	    }
	  }

	  # Repeat test $opt_repeat number of times
	  my $repeat= $result->{repeat} || 1;
	  if ($repeat < $opt_repeat)
	  {
	    $result->{retries}= 0;
	    $result->{failures}= 0;
537
	    delete($result->{result});
538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566
	    $result->{repeat}= $repeat+1;
	    $result->write_test($sock, 'TESTCASE');
	    next;
	  }

	  # Remove from list of running
	  mtr_error("'", $result->{name},"' is not known to be running")
	    unless delete $running{$result->key()};

	  # Update scheduler variables
	  $num_ndb_tests-- if ($result->{ndb_test});

	  # Save result in completed list
	  push(@$completed, $result);

	}
	elsif ($line eq 'START'){
	  ; # Send first test
	}
	else {
	  mtr_error("Unknown response: '$line' from client");
	}

	# Find next test to schedule
	# - Try to use same configuration as worker used last time
	# - Limit number of parallel ndb tests

	my $next;
	my $second_best;
567
	for(my $i= 0; $i <= @$tests; $i++)
568 569 570
	{
	  my $t= $tests->[$i];

571 572
	  last unless defined $t;

573 574 575 576
	  if (run_testcase_check_skip_test($t)){
	    # Move the test to completed list
	    #mtr_report("skip - Moving test $i to completed");
	    push(@$completed, splice(@$tests, $i, 1));
577 578 579 580

	    # Since the test at pos $i was taken away, next
	    # test will also be at $i -> redo
	    redo;
581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609
	  }

	  # Limit number of parallell NDB tests
	  if ($t->{ndb_test} and $num_ndb_tests >= $max_ndb){
	    #mtr_report("Skipping, num ndb is already at max, $num_ndb_tests");
	    next;
	  }

	  # Prefer same configuration
	  if (defined $result and
	      $result->{template_path} eq $t->{template_path})
	  {
	    #mtr_report("Test uses same config => good match");
	    # Test uses same config => good match
	    $next= splice(@$tests, $i, 1);
	    last;
	  }

	  # Second best choice is the first that does not fulfill
	  # any of the above conditions
	  if (!defined $second_best){
	    #mtr_report("Setting second_best to $i");
	    $second_best= $i;
	  }
	}

	# Use second best choice if no other test has been found
	if (!$next and defined $second_best){
	  #mtr_report("Take second best choice $second_best");
610
	  mtr_error("Internal error, second best too large($second_best)")
611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627
	    if $second_best >  $#$tests;
	  $next= splice(@$tests, $second_best, 1);
	}

	if ($next) {
	  #$next->print_test();
	  $next->write_test($sock, 'TESTCASE');
	  $running{$next->key()}= $next;
	  $num_ndb_tests++ if ($next->{ndb_test});
	}
	else {
	  # No more test, tell child to exit
	  #mtr_report("Saying BYE to child");
	  print $sock "BYE\n";
	}
      }
    }
unknown's avatar
unknown committed
628 629 630 631 632 633 634 635 636

    # ----------------------------------------------------
    # Check if test suite timer expired
    # ----------------------------------------------------
    if ( ! $suite_timeout_proc->wait_one(0) )
    {
      mtr_report("Test suite timeout! Terminating...");
      return undef;
    }
637 638 639 640 641 642 643 644 645
  }
}


sub run_worker ($) {
  my ($server_port, $thread_num)= @_;

  $SIG{INT}= sub { exit(1); };

646 647 648 649 650 651 652 653 654 655
  # Connect to server
  my $server = new IO::Socket::INET
    (
     PeerAddr => 'localhost',
     PeerPort => $server_port,
     Proto    => 'tcp'
    );
  mtr_error("Could not connect to server at port $server_port: $!")
    unless $server;

Magnus Svensson's avatar
Magnus Svensson committed
656 657 658
  # --------------------------------------------------------------------------
  # Set worker name
  # --------------------------------------------------------------------------
659 660
  report_option('name',"worker[$thread_num]");

Magnus Svensson's avatar
Magnus Svensson committed
661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677
  # --------------------------------------------------------------------------
  # Use auto build thread in all but first worker
  # --------------------------------------------------------------------------
  set_build_thread_ports($thread_num > 1 ? 'auto' : $opt_build_thread);

  if (check_ports_free()){
    # Some port was not free(which one has already been printed)
    mtr_error("Some port(s) was not free")
  }

  # --------------------------------------------------------------------------
  # Turn off verbosity in workers, unless explicitly specified
  # --------------------------------------------------------------------------
  report_option('verbose', undef) if ($opt_verbose == 0);

  environment_setup();

678 679 680 681 682
  # Read hello from server which it will send when shared
  # resources have been setup
  my $hello= <$server>;

  setup_vardir();
683
  check_running_as_root();
684

unknown's avatar
unknown committed
685 686 687
  if ( using_extern() ) {
    create_config_file_for_extern(%opts_extern);
  }
unknown's avatar
unknown committed
688

689 690
  # Ask server for first test
  print $server "START\n";
unknown's avatar
unknown committed
691

692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714
  while(my $line= <$server>){
    chomp($line);
    if ($line eq 'TESTCASE'){
      my $test= My::Test::read_test($server);
      #$test->print_test();
      run_testcase($test);
      #$test->{result}= 'MTR_RES_PASSED';
      # Send it back, now with results set
      #$test->print_test();
      $test->write_test($server, 'TESTRESULT');
    }
    elsif ($line eq 'BYE'){
      mtr_report("Server said BYE");
      exit(0);
    }
    else {
      mtr_error("Could not understand server, '$line'");
    }
  }

  stop_all_servers();

  exit(1);
unknown's avatar
unknown committed
715
}
unknown's avatar
unknown committed
716 717


unknown's avatar
unknown committed
718 719
sub ignore_option {
  my ($opt, $value)= @_;
720
  mtr_report("Ignoring option '$opt'");
unknown's avatar
unknown committed
721 722
}

723

Magnus Svensson's avatar
Magnus Svensson committed
724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 740 741 742

# Setup any paths that are $opt_vardir related
sub set_vardir {
  my ($vardir)= @_;

  $opt_vardir= $vardir;

  $path_vardir_trace= $opt_vardir;
  # Chop off any "c:", DBUG likes a unix path ex: c:/src/... => /src/...
  $path_vardir_trace=~ s/^\w://;

  # Location of my.cnf that all clients use
  $path_config_file= "$opt_vardir/my.cnf";

  $path_testlog=         "$opt_vardir/log/mysqltest.log";
  $path_current_testlog= "$opt_vardir/log/current_test";

}

743

Magnus Svensson's avatar
Magnus Svensson committed
744
sub command_line_setup {
unknown's avatar
unknown committed
745
  my $opt_comment;
unknown's avatar
unknown committed
746
  my $opt_usage;
unknown's avatar
unknown committed
747

unknown's avatar
unknown committed
748
  # Read the command line options
unknown's avatar
unknown committed
749
  # Note: Keep list, and the order, in sync with usage at end of this file
unknown's avatar
unknown committed
750
  Getopt::Long::Configure("pass_through");
unknown's avatar
unknown committed
751
  GetOptions(
unknown's avatar
unknown committed
752
             # Control what engine/variation to run
unknown's avatar
unknown committed
753
             'embedded-server'          => \$opt_embedded_server,
unknown's avatar
unknown committed
754
             'ps-protocol'              => \$opt_ps_protocol,
755 756 757
             'sp-protocol'              => \$opt_sp_protocol,
             'view-protocol'            => \$opt_view_protocol,
             'cursor-protocol'          => \$opt_cursor_protocol,
unknown's avatar
unknown committed
758
             'ssl|with-openssl'         => \$opt_ssl,
759 760
             'skip-ssl'                 => \$opt_skip_ssl,
             'compress'                 => \$opt_compress,
unknown's avatar
unknown committed
761 762
             'vs-config'                => \$opt_vs_config,

763 764 765
	     # Max number of parallel threads to use
	     'parallel=i'               => \$opt_parallel,

unknown's avatar
unknown committed
766 767 768 769
             # Config file to use as template for all tests
	     'defaults-file=s'          => \&collect_option,
	     # Extra config file to append to all generated configs
	     'defaults-extra-file=s'    => \&collect_option,
unknown's avatar
unknown committed
770 771

             # Control what test suites or cases to run
unknown's avatar
unknown committed
772
             'force'                    => \$opt_force,
unknown's avatar
unknown committed
773
             'with-ndbcluster-only'     => \&collect_option,
unknown's avatar
unknown committed
774
             'skip-ndbcluster|skip-ndb' => \$opt_skip_ndbcluster,
775
             'suite|suites=s'           => \$opt_suites,
unknown's avatar
unknown committed
776 777 778 779
             'skip-rpl'                 => \&collect_option,
             'skip-test=s'              => \&collect_option,
             'do-test=s'                => \&collect_option,
             'start-from=s'             => \&collect_option,
780
             'big-test'                 => \$opt_big_test,
unknown's avatar
unknown committed
781
	     'combination=s'            => \@opt_combinations,
unknown's avatar
unknown committed
782
             'skip-combinations'        => \&collect_option,
unknown's avatar
unknown committed
783

unknown's avatar
unknown committed
784 785
	     'skip-im'                  => \&ignore_option,

unknown's avatar
unknown committed
786
             # Specify ports
787
	     'build-thread|mtr-build-thread=i' => \$opt_build_thread,
unknown's avatar
unknown committed
788 789 790

             # Test case authoring
             'record'                   => \$opt_record,
791
             'check-testcases!'         => \$opt_check_testcases,
792
             'mark-progress'            => \$opt_mark_progress,
unknown's avatar
unknown committed
793

794
             # Extra options used when starting mysqld
unknown's avatar
unknown committed
795
             'mysqld=s'                 => \@opt_extra_mysqld_opt,
unknown's avatar
unknown committed
796 797

             # Run test on running server
unknown's avatar
unknown committed
798
             'extern=s'                  => \%opts_extern, # Append to hash
unknown's avatar
unknown committed
799 800

             # Debugging
unknown's avatar
unknown committed
801
             'debug'                    => \$opt_debug,
unknown's avatar
unknown committed
802
             'gdb'                      => \$opt_gdb,
unknown's avatar
unknown committed
803
             'client-gdb'               => \$opt_client_gdb,
unknown's avatar
unknown committed
804 805
             'manual-gdb'               => \$opt_manual_gdb,
             'manual-debug'             => \$opt_manual_debug,
unknown's avatar
unknown committed
806
             'ddd'                      => \$opt_ddd,
unknown's avatar
unknown committed
807
             'client-ddd'               => \$opt_client_ddd,
unknown's avatar
unknown committed
808
             'manual-ddd'               => \$opt_manual_ddd,
809 810
	     'debugger=s'               => \$opt_debugger,
	     'client-debugger=s'        => \$opt_client_debugger,
unknown's avatar
unknown committed
811
             'strace-client:s'          => \$opt_strace_client,
812
             'max-save-core=i'          => \$opt_max_save_core,
813
             'max-save-datadir=i'       => \$opt_max_save_datadir,
814
             'max-test-fail=i'          => \$opt_max_test_fail,
unknown's avatar
unknown committed
815 816 817

             # Coverage, profiling etc
             'gcov'                     => \$opt_gcov,
818
             'valgrind|valgrind-all'    => \$opt_valgrind,
unknown's avatar
unknown committed
819 820
             'valgrind-mysqltest'       => \$opt_valgrind_mysqltest,
             'valgrind-mysqld'          => \$opt_valgrind_mysqld,
unknown's avatar
unknown committed
821 822 823 824 825 826 827 828 829 830 831 832
             'valgrind-options=s'       => sub {
	       my ($opt, $value)= @_;
	       # Deprecated option unless it's what we know pushbuild uses
	       if ($value eq "--gen-suppressions=all --show-reachable=yes") {
		 push(@valgrind_args, $_) for (split(' ', $value));
		 return;
	       }
	       die("--valgrind-options=s is deprecated. Use ",
		   "--valgrind-option=s, to be specified several",
		   " times if necessary");
	     },
             'valgrind-option=s'        => \@valgrind_args,
unknown's avatar
unknown committed
833
             'valgrind-path=s'          => \$opt_valgrind_path,
834
	     'callgrind'                => \$opt_callgrind,
unknown's avatar
unknown committed
835

836 837 838
	     # Directories
             'tmpdir=s'                 => \$opt_tmpdir,
             'vardir=s'                 => \$opt_vardir,
839
             'mem'                      => \$opt_mem,
unknown's avatar
unknown committed
840 841
             'client-bindir=s'          => \$path_client_bindir,
             'client-libdir=s'          => \$path_client_libdir,
842

unknown's avatar
unknown committed
843
             # Misc
844
             'report-features'          => \$opt_report_features,
unknown's avatar
unknown committed
845
             'comment=s'                => \$opt_comment,
unknown's avatar
unknown committed
846
             'fast'                     => \$opt_fast,
847
             'reorder!'                 => \&collect_option,
unknown's avatar
unknown committed
848 849
             'enable-disabled'          => \&collect_option,
             'verbose+'                 => \$opt_verbose,
850
             'verbose-restart'          => \&report_option,
unknown's avatar
unknown committed
851
             'sleep=i'                  => \$opt_sleep,
852
             'start-dirty'              => \$opt_start_dirty,
unknown's avatar
unknown committed
853 854
             'start'                    => \$opt_start,
	     'print-testcases'          => \&collect_option,
unknown's avatar
unknown committed
855 856 857
	     'repeat=i'                 => \$opt_repeat,
	     'retry=i'                  => \$opt_retry,
	     'retry-failure=i'          => \$opt_retry_failure,
unknown's avatar
unknown committed
858
             'timer!'                   => \&report_option,
unknown's avatar
unknown committed
859
             'user=s'                   => \$opt_user,
860 861
             'testcase-timeout=i'       => \$opt_testcase_timeout,
             'suite-timeout=i'          => \$opt_suite_timeout,
unknown's avatar
unknown committed
862 863
             'shutdown-timeout=i'       => \$opt_shutdown_timeout,
             'warnings!'                => \$opt_warnings,
864
	     'timestamp'                => \&report_option,
unknown's avatar
unknown committed
865
	     'timediff'                 => \&report_option,
unknown's avatar
unknown committed
866 867

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

Magnus Svensson's avatar
Magnus Svensson committed
870
  usage("") if $opt_usage;
unknown's avatar
unknown committed
871

unknown's avatar
unknown committed
872
  # --------------------------------------------------------------------------
873
  # Setup verbosity
unknown's avatar
unknown committed
874
  # --------------------------------------------------------------------------
875 876
  if ($opt_verbose != 0){
    report_option('verbose', $opt_verbose);
877 878
  }

879 880
  if ( -d "../sql" )
  {
881
    $source_dist=  1;
882 883
  }

884
  # Find the absolute path to the test directory
unknown's avatar
unknown committed
885 886
  $glob_mysql_test_dir= cwd();
  if (IS_CYGWIN)
unknown's avatar
unknown committed
887
  {
unknown's avatar
unknown committed
888 889
    # Use mixed path format i.e c:/path/to/
    $glob_mysql_test_dir= mixed_path($glob_mysql_test_dir);
unknown's avatar
unknown committed
890
  }
891 892 893 894

  # In most cases, the base directory we find everything relative to,
  # is the parent directory of the "mysql-test" directory. For source
  # distributions, TAR binary distributions and some other packages.
unknown's avatar
unknown committed
895
  $basedir= dirname($glob_mysql_test_dir);
896 897 898 899 900 901

  # In the RPM case, binaries and libraries are installed in the
  # default system locations, instead of having our own private base
  # directory. And we install "/usr/share/mysql-test". Moving up one
  # more directory relative to "mysql-test" gives us a usable base
  # directory for RPM installs.
unknown's avatar
unknown committed
902
  if ( ! $source_dist and ! -d "$basedir/bin" )
903
  {
unknown's avatar
unknown committed
904
    $basedir= dirname($basedir);
905 906
  }

907
  # Look for the client binaries directory
unknown's avatar
unknown committed
908 909 910 911 912 913 914 915 916 917 918 919 920
  if ($path_client_bindir)
  {
    # --client-bindir=path set on command line, check that the path exists
    $path_client_bindir= mtr_path_exists($path_client_bindir);
  }
  else
  {
    $path_client_bindir= mtr_path_exists("$basedir/client_release",
					 "$basedir/client_debug",
					 vs_config_dirs('client', ''),
					 "$basedir/client",
					 "$basedir/bin");
  }
921

unknown's avatar
unknown committed
922
  # Look for language files and charsetsdir, use same share
unknown's avatar
unknown committed
923 924 925
  my $path_share=      mtr_path_exists("$basedir/share/mysql",
				       "$basedir/sql/share",
				       "$basedir/share");
unknown's avatar
unknown committed
926

Magnus Svensson's avatar
Magnus Svensson committed
927
  
unknown's avatar
unknown committed
928 929 930
  $path_language=      mtr_path_exists("$path_share/english");
  $path_charsetsdir=   mtr_path_exists("$path_share/charsets");

931 932 933 934 935 936 937 938 939 940
  if (using_extern())
  {
    # Connect to the running mysqld and find out what it supports
    collect_mysqld_features_from_running_server();
  }
  else
  {
    # Run the mysqld to find out what features are available
    collect_mysqld_features();
  }
unknown's avatar
unknown committed
941

unknown's avatar
unknown committed
942
  if ( $opt_comment )
unknown's avatar
unknown committed
943
  {
unknown's avatar
unknown committed
944 945 946 947
    mtr_report();
    mtr_print_thick_line('#');
    mtr_report("# $opt_comment");
    mtr_print_thick_line('#');
unknown's avatar
unknown committed
948
  }
unknown's avatar
unknown committed
949

unknown's avatar
unknown committed
950 951 952 953 954 955
  foreach my $arg ( @ARGV )
  {
    if ( $arg =~ /^--skip-/ )
    {
      push(@opt_extra_mysqld_opt, $arg);
    }
956 957 958 959 960 961
    elsif ( $arg =~ /^--$/ )
    {
      # It is an effect of setting 'pass_through' in option processing
      # that the lone '--' separating options from arguments survives,
      # simply ignore it.
    }
unknown's avatar
unknown committed
962 963
    elsif ( $arg =~ /^-/ )
    {
Magnus Svensson's avatar
Magnus Svensson committed
964
      usage("Invalid option \"$arg\"");
unknown's avatar
unknown committed
965 966 967 968 969 970
    }
    else
    {
      push(@opt_cases, $arg);
    }
  }
unknown's avatar
unknown committed
971

972 973 974
  # --------------------------------------------------------------------------
  # Find out type of logging that are being used
  # --------------------------------------------------------------------------
unknown's avatar
unknown committed
975
  foreach my $arg ( @opt_extra_mysqld_opt )
976
  {
unknown's avatar
unknown committed
977
    if ( $arg =~ /binlog[-_]format=(\S+)/ )
978
    {
unknown's avatar
unknown committed
979 980 981
      # Save this for collect phase
      collect_option('binlog-format', $1);
      mtr_report("Using binlog format '$1'");
982
    }
983 984
  }

985 986 987 988 989 990 991 992

  # --------------------------------------------------------------------------
  # Find out default storage engine being used(if any)
  # --------------------------------------------------------------------------
  foreach my $arg ( @opt_extra_mysqld_opt )
  {
    if ( $arg =~ /default-storage-engine=(\S+)/ )
    {
unknown's avatar
unknown committed
993 994 995
      # Save this for collect phase
      collect_option('default-storage-engine', $1);
      mtr_report("Using default engine '$1'")
996 997 998
    }
  }

999
  # --------------------------------------------------------------------------
1000
  # Check if we should speed up tests by trying to run on tmpfs
1001
  # --------------------------------------------------------------------------
Magnus Svensson's avatar
Magnus Svensson committed
1002
  if ( defined $opt_mem)
1003 1004 1005 1006 1007 1008
  {
    mtr_error("Can't use --mem and --vardir at the same time ")
      if $opt_vardir;
    mtr_error("Can't use --mem and --tmpdir at the same time ")
      if $opt_tmpdir;

1009
    # Search through list of locations that are known
1010
    # to be "fast disks" to find a suitable location
1011 1012 1013
    # Use --mem=<dir> as first location to look.
    my @tmpfs_locations= ($opt_mem, "/dev/shm", "/tmp");

1014 1015 1016 1017
    foreach my $fs (@tmpfs_locations)
    {
      if ( -d $fs )
      {
1018
	my $template= "var_${opt_build_thread}_XXXX";
1019
	$opt_mem= tempdir( $template, DIR => $fs, CLEANUP => 0);
1020 1021 1022 1023
	last;
      }
    }
  }
1024

1025
  # --------------------------------------------------------------------------
Magnus Svensson's avatar
Magnus Svensson committed
1026
  # Set the "var/" directory, the base for everything else
1027
  # --------------------------------------------------------------------------
unknown's avatar
unknown committed
1028
  $default_vardir= "$glob_mysql_test_dir/var";
1029 1030
  if ( ! $opt_vardir )
  {
1031
    $opt_vardir= $default_vardir;
1032
  }
unknown's avatar
unknown committed
1033

unknown's avatar
unknown committed
1034 1035
  # We make the path absolute, as the server will do a chdir() before usage
  unless ( $opt_vardir =~ m,^/, or
unknown's avatar
unknown committed
1036
           (IS_WINDOWS and $opt_vardir =~ m,^[a-z]:/,i) )
1037 1038 1039 1040
  {
    # Make absolute path, relative test dir
    $opt_vardir= "$glob_mysql_test_dir/$opt_vardir";
  }
unknown's avatar
unknown committed
1041

Magnus Svensson's avatar
Magnus Svensson committed
1042
  set_vardir($opt_vardir);
unknown's avatar
unknown committed
1043

1044
  # --------------------------------------------------------------------------
Magnus Svensson's avatar
Magnus Svensson committed
1045
  # Set the "tmp" directory
1046
  # --------------------------------------------------------------------------
1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060
  if ( ! $opt_tmpdir )
  {
    $opt_tmpdir=       "$opt_vardir/tmp" unless $opt_tmpdir;

    if (check_socket_path_length("$opt_tmpdir/testsocket.sock"))
    {
      mtr_report("Too long tmpdir path '$opt_tmpdir'",
		 " creating a shorter one...");

      # Create temporary directory in standard location for temporary files
      $opt_tmpdir= tempdir( TMPDIR => 1, CLEANUP => 1 );
      mtr_report(" - using tmpdir: '$opt_tmpdir'\n");
    }
  }
unknown's avatar
unknown committed
1061
  $opt_tmpdir =~ s,/+$,,;       # Remove ending slash if any
unknown's avatar
unknown committed
1062 1063

  # --------------------------------------------------------------------------
unknown's avatar
unknown committed
1064
  # fast option
unknown's avatar
unknown committed
1065
  # --------------------------------------------------------------------------
unknown's avatar
unknown committed
1066 1067
  if ($opt_fast){
    $opt_shutdown_timeout= 0; # Kill processes instead of nice shutdown
unknown's avatar
unknown committed
1068 1069
  }

unknown's avatar
unknown committed
1070
  # --------------------------------------------------------------------------
1071
  # Record flag
unknown's avatar
unknown committed
1072
  # --------------------------------------------------------------------------
unknown's avatar
unknown committed
1073
  if ( $opt_record and ! @opt_cases )
unknown's avatar
unknown committed
1074 1075 1076 1077
  {
    mtr_error("Will not run in record mode without a specific test case");
  }

1078 1079 1080 1081 1082
  if ( $opt_record ) {
    # Use only one worker with --record
    $opt_parallel= 1;
  }

1083
  # --------------------------------------------------------------------------
unknown's avatar
unknown committed
1084
  # Embedded server flag
1085
  # --------------------------------------------------------------------------
unknown's avatar
unknown committed
1086
  if ( $opt_embedded_server )
unknown's avatar
unknown committed
1087
  {
unknown's avatar
unknown committed
1088
    if ( IS_WINDOWS )
unknown's avatar
unknown committed
1089 1090 1091 1092 1093
    {
      # Add the location for libmysqld.dll to the path.
      my $separator= ";";
      my $lib_mysqld=
        mtr_path_exists(vs_config_dirs('libmysqld',''));
unknown's avatar
unknown committed
1094
      if ( IS_CYGWIN )
unknown's avatar
unknown committed
1095
      {
unknown's avatar
unknown committed
1096
	$lib_mysqld= posix_path($lib_mysqld);
unknown's avatar
unknown committed
1097 1098 1099 1100 1101 1102
	$separator= ":";
      }
      $ENV{'PATH'}= "$ENV{'PATH'}".$separator.$lib_mysqld;
    }
    $opt_skip_ndbcluster= 1;       # Turn off use of NDB cluster
    $opt_skip_ssl= 1;              # Turn off use of SSL
unknown's avatar
unknown committed
1103

unknown's avatar
unknown committed
1104 1105 1106 1107 1108 1109 1110
    # Turn off use of bin log
    push(@opt_extra_mysqld_opt, "--skip-log-bin");

    if ( using_extern() )
    {
      mtr_error("Can't use --extern with --embedded-server");
    }
1111

1112 1113 1114 1115 1116 1117 1118 1119 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133

    if ($opt_gdb)
    {
      mtr_warning("Silently converting --gdb to --client-gdb in embedded mode");
      $opt_client_gdb= $opt_gdb;
      $opt_gdb= undef;
    }

    if ($opt_ddd)
    {
      mtr_warning("Silently converting --ddd to --client-ddd in embedded mode");
      $opt_client_ddd= $opt_ddd;
      $opt_ddd= undef;
    }

    if ($opt_debugger)
    {
      mtr_warning("Silently converting --debugger to --client-debugger in embedded mode");
      $opt_client_debugger= $opt_debugger;
      $opt_debugger= undef;
    }

1134 1135 1136 1137 1138 1139
    if ( $opt_gdb || $opt_ddd || $opt_manual_gdb || $opt_manual_ddd ||
	 $opt_manual_debug || $opt_debugger )
    {
      mtr_error("You need to use the client debug options for the",
		"embedded server. Ex: --client-gdb");
    }
unknown's avatar
unknown committed
1140 1141
  }

1142
  # --------------------------------------------------------------------------
1143
  # Big test flags
1144
  # --------------------------------------------------------------------------
1145 1146 1147 1148
   if ( $opt_big_test )
   {
     $ENV{'BIG_TEST'}= 1;
   }
unknown's avatar
unknown committed
1149

1150 1151 1152
  # --------------------------------------------------------------------------
  # Gcov flag
  # --------------------------------------------------------------------------
1153
  if ( $opt_gcov and ! $source_dist )
unknown's avatar
unknown committed
1154
  {
unknown's avatar
unknown committed
1155 1156 1157
    mtr_error("Coverage test needs the source - please use source dist");
  }

1158
  # --------------------------------------------------------------------------
unknown's avatar
unknown committed
1159
  # Check debug related options
1160
  # --------------------------------------------------------------------------
1161
  if ( $opt_gdb || $opt_client_gdb || $opt_ddd || $opt_client_ddd ||
1162 1163
       $opt_manual_gdb || $opt_manual_ddd || $opt_manual_debug ||
       $opt_debugger || $opt_client_debugger )
unknown's avatar
unknown committed
1164
  {
1165
    # Indicate that we are using debugger
unknown's avatar
unknown committed
1166
    $glob_debugger= 1;
unknown's avatar
unknown committed
1167
    if ( using_extern() )
unknown's avatar
unknown committed
1168
    {
unknown's avatar
unknown committed
1169
      mtr_error("Can't use --extern when using debugger");
unknown's avatar
unknown committed
1170 1171 1172
    }
  }

1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184
  # --------------------------------------------------------------------------
  # Check timeout arguments
  # --------------------------------------------------------------------------

  mtr_error("Invalid value '$opt_testcase_timeout' supplied ".
	    "for option --testcase-timeout")
    if ($opt_testcase_timeout <= 0);
  mtr_error("Invalid value '$opt_suite_timeout' supplied ".
	    "for option --testsuite-timeout")
    if ($opt_suite_timeout <= 0);

  # --------------------------------------------------------------------------
1185
  # Check valgrind arguments
1186
  # --------------------------------------------------------------------------
unknown's avatar
unknown committed
1187
  if ( $opt_valgrind or $opt_valgrind_path or @valgrind_args)
unknown's avatar
unknown committed
1188
  {
unknown's avatar
unknown committed
1189 1190 1191 1192
    mtr_report("Turning on valgrind for all executables");
    $opt_valgrind= 1;
    $opt_valgrind_mysqld= 1;
    $opt_valgrind_mysqltest= 1;
unknown's avatar
unknown committed
1193 1194 1195 1196 1197 1198

    # Increase the timeouts when running with valgrind
    $opt_testcase_timeout*= 10;
    $opt_suite_timeout*= 6;
    $opt_start_timeout*= 10;

unknown's avatar
unknown committed
1199
  }
1200
  elsif ( $opt_valgrind_mysqld )
unknown's avatar
unknown committed
1201
  {
1202
    mtr_report("Turning on valgrind for mysqld(s) only");
unknown's avatar
unknown committed
1203
    $opt_valgrind= 1;
1204 1205 1206
  }
  elsif ( $opt_valgrind_mysqltest )
  {
1207
    mtr_report("Turning on valgrind for mysqltest and mysql_client_test only");
unknown's avatar
unknown committed
1208
    $opt_valgrind= 1;
1209 1210
  }

1211 1212 1213 1214 1215 1216 1217
  if ( $opt_callgrind )
  {
    mtr_report("Turning on valgrind with callgrind for mysqld(s)");
    $opt_valgrind= 1;
    $opt_valgrind_mysqld= 1;

    # Set special valgrind options unless options passed on command line
unknown's avatar
unknown committed
1218 1219
    push(@valgrind_args, "--trace-children=yes")
      unless @valgrind_args;
1220 1221
  }

1222 1223 1224
  if ( $opt_valgrind )
  {
    # Set valgrind_options to default unless already defined
unknown's avatar
unknown committed
1225 1226
    push(@valgrind_args, @default_valgrind_args)
      unless @valgrind_args;
unknown's avatar
unknown committed
1227

unknown's avatar
unknown committed
1228 1229
    mtr_report("Running valgrind with options \"",
	       join(" ", @valgrind_args), "\"");
unknown's avatar
unknown committed
1230
  }
unknown's avatar
unknown committed
1231

1232 1233 1234 1235 1236 1237 1238 1239
  mtr_report("Checking supported features...");

  check_ndbcluster_support(\%mysqld_variables);
  check_ssl_support(\%mysqld_variables);
  check_debug_support(\%mysqld_variables);

  executable_setup();

1240 1241
}

unknown's avatar
unknown committed
1242

1243 1244 1245 1246 1247 1248 1249 1250 1251 1252 1253 1254 1255 1256 1257
#
# To make it easier for different devs to work on the same host,
# an environment variable can be used to control all ports. A small
# number is to be used, 0 - 16 or similar.
#
# Note the MASTER_MYPORT has to be set the same in all 4.x and 5.x
# versions of this script, else a 4.0 test run might conflict with a
# 5.1 test run, even if different MTR_BUILD_THREAD is used. This means
# all port numbers might not be used in this version of the script.
#
# Also note the limitation of ports we are allowed to hand out. This
# differs between operating systems and configuration, see
# http://www.ncftp.com/ncftpd/doc/misc/ephemeral_ports.html
# But a fairly safe range seems to be 5001 - 32767
#
1258 1259
sub set_build_thread_ports($) {
  my $build_thread= shift || 0;
1260

1261
  if ( lc($build_thread) eq 'auto' ) {
Magnus Svensson's avatar
Magnus Svensson committed
1262
    #mtr_report("Requesting build thread... ");
1263
    $build_thread= mtr_get_unique_id(250, 299);
1264 1265 1266
    if ( !defined $build_thread ) {
      mtr_error("Could not get a unique build thread id");
    }
Magnus Svensson's avatar
Magnus Svensson committed
1267
    #mtr_report(" - got $build_thread");
unknown's avatar
unknown committed
1268
  }
1269 1270
  $ENV{MTR_BUILD_THREAD}= $build_thread;
  $opt_build_thread= $build_thread;
unknown's avatar
unknown committed
1271

unknown's avatar
unknown committed
1272
  # Calculate baseport
1273 1274
  $baseport= $build_thread * 10 + 10000;
  if ( $baseport < 5001 or $baseport + 9 >= 32767 )
1275 1276 1277
  {
    mtr_error("MTR_BUILD_THREAD number results in a port",
              "outside 5001 - 32767",
1278
              "($baseport - $baseport + 9)");
1279
  }
1280

1281
  mtr_report("Using MTR_BUILD_THREAD $build_thread,",
1282
	     "with reserved ports $baseport..".($baseport+9));
1283

unknown's avatar
unknown committed
1284 1285 1286
}


unknown's avatar
unknown committed
1287
sub collect_mysqld_features {
unknown's avatar
unknown committed
1288
  my $found_variable_list_start= 0;
1289 1290 1291 1292 1293 1294 1295
  my $use_tmpdir;
  if ( defined $opt_tmpdir and -d $opt_tmpdir){
    # Create the tempdir in $opt_tmpdir
    $use_tmpdir= $opt_tmpdir;
  }
  my $tmpdir= tempdir(CLEANUP => 0, # Directory removed by this function
		      DIR => $use_tmpdir);
1296

1297
  #
unknown's avatar
unknown committed
1298
  # Execute "mysqld --no-defaults --help --verbose" to get a
unknown's avatar
unknown committed
1299
  # list of all features and settings
1300
  #
1301 1302 1303
  # --no-defaults and --skip-grant-tables are to avoid loading
  # system-wide configs and plugins
  #
1304
  # --datadir must exist, mysqld will chdir into it
unknown's avatar
unknown committed
1305
  #
unknown's avatar
unknown committed
1306 1307 1308 1309 1310 1311 1312 1313 1314
  my $args;
  mtr_init_args(\$args);
  mtr_add_arg($args, "--no-defaults");
  mtr_add_arg($args, "--datadir=%s", mixed_path($tmpdir));
  mtr_add_arg($args, "--language=%s", $path_language);
  mtr_add_arg($args, "--skip-grant-tables");
  mtr_add_arg($args, "--verbose");
  mtr_add_arg($args, "--help");

1315
  my $exe_mysqld= find_mysqld($basedir);
unknown's avatar
unknown committed
1316 1317
  my $cmd= join(" ", $exe_mysqld, @$args);
  my $list= `$cmd`;
unknown's avatar
unknown committed
1318

1319
  foreach my $line (split('\n', $list))
unknown's avatar
unknown committed
1320
  {
unknown's avatar
unknown committed
1321 1322
    # First look for version
    if ( !$mysql_version_id )
unknown's avatar
unknown committed
1323
    {
unknown's avatar
unknown committed
1324
      # Look for version
1325 1326 1327
      my $exe_name= basename($exe_mysqld);
      mtr_verbose("exe_name: $exe_name");
      if ( $line =~ /^\S*$exe_name\s\sVer\s([0-9]*)\.([0-9]*)\.([0-9]*)/ )
unknown's avatar
unknown committed
1328
      {
1329
	#print "Major: $1 Minor: $2 Build: $3\n";
unknown's avatar
unknown committed
1330
	$mysql_version_id= $1*10000 + $2*100 + $3;
1331 1332
	#print "mysql_version_id: $mysql_version_id\n";
	mtr_report("MySQL Version $1.$2.$3");
unknown's avatar
unknown committed
1333
      }
unknown's avatar
unknown committed
1334 1335 1336
    }
    else
    {
unknown's avatar
unknown committed
1337
      if (!$found_variable_list_start)
unknown's avatar
unknown committed
1338
      {
unknown's avatar
unknown committed
1339
	# Look for start of variables list
1340
	if ( $line =~ /[\-]+\s[\-]+/ )
unknown's avatar
unknown committed
1341 1342 1343
	{
	  $found_variable_list_start= 1;
	}
1344 1345 1346
      }
      else
      {
unknown's avatar
unknown committed
1347
	# Put variables into hash
1348
	if ( $line =~ /^([\S]+)[ \t]+(.*?)\r?$/ )
unknown's avatar
unknown committed
1349
	{
1350
	  # print "$1=\"$2\"\n";
unknown's avatar
unknown committed
1351 1352
	  $mysqld_variables{$1}= $2;
	}
1353 1354
	else
	{
1355 1356 1357 1358 1359 1360 1361 1362 1363 1364 1365 1366 1367
	  # The variable list is ended with a blank line
	  if ( $line =~ /^[\s]*$/ )
	  {
	    last;
	  }
	  else
	  {
	    # Send out a warning, we should fix the variables that has no
	    # space between variable name and it's value
	    # or should it be fixed width column parsing? It does not
	    # look like that in function my_print_variables in my_getopt.c
	    mtr_warning("Could not parse variable list line : $line");
	  }
1368
	}
unknown's avatar
unknown committed
1369
      }
unknown's avatar
unknown committed
1370
    }
unknown's avatar
unknown committed
1371
  }
1372
  rmtree($tmpdir);
unknown's avatar
unknown committed
1373
  mtr_error("Could not find version of MySQL") unless $mysql_version_id;
1374
  mtr_error("Could not find variabes list") unless $found_variable_list_start;
unknown's avatar
unknown committed
1375 1376 1377 1378

}


1379 1380 1381 1382 1383 1384 1385 1386 1387 1388 1389 1390 1391 1392 1393 1394 1395 1396 1397 1398 1399 1400 1401 1402 1403 1404 1405 1406 1407 1408 1409 1410 1411 1412 1413 1414 1415 1416 1417 1418 1419 1420 1421 1422

sub collect_mysqld_features_from_running_server ()
{
  my $mysql= mtr_exe_exists("$path_client_bindir/mysql");

  my $args;
  mtr_init_args(\$args);

  mtr_add_arg($args, "--no-defaults");
  mtr_add_arg($args, "--user=%s", $opt_user);

  while (my ($option, $value)= each( %opts_extern )) {
    mtr_add_arg($args, "--$option=$value");
  }

  mtr_add_arg($args, "--silent"); # Tab separated output
  mtr_add_arg($args, "-e '%s'", "use mysql; SHOW VARIABLES");
  my $cmd= "$mysql " . join(' ', @$args);
  mtr_verbose("cmd: $cmd");

  my $list = `$cmd` or
    mtr_error("Could not connect to extern server using command: '$cmd'");
  foreach my $line (split('\n', $list ))
  {
    # Put variables into hash
    if ( $line =~ /^([\S]+)[ \t]+(.*?)\r?$/ )
    {
      # print "$1=\"$2\"\n";
      $mysqld_variables{$1}= $2;
    }
  }

  # Parse version
  my $version_str= $mysqld_variables{'version'};
  if ( $version_str =~ /^([0-9]*)\.([0-9]*)\.([0-9]*)/ )
  {
    #print "Major: $1 Minor: $2 Build: $3\n";
    $mysql_version_id= $1*10000 + $2*100 + $3;
    #print "mysql_version_id: $mysql_version_id\n";
    mtr_report("MySQL Version $1.$2.$3");
  }
  mtr_error("Could not find version of MySQL") unless $mysql_version_id;
}

1423 1424 1425 1426 1427 1428 1429 1430 1431 1432 1433 1434 1435
sub find_mysqld {
  my ($mysqld_basedir)= @_;

  my @mysqld_names= ("mysqld", "mysqld-max-nt", "mysqld-max",
		     "mysqld-nt");

  if ( $opt_debug ){
    # Put mysqld-debug first in the list of binaries to look for
    mtr_verbose("Adding mysqld-debug first in list of binaries to look for");
    unshift(@mysqld_names, "mysqld-debug");
  }

  return my_find_bin($mysqld_basedir,
1436
		     ["sql", "libexec", "sbin", "bin"],
1437 1438 1439 1440
		     [@mysqld_names]);
}


unknown's avatar
unknown committed
1441 1442
sub executable_setup () {

1443 1444 1445 1446 1447 1448 1449 1450 1451 1452 1453 1454 1455 1456 1457
  #
  # Check if libtool is available in this distribution/clone
  # we need it when valgrinding or debugging non installed binary
  # Otherwise valgrind will valgrind the libtool wrapper or bash
  # and gdb will not find the real executable to debug
  #
  if ( -x "../libtool")
  {
    $exe_libtool= "../libtool";
    if ($opt_valgrind or $glob_debugger)
    {
      mtr_report("Using \"$exe_libtool\" when running valgrind or debugger");
    }
  }

unknown's avatar
unknown committed
1458 1459 1460
  # Look for the client binaries
  $exe_mysqladmin=     mtr_exe_exists("$path_client_bindir/mysqladmin");
  $exe_mysql=          mtr_exe_exists("$path_client_bindir/mysql");
unknown's avatar
unknown committed
1461

unknown's avatar
unknown committed
1462 1463 1464 1465
  if ( ! $opt_skip_ndbcluster )
  {
    $exe_ndbd=
      my_find_bin($basedir,
1466
		  ["storage/ndb/src/kernel", "libexec", "bin"],
unknown's avatar
unknown committed
1467 1468 1469 1470
		  "ndbd");

    $exe_ndb_mgmd=
      my_find_bin($basedir,
1471
		  ["storage/ndb/src/mgmsrv", "libexec", "bin"],
unknown's avatar
unknown committed
1472 1473 1474 1475 1476 1477
		  "ndb_mgmd");

    $exe_ndb_waiter=
      my_find_bin($basedir,
		  ["storage/ndb/tools/", "bin"],
		  "ndb_waiter");
1478

unknown's avatar
unknown committed
1479
  }
1480

unknown's avatar
unknown committed
1481
  # Look for mysqltest executable
unknown's avatar
unknown committed
1482
  if ( $opt_embedded_server )
unknown's avatar
unknown committed
1483
  {
unknown's avatar
unknown committed
1484
    $exe_mysqltest=
1485
      mtr_exe_exists(vs_config_dirs('libmysqld/examples','mysqltest_embedded'),
unknown's avatar
unknown committed
1486
                     "$basedir/libmysqld/examples/mysqltest_embedded",
1487
                     "$path_client_bindir/mysqltest_embedded");
unknown's avatar
unknown committed
1488
  }
unknown's avatar
unknown committed
1489 1490
  else
  {
1491
    $exe_mysqltest= mtr_exe_exists("$path_client_bindir/mysqltest");
unknown's avatar
unknown committed
1492
  }
1493

unknown's avatar
unknown committed
1494 1495 1496
}


unknown's avatar
unknown committed
1497 1498 1499 1500 1501 1502 1503 1504
sub client_debug_arg($$) {
  my ($args, $client_name)= @_;

  if ( $opt_debug ) {
    mtr_add_arg($args,
		"--debug=d:t:A,%s/log/%s.trace",
		$path_vardir_trace, $client_name)
  }
1505 1506 1507
}


unknown's avatar
unknown committed
1508
sub mysql_fix_arguments () {
unknown's avatar
unknown committed
1509

unknown's avatar
unknown committed
1510
  return "" if ( IS_WINDOWS );
1511

unknown's avatar
unknown committed
1512 1513 1514
  my $exe=
    mtr_script_exists("$basedir/scripts/mysql_fix_privilege_tables",
		      "$path_client_bindir/mysql_fix_privilege_tables");
1515 1516
  my $args;
  mtr_init_args(\$args);
unknown's avatar
unknown committed
1517
  mtr_add_arg($args, "--defaults-file=%s", $path_config_file);
1518

unknown's avatar
unknown committed
1519 1520 1521 1522 1523
  mtr_add_arg($args, "--basedir=", $basedir);
  mtr_add_arg($args, "--bindir=", $path_client_bindir);
  mtr_add_arg($args, "--verbose");
  return mtr_args2str($exe, @$args);
}
1524 1525


unknown's avatar
unknown committed
1526 1527 1528
sub client_arguments ($) {
  my $client_name= shift;
  my $client_exe= mtr_exe_exists("$path_client_bindir/$client_name");
1529

unknown's avatar
unknown committed
1530 1531 1532 1533 1534 1535 1536 1537 1538 1539 1540 1541 1542 1543 1544 1545 1546
  my $args;
  mtr_init_args(\$args);
  mtr_add_arg($args, "--defaults-file=%s", $path_config_file);
  client_debug_arg($args, $client_name);
  return mtr_args2str($client_exe, @$args);
}


sub mysqlslap_arguments () {
  my $exe= mtr_exe_maybe_exists("$path_client_bindir/mysqlslap");
  if ( $exe eq "" ) {
    # mysqlap was not found

    if (defined $mysql_version_id and $mysql_version_id >= 50100 ) {
      mtr_error("Could not find the mysqlslap binary");
    }
    return ""; # Don't care about mysqlslap
1547 1548
  }

unknown's avatar
unknown committed
1549 1550 1551 1552 1553
  my $args;
  mtr_init_args(\$args);
  mtr_add_arg($args, "--defaults-file=%s", $path_config_file);
  client_debug_arg($args, "mysqlslap");
  return mtr_args2str($exe, @$args);
1554 1555
}

unknown's avatar
unknown committed
1556 1557 1558 1559

sub mysqldump_arguments ($) {
  my($group_suffix) = @_;
  my $exe= mtr_exe_exists("$path_client_bindir/mysqldump");
1560 1561 1562

  my $args;
  mtr_init_args(\$args);
unknown's avatar
unknown committed
1563
  mtr_add_arg($args, "--defaults-file=%s", $path_config_file);
1564
  mtr_add_arg($args, "--defaults-group-suffix=%s", $group_suffix);
unknown's avatar
unknown committed
1565 1566 1567
  client_debug_arg($args, "mysqldump-$group_suffix");
  return mtr_args2str($exe, @$args);
}
1568 1569


unknown's avatar
unknown committed
1570 1571 1572 1573 1574
sub mysql_client_test_arguments(){
  my $exe;
  # mysql_client_test executable may _not_ exist
  if ( $opt_embedded_server ) {
    $exe= mtr_exe_maybe_exists(
1575 1576 1577
            vs_config_dirs('libmysqld/examples','mysql_client_test_embedded'),
	      "$basedir/libmysqld/examples/mysql_client_test_embedded",
		"$basedir/bin/mysql_client_test_embedded");
unknown's avatar
unknown committed
1578 1579 1580 1581 1582 1583 1584 1585 1586 1587
  } else {
    $exe= mtr_exe_maybe_exists(vs_config_dirs('tests', 'mysql_client_test'),
			       "$basedir/tests/mysql_client_test",
			       "$basedir/bin/mysql_client_test");
  }

  my $args;
  mtr_init_args(\$args);
  if ( $opt_valgrind_mysqltest ) {
    valgrind_arguments($args, \$exe);
1588
  }
unknown's avatar
unknown committed
1589 1590 1591 1592
  mtr_add_arg($args, "--defaults-file=%s", $path_config_file);
  mtr_add_arg($args, "--testcase");
  mtr_add_arg($args, "--vardir=$opt_vardir");
  client_debug_arg($args,"mysql_client_test");
1593

unknown's avatar
unknown committed
1594
  return mtr_args2str($exe, @$args);
1595 1596
}

unknown's avatar
unknown committed
1597

unknown's avatar
unknown committed
1598 1599 1600 1601 1602
#
# Set environment to be used by childs of this process for
# things that are constant during the whole lifetime of mysql-test-run
#
sub environment_setup {
unknown's avatar
unknown committed
1603

unknown's avatar
unknown committed
1604 1605
  umask(022);

1606
  my @ld_library_paths;
1607

unknown's avatar
unknown committed
1608
  if ($path_client_libdir)
unknown's avatar
unknown committed
1609
  {
unknown's avatar
unknown committed
1610 1611
    # Use the --client-libdir passed on commandline
    push(@ld_library_paths, "$path_client_libdir");
1612 1613
  }
  else
unknown's avatar
unknown committed
1614
  {
unknown's avatar
unknown committed
1615 1616 1617 1618 1619 1620 1621 1622 1623 1624 1625 1626
    # Setup LD_LIBRARY_PATH so the libraries from this distro/clone
    # are used in favor of the system installed ones
    if ( $source_dist )
    {
      push(@ld_library_paths, "$basedir/libmysql/.libs/",
	   "$basedir/libmysql_r/.libs/",
	   "$basedir/zlib.libs/");
    }
    else
    {
      push(@ld_library_paths, "$basedir/lib");
    }
1627 1628
  }

unknown's avatar
unknown committed
1629
  # --------------------------------------------------------------------------
1630 1631
  # Add the path where libndbclient can be found
  # --------------------------------------------------------------------------
1632
  if ( !$opt_skip_ndbcluster )
1633
  {
unknown's avatar
unknown committed
1634 1635 1636 1637 1638 1639 1640 1641 1642 1643 1644 1645 1646 1647 1648 1649 1650
    push(@ld_library_paths,  "$basedir/storage/ndb/src/.libs");
  }

  # --------------------------------------------------------------------------
  # Add the path where mysqld will find udf_example.so
  # --------------------------------------------------------------------------
  my $lib_udf_example=
    mtr_file_exists(vs_config_dirs('sql', 'udf_example.dll'),
		    "$basedir/sql/.libs/udf_example.so",);

  if ( $lib_udf_example )
  {
    push(@ld_library_paths, dirname($lib_udf_example));
  }

  $ENV{'UDF_EXAMPLE_LIB'}=
    ($lib_udf_example ? basename($lib_udf_example) : "");
1651 1652
  $ENV{'UDF_EXAMPLE_LIB_OPT'}= "--plugin-dir=".
    ($lib_udf_example ? dirname($lib_udf_example) : "");
unknown's avatar
unknown committed
1653 1654 1655 1656 1657 1658 1659 1660 1661 1662

  # --------------------------------------------------------------------------
  # Add the path where mysqld will find ha_example.so
  # --------------------------------------------------------------------------
  if ($mysql_version_id >= 50100) {
    my $lib_example_plugin=
      mtr_file_exists(vs_config_dirs('storage/example', 'ha_example.dll'),
		      "$basedir/storage/example/.libs/ha_example.so",);
    $ENV{'EXAMPLE_PLUGIN'}=
      ($lib_example_plugin ? basename($lib_example_plugin) : "");
1663 1664 1665
    $ENV{'EXAMPLE_PLUGIN_OPT'}= "--plugin-dir=".
      ($lib_example_plugin ? dirname($lib_example_plugin) : "");

unknown's avatar
unknown committed
1666
  }
unknown's avatar
unknown committed
1667

1668
  # --------------------------------------------------------------------------
1669
  # Valgrind need to be run with debug libraries otherwise it's almost
1670 1671 1672
  # impossible to add correct supressions, that means if "/usr/lib/debug"
  # is available, it should be added to
  # LD_LIBRARY_PATH
1673 1674 1675 1676
  #
  # But pthread is broken in libc6-dbg on Debian <= 3.1 (see Debian
  # bug 399035, http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=399035),
  # so don't change LD_LIBRARY_PATH on that platform.
1677
  # --------------------------------------------------------------------------
1678
  my $debug_libraries_path= "/usr/lib/debug";
1679 1680 1681
  my $deb_version;
  if (  $opt_valgrind and -d $debug_libraries_path and
        (! -e '/etc/debian_version' or
unknown's avatar
unknown committed
1682 1683
	 ($deb_version=
	    mtr_grab_file('/etc/debian_version')) !~ /^[0-9]+\.[0-9]$/ or
1684
         $deb_version > 3.1 ) )
1685
  {
1686
    push(@ld_library_paths, $debug_libraries_path);
1687
  }
1688

1689
  $ENV{'LD_LIBRARY_PATH'}= join(":", @ld_library_paths,
unknown's avatar
unknown committed
1690
				$ENV{'LD_LIBRARY_PATH'} ?
1691
				split(':', $ENV{'LD_LIBRARY_PATH'}) : ());
1692 1693 1694
  mtr_debug("LD_LIBRARY_PATH: $ENV{'LD_LIBRARY_PATH'}");

  $ENV{'DYLD_LIBRARY_PATH'}= join(":", @ld_library_paths,
1695 1696
				  $ENV{'DYLD_LIBRARY_PATH'} ?
				  split(':', $ENV{'DYLD_LIBRARY_PATH'}) : ());
1697
  mtr_debug("DYLD_LIBRARY_PATH: $ENV{'DYLD_LIBRARY_PATH'}");
1698

1699 1700 1701 1702 1703 1704 1705 1706 1707 1708 1709
  # The environment variable used for shared libs on AIX
  $ENV{'SHLIB_PATH'}= join(":", @ld_library_paths,
                           $ENV{'SHLIB_PATH'} ?
                           split(':', $ENV{'SHLIB_PATH'}) : ());
  mtr_debug("SHLIB_PATH: $ENV{'SHLIB_PATH'}");

  # The environment variable used for shared libs on hp-ux
  $ENV{'LIBPATH'}= join(":", @ld_library_paths,
                        $ENV{'LIBPATH'} ?
                        split(':', $ENV{'LIBPATH'}) : ());
  mtr_debug("LIBPATH: $ENV{'LIBPATH'}");
1710

1711
  $ENV{'CHARSETSDIR'}=              $path_charsetsdir;
unknown's avatar
unknown committed
1712 1713
  $ENV{'UMASK'}=              "0660"; # The octal *string*
  $ENV{'UMASK_DIR'}=          "0770"; # The octal *string*
unknown's avatar
unknown committed
1714

1715 1716 1717 1718 1719 1720 1721 1722 1723 1724
  #
  # MySQL tests can produce output in various character sets
  # (especially, ctype_xxx.test). To avoid confusing Perl
  # with output which is incompatible with the current locale
  # settings, we reset the current values of LC_ALL and LC_CTYPE to "C".
  # For details, please see
  # Bug#27636 tests fails if LC_* variables set to *_*.UTF-8
  #
  $ENV{'LC_ALL'}=             "C";
  $ENV{'LC_CTYPE'}=           "C";
unknown's avatar
unknown committed
1725

unknown's avatar
unknown committed
1726
  $ENV{'LC_COLLATE'}=         "C";
unknown's avatar
unknown committed
1727
  $ENV{'USE_RUNNING_SERVER'}= using_extern();
unknown's avatar
unknown committed
1728
  $ENV{'MYSQL_TEST_DIR'}=     $glob_mysql_test_dir;
unknown's avatar
unknown committed
1729
  $ENV{'DEFAULT_MASTER_PORT'}= $mysqld_variables{'master-port'} || 3306;
1730
  $ENV{'MYSQL_TMP_DIR'}=      $opt_tmpdir;
Magnus Svensson's avatar
Magnus Svensson committed
1731
  $ENV{'MYSQLTEST_VARDIR'}=   $opt_vardir;
1732

1733 1734 1735
  # ----------------------------------------------------
  # Setup env for NDB
  # ----------------------------------------------------
unknown's avatar
unknown committed
1736 1737 1738 1739 1740 1741 1742 1743 1744 1745 1746 1747 1748 1749 1750 1751 1752 1753 1754 1755 1756 1757 1758 1759
  if ( ! $opt_skip_ndbcluster )
  {
    $ENV{'NDB_MGM'}=
      my_find_bin($basedir,
		  ["storage/ndb/src/mgmclient", "bin"],
		  "ndb_mgm");

    $ENV{'NDB_TOOLS_DIR'}=
      my_find_dir($basedir,
		  ["storage/ndb/tools", "bin"]);

    $ENV{'NDB_EXAMPLES_DIR'}=
      my_find_dir($basedir,
		  ["storage/ndb/ndbapi-examples", "bin"]);

    $ENV{'NDB_EXAMPLES_BINARY'}=
      my_find_bin($basedir,
		  ["storage/ndb/ndbapi-examples/ndbapi_simple", "bin"],
		  "ndbapi_simple", NOT_REQUIRED);

    my $path_ndb_testrun_log= "$opt_vardir/log/ndb_testrun.log";
    $ENV{'NDB_TOOLS_OUTPUT'}=         $path_ndb_testrun_log;
    $ENV{'NDB_EXAMPLES_OUTPUT'}=      $path_ndb_testrun_log;
  }
1760

1761
  # ----------------------------------------------------
unknown's avatar
unknown committed
1762
  # mysql clients
1763
  # ----------------------------------------------------
unknown's avatar
unknown committed
1764 1765 1766 1767 1768 1769 1770 1771 1772
  $ENV{'MYSQL_CHECK'}=              client_arguments("mysqlcheck");
  $ENV{'MYSQL_DUMP'}=               mysqldump_arguments(".1");
  $ENV{'MYSQL_DUMP_SLAVE'}=         mysqldump_arguments(".2");
  $ENV{'MYSQL_SLAP'}=               mysqlslap_arguments();
  $ENV{'MYSQL_IMPORT'}=             client_arguments("mysqlimport");
  $ENV{'MYSQL_SHOW'}=               client_arguments("mysqlshow");
  $ENV{'MYSQL_BINLOG'}=             client_arguments("mysqlbinlog");
  $ENV{'MYSQL'}=                    client_arguments("mysql");
  $ENV{'MYSQL_UPGRADE'}=            client_arguments("mysql_upgrade");
unknown's avatar
unknown committed
1773
  $ENV{'MYSQLADMIN'}=               native_path($exe_mysqladmin);
unknown's avatar
unknown committed
1774 1775 1776
  $ENV{'MYSQL_CLIENT_TEST'}=        mysql_client_test_arguments();
  $ENV{'MYSQL_FIX_SYSTEM_TABLES'}=  mysql_fix_arguments();
  $ENV{'EXE_MYSQL'}=                $exe_mysql;
1777

unknown's avatar
unknown committed
1778
  # ----------------------------------------------------
unknown's avatar
unknown committed
1779 1780
  # bug25714 executable may _not_ exist in
  # some versions, test using it should be skipped
1781
  # ----------------------------------------------------
unknown's avatar
unknown committed
1782 1783 1784
  my $exe_bug25714=
      mtr_exe_maybe_exists(vs_config_dirs('tests', 'bug25714'),
                           "$basedir/tests/bug25714");
unknown's avatar
unknown committed
1785
  $ENV{'MYSQL_BUG25714'}=  native_path($exe_bug25714);
1786

1787
  # ----------------------------------------------------
unknown's avatar
unknown committed
1788
  # mysql_fix_privilege_tables.sql
1789
  # ----------------------------------------------------
unknown's avatar
unknown committed
1790 1791
  my $file_mysql_fix_privilege_tables=
    mtr_file_exists("$basedir/scripts/mysql_fix_privilege_tables.sql",
Sven Sandberg's avatar
Sven Sandberg committed
1792 1793
		    "$basedir/share/mysql_fix_privilege_tables.sql",
		    "$basedir/share/mysql/mysql_fix_privilege_tables.sql");
1794
  $ENV{'MYSQL_FIX_PRIVILEGE_TABLES'}=  $file_mysql_fix_privilege_tables;
1795 1796

  # ----------------------------------------------------
unknown's avatar
unknown committed
1797
  # my_print_defaults
1798
  # ----------------------------------------------------
unknown's avatar
unknown committed
1799 1800 1801 1802
  my $exe_my_print_defaults=
    mtr_exe_exists(vs_config_dirs('extra', 'my_print_defaults'),
		   "$path_client_bindir/my_print_defaults",
		   "$basedir/extra/my_print_defaults");
unknown's avatar
unknown committed
1803
  $ENV{'MYSQL_MY_PRINT_DEFAULTS'}= native_path($exe_my_print_defaults);
1804

1805 1806 1807 1808 1809 1810 1811 1812 1813 1814 1815 1816 1817 1818 1819 1820 1821

  # ----------------------------------------------------
  # Setup env so childs can execute myisampack and myisamchk
  # ----------------------------------------------------
  $ENV{'MYISAMCHK'}= native_path(mtr_exe_exists(
                       vs_config_dirs('storage/myisam', 'myisamchk'),
                       vs_config_dirs('myisam', 'myisamchk'),
                       "$path_client_bindir/myisamchk",
                       "$basedir/storage/myisam/myisamchk",
                       "$basedir/myisam/myisamchk"));
  $ENV{'MYISAMPACK'}= native_path(mtr_exe_exists(
                        vs_config_dirs('storage/myisam', 'myisampack'),
                        vs_config_dirs('myisam', 'myisampack'),
                        "$path_client_bindir/myisampack",
                        "$basedir/storage/myisam/myisampack",
                        "$basedir/myisam/myisampack"));

1822
  # ----------------------------------------------------
unknown's avatar
unknown committed
1823
  # perror
1824
  # ----------------------------------------------------
unknown's avatar
unknown committed
1825 1826 1827
  my $exe_perror= mtr_exe_exists(vs_config_dirs('extra', 'perror'),
				 "$basedir/extra/perror",
				 "$path_client_bindir/perror");
unknown's avatar
unknown committed
1828
  $ENV{'MY_PERROR'}= native_path($exe_perror);
1829

1830 1831 1832 1833
  # Create an environment variable to make it possible
  # to detect that valgrind is being used from test cases
  $ENV{'VALGRIND_TEST'}= $opt_valgrind;

unknown's avatar
unknown committed
1834 1835 1836
}


1837

1838 1839 1840 1841 1842
#
# Remove var and any directories in var/ created by previous
# tests
#
sub remove_stale_vardir () {
1843

unknown's avatar
unknown committed
1844
  mtr_report("Removing old var directory...");
unknown's avatar
unknown committed
1845

1846 1847
  # Safety!
  mtr_error("No, don't remove the vardir when running with --extern")
unknown's avatar
unknown committed
1848
    if using_extern();
1849 1850

  mtr_verbose("opt_vardir: $opt_vardir");
1851
  if ( $opt_vardir eq $default_vardir )
1852 1853 1854 1855
  {
    #
    # Running with "var" in mysql-test dir
    #
1856
    if ( -l $opt_vardir)
1857
    {
1858
      # var is a symlink
1859

1860
      if ( $opt_mem )
1861 1862
      {
	# Remove the directory which the link points at
1863
	mtr_verbose("Removing " . readlink($opt_vardir));
unknown's avatar
unknown committed
1864
	rmtree(readlink($opt_vardir));
1865

1866
	# Remove the "var" symlink
1867
	mtr_verbose("unlink($opt_vardir)");
1868
	unlink($opt_vardir);
1869 1870 1871 1872
      }
      else
      {
	# Some users creates a soft link in mysql-test/var to another area
1873 1874
	# - allow it, but remove all files in it

unknown's avatar
unknown committed
1875
	mtr_report(" - WARNING: Using the 'mysql-test/var' symlink");
1876

1877 1878 1879 1880
	# Make sure the directory where it points exist
	mtr_error("The destination for symlink $opt_vardir does not exist")
	  if ! -d readlink($opt_vardir);

1881 1882 1883
	foreach my $bin ( glob("$opt_vardir/*") )
	{
	  mtr_verbose("Removing bin $bin");
unknown's avatar
unknown committed
1884
	  rmtree($bin);
1885
	}
1886
      }
1887 1888 1889 1890
    }
    else
    {
      # Remove the entire "var" dir
1891
      mtr_verbose("Removing $opt_vardir/");
unknown's avatar
unknown committed
1892
      rmtree("$opt_vardir/");
1893
    }
1894 1895 1896 1897 1898 1899 1900

    if ( $opt_mem )
    {
      # A symlink from var/ to $opt_mem will be set up
      # remove the $opt_mem dir to assure the symlink
      # won't point at an old directory
      mtr_verbose("Removing $opt_mem");
unknown's avatar
unknown committed
1901
      rmtree($opt_mem);
1902 1903
    }

1904 1905 1906 1907 1908 1909 1910 1911 1912
  }
  else
  {
    #
    # Running with "var" in some other place
    #

    # Remove the var/ dir in mysql-test dir if any
    # this could be an old symlink that shouldn't be there
1913
    mtr_verbose("Removing $default_vardir");
unknown's avatar
unknown committed
1914
    rmtree($default_vardir);
1915 1916

    # Remove the "var" dir
1917
    mtr_verbose("Removing $opt_vardir/");
unknown's avatar
unknown committed
1918
    rmtree("$opt_vardir/");
1919
  }
1920 1921
}

unknown's avatar
unknown committed
1922 1923


1924 1925 1926 1927
#
# Create var and the directories needed in var
#
sub setup_vardir() {
1928
  mtr_report("Creating var directory '$opt_vardir'...");
unknown's avatar
unknown committed
1929

1930
  if ( $opt_vardir eq $default_vardir )
1931
  {
1932 1933 1934 1935 1936 1937
    #
    # Running with "var" in mysql-test dir
    #
    if ( -l $opt_vardir )
    {
      #  it's a symlink
1938

1939 1940 1941 1942 1943 1944 1945 1946 1947
      # Make sure the directory where it points exist
      mtr_error("The destination for symlink $opt_vardir does not exist")
	if ! -d readlink($opt_vardir);
    }
    elsif ( $opt_mem )
    {
      # Runinng with "var" as a link to some "memory" location, normally tmpfs
      mtr_verbose("Creating $opt_mem");
      mkpath($opt_mem);
1948

unknown's avatar
unknown committed
1949
      mtr_report(" - symlinking 'var' to '$opt_mem'");
1950 1951
      symlink($opt_mem, $opt_vardir);
    }
1952 1953
  }

1954 1955 1956 1957 1958
  if ( ! -d $opt_vardir )
  {
    mtr_verbose("Creating $opt_vardir");
    mkpath($opt_vardir);
  }
unknown's avatar
unknown committed
1959

1960 1961
  # Ensure a proper error message if vardir couldn't be created
  unless ( -d $opt_vardir and -w $opt_vardir )
1962
  {
1963 1964
    mtr_error("Writable 'var' directory is needed, use the " .
	      "'--vardir=<path>' option");
1965 1966
  }

1967 1968
  mkpath("$opt_vardir/log");
  mkpath("$opt_vardir/run");
1969

1970 1971 1972
  # Create var/tmp and tmp - they might be different
  mkpath("$opt_vardir/tmp");
  mkpath($opt_tmpdir) if ($opt_tmpdir ne "$opt_vardir/tmp");
unknown's avatar
unknown committed
1973

1974 1975 1976 1977 1978 1979 1980 1981 1982
  # On some operating systems, there is a limit to the length of a
  # UNIX domain socket's path far below PATH_MAX.
  # Don't allow that to happen
  if (check_socket_path_length("$opt_tmpdir/testsocket.sock")){
    mtr_error("Socket path '$opt_tmpdir' too long, it would be ",
	      "truncated and thus not possible to use for connection to ",
	      "MySQL Server. Set a shorter with --tmpdir=<path> option");
  }

unknown's avatar
unknown committed
1983 1984 1985
  # copy all files from std_data into var/std_data
  # and make them writable
  copytree("$glob_mysql_test_dir/std_data", "$opt_vardir/std_data");
unknown's avatar
unknown committed
1986 1987

  # Remove old log files
unknown's avatar
unknown committed
1988
  foreach my $name (glob("r/*.progress r/*.log r/*.warnings"))
unknown's avatar
unknown committed
1989 1990 1991
  {
    unlink($name);
  }
unknown's avatar
unknown committed
1992 1993 1994
}


unknown's avatar
unknown committed
1995 1996 1997 1998
#
# Check if running as root
# i.e a file can be read regardless what mode we set it to
#
1999
sub  check_running_as_root () {
2000
  my $test_file= "$opt_vardir/test_running_as_root.txt";
2001 2002 2003 2004 2005 2006 2007 2008 2009 2010
  mtr_tofile($test_file, "MySQL");
  chmod(oct("0000"), $test_file);

  my $result="";
  if (open(FILE,"<",$test_file))
  {
    $result= join('', <FILE>);
    close FILE;
  }

2011 2012 2013 2014
  # Some filesystems( for example CIFS) allows reading a file
  # although mode was set to 0000, but in that case a stat on
  # the file will not return 0000
  my $file_mode= (stat($test_file))[2] & 07777;
2015

2016 2017
  mtr_verbose("result: $result, file_mode: $file_mode");
  if ($result eq "MySQL" && $file_mode == 0)
2018 2019 2020 2021 2022
  {
    mtr_warning("running this script as _root_ will cause some " .
                "tests to be skipped");
    $ENV{'MYSQL_TEST_ROOT'}= "YES";
  }
2023 2024 2025

  chmod(oct("0755"), $test_file);
  unlink($test_file);
2026 2027 2028
}


unknown's avatar
unknown committed
2029 2030
sub check_ssl_support ($) {
  my $mysqld_variables= shift;
2031

unknown's avatar
unknown committed
2032
  if ($opt_skip_ssl)
2033
  {
unknown's avatar
unknown committed
2034
    mtr_report(" - skipping SSL");
2035 2036 2037 2038 2039
    $opt_ssl_supported= 0;
    $opt_ssl= 0;
    return;
  }

2040
  if ( ! $mysqld_variables->{'ssl'} )
2041 2042 2043 2044 2045 2046
  {
    if ( $opt_ssl)
    {
      mtr_error("Couldn't find support for SSL");
      return;
    }
unknown's avatar
unknown committed
2047
    mtr_report(" - skipping SSL, mysqld not compiled with SSL");
2048 2049 2050 2051
    $opt_ssl_supported= 0;
    $opt_ssl= 0;
    return;
  }
unknown's avatar
unknown committed
2052
  mtr_report(" - SSL connections supported");
2053 2054 2055 2056
  $opt_ssl_supported= 1;
}


unknown's avatar
unknown committed
2057 2058
sub check_debug_support ($) {
  my $mysqld_variables= shift;
unknown's avatar
unknown committed
2059

2060
  if ( ! $mysqld_variables->{'debug'} )
unknown's avatar
unknown committed
2061
  {
unknown's avatar
unknown committed
2062
    #mtr_report(" - binaries are not debug compiled");
unknown's avatar
unknown committed
2063
    $debug_compiled_binaries= 0;
2064 2065 2066 2067 2068

    if ( $opt_debug )
    {
      mtr_error("Can't use --debug, binaries does not support it");
    }
unknown's avatar
unknown committed
2069 2070
    return;
  }
unknown's avatar
unknown committed
2071
  mtr_report(" - binaries are debug compiled");
unknown's avatar
unknown committed
2072 2073 2074
  $debug_compiled_binaries= 1;
}

unknown's avatar
unknown committed
2075

2076 2077 2078 2079 2080 2081 2082 2083 2084 2085 2086 2087 2088
#
# Helper function to handle configuration-based subdirectories which Visual
# Studio uses for storing binaries.  If opt_vs_config is set, this returns
# a path based on that setting; if not, it returns paths for the default
# /release/ and /debug/ subdirectories.
#
# $exe can be undefined, if the directory itself will be used
#
sub vs_config_dirs ($$) {
  my ($path_part, $exe) = @_;

  $exe = "" if not defined $exe;

unknown's avatar
unknown committed
2089
  # Don't look in these dirs when not on windows
unknown's avatar
unknown committed
2090
  return () unless IS_WINDOWS;
unknown's avatar
unknown committed
2091

2092 2093
  if ($opt_vs_config)
  {
unknown's avatar
unknown committed
2094
    return ("$basedir/$path_part/$opt_vs_config/$exe");
2095 2096
  }

unknown's avatar
unknown committed
2097 2098 2099
  return ("$basedir/$path_part/release/$exe",
          "$basedir/$path_part/relwithdebinfo/$exe",
          "$basedir/$path_part/debug/$exe");
2100 2101
}

unknown's avatar
unknown committed
2102

unknown's avatar
unknown committed
2103 2104
sub check_ndbcluster_support ($) {
  my $mysqld_variables= shift;
2105

unknown's avatar
unknown committed
2106
  if ($opt_skip_ndbcluster)
2107
  {
unknown's avatar
unknown committed
2108
    mtr_report(" - skipping ndbcluster");
2109 2110
    return;
  }
2111

unknown's avatar
unknown committed
2112
  if ( ! $mysqld_variables{'ndb-connectstring'} )
2113
  {
unknown's avatar
unknown committed
2114
    mtr_report(" - skipping ndbcluster, mysqld not compiled with ndbcluster");
2115
    $opt_skip_ndbcluster= 2;
2116
    return;
2117
  }
unknown's avatar
unknown committed
2118 2119

  mtr_report(" - using ndbcluster when necessary, mysqld supports it");
2120

unknown's avatar
unknown committed
2121
  return;
unknown's avatar
unknown committed
2122 2123
}

unknown's avatar
unknown committed
2124

2125
sub ndbcluster_wait_started($$){
unknown's avatar
unknown committed
2126
  my $cluster= shift;
2127
  my $ndb_waiter_extra_opt= shift;
unknown's avatar
unknown committed
2128
  my $path_waitlog= join('/', $opt_vardir, $cluster->name(), "ndb_waiter.log");
2129

unknown's avatar
unknown committed
2130
  my $args;
2131
  mtr_init_args(\$args);
unknown's avatar
unknown committed
2132 2133
  mtr_add_arg($args, "--defaults-file=%s", $path_config_file);
  mtr_add_arg($args, "--defaults-group-suffix=%s", $cluster->suffix());
2134
  mtr_add_arg($args, "--timeout=%d", $opt_start_timeout);
2135 2136 2137 2138 2139

  if ($ndb_waiter_extra_opt)
  {
    mtr_add_arg($args, "$ndb_waiter_extra_opt");
  }
unknown's avatar
unknown committed
2140 2141 2142 2143

  # Start the ndb_waiter which will connect to the ndb_mgmd
  # and poll it for state of the ndbd's, will return when
  # all nodes in the cluster is started
unknown's avatar
unknown committed
2144

unknown's avatar
unknown committed
2145 2146 2147 2148 2149 2150 2151 2152 2153
  my $res= My::SafeProcess->run
    (
     name          => "ndb_waiter ".$cluster->name(),
     path          => $exe_ndb_waiter,
     args          => \$args,
     output        => $path_waitlog,
     error         => $path_waitlog,
     append        => 1,
    );
2154

unknown's avatar
unknown committed
2155 2156 2157 2158 2159 2160 2161 2162 2163 2164
  # Check that ndb_mgmd(s) are still alive
  foreach my $ndb_mgmd ( in_cluster($cluster, ndb_mgmds()) )
  {
    my $proc= $ndb_mgmd->{proc};
    if ( ! $proc->wait_one(0) )
    {
      mtr_warning("$proc died");
      return 2;
    }
  }
2165

unknown's avatar
unknown committed
2166 2167 2168 2169 2170 2171 2172 2173 2174 2175 2176
  # Check that all started ndbd(s) are still alive
  foreach my $ndbd ( in_cluster($cluster, ndbds()) )
  {
    my $proc= $ndbd->{proc};
    next unless defined $proc;
    if ( ! $proc->wait_one(0) )
    {
      mtr_warning("$proc died");
      return 3;
    }
  }
2177

unknown's avatar
unknown committed
2178
  if ($res)
2179
  {
unknown's avatar
unknown committed
2180
    mtr_verbose("ndbcluster_wait_started failed");
2181 2182 2183
    return 1;
  }
  return 0;
unknown's avatar
unknown committed
2184 2185 2186
}


2187 2188 2189 2190
sub ndb_mgmd_wait_started($) {
  my ($cluster)= @_;

  my $retries= 100;
unknown's avatar
unknown committed
2191
  while ($retries)
2192
  {
unknown's avatar
unknown committed
2193 2194 2195 2196 2197 2198 2199 2200 2201 2202 2203 2204
    my $result= ndbcluster_wait_started($cluster, "--no-contact");
    if ($result == 0)
    {
      # ndb_mgmd is started
      mtr_verbose("ndb_mgmd is started");
      return 0;
    }
    elsif ($result > 1)
    {
      mtr_warning("Cluster process failed while waiting for start");
      return $result;
    }
2205

unknown's avatar
unknown committed
2206
    mtr_milli_sleep(100);
2207 2208 2209
    $retries--;
  }

unknown's avatar
unknown committed
2210
  return 1;
2211 2212
}

unknown's avatar
unknown committed
2213

unknown's avatar
unknown committed
2214 2215
sub ndb_mgmd_start ($$) {
  my ($cluster, $ndb_mgmd)= @_;
unknown's avatar
unknown committed
2216

unknown's avatar
unknown committed
2217 2218 2219 2220 2221 2222
  mtr_verbose("ndb_mgmd_start");

  my $dir= $ndb_mgmd->value("DataDir");
  mkpath($dir) unless -d $dir;

  my $args;
unknown's avatar
unknown committed
2223
  mtr_init_args(\$args);
unknown's avatar
unknown committed
2224 2225 2226
  mtr_add_arg($args, "--defaults-file=%s", $path_config_file);
  mtr_add_arg($args, "--defaults-group-suffix=%s", $cluster->suffix());
  mtr_add_arg($args, "--mycnf");
2227
  mtr_add_arg($args, "--nodaemon");
unknown's avatar
unknown committed
2228

unknown's avatar
unknown committed
2229
  my $path_ndb_mgmd_log= "$dir/ndb_mgmd.log";
unknown's avatar
unknown committed
2230

unknown's avatar
unknown committed
2231 2232 2233 2234 2235 2236 2237 2238 2239 2240 2241
  $ndb_mgmd->{'proc'}= My::SafeProcess->new
    (
     name          => $ndb_mgmd->after('cluster_config.'),
     path          => $exe_ndb_mgmd,
     args          => \$args,
     output        => $path_ndb_mgmd_log,
     error         => $path_ndb_mgmd_log,
     append        => 1,
     verbose       => $opt_verbose,
    );
  mtr_verbose("Started $ndb_mgmd->{proc}");
unknown's avatar
unknown committed
2242

2243 2244 2245
  # FIXME Should not be needed
  # Unfortunately the cluster nodes will fail to start
  # if ndb_mgmd has not started properly
2246
  if (ndb_mgmd_wait_started($cluster))
2247
  {
unknown's avatar
unknown committed
2248 2249
    mtr_warning("Failed to wait for start of ndb_mgmd");
    return 1;
2250
  }
2251

unknown's avatar
unknown committed
2252
  return 0;
unknown's avatar
unknown committed
2253 2254 2255
}


unknown's avatar
unknown committed
2256 2257 2258 2259
sub ndbd_start {
  my ($cluster, $ndbd)= @_;

  mtr_verbose("ndbd_start");
unknown's avatar
unknown committed
2260

unknown's avatar
unknown committed
2261 2262
  my $dir= $ndbd->value("DataDir");
  mkpath($dir) unless -d $dir;
unknown's avatar
unknown committed
2263

unknown's avatar
unknown committed
2264
  my $args;
unknown's avatar
unknown committed
2265
  mtr_init_args(\$args);
unknown's avatar
unknown committed
2266 2267
  mtr_add_arg($args, "--defaults-file=%s", $path_config_file);
  mtr_add_arg($args, "--defaults-group-suffix=%s", $cluster->suffix());
unknown's avatar
unknown committed
2268 2269
  mtr_add_arg($args, "--nodaemon");

unknown's avatar
unknown committed
2270
# > 5.0 { 'character-sets-dir' => \&fix_charset_dir },
unknown's avatar
unknown committed
2271 2272


unknown's avatar
unknown committed
2273 2274 2275 2276 2277 2278 2279 2280 2281 2282 2283 2284
  my $path_ndbd_log= "$dir/ndbd.log";
  my $proc= My::SafeProcess->new
    (
     name          => $ndbd->after('cluster_config.'),
     path          => $exe_ndbd,
     args          => \$args,
     output        => $path_ndbd_log,
     error         => $path_ndbd_log,
     append        => 1,
     verbose       => $opt_verbose,
    );
  mtr_verbose("Started $proc");
2285

unknown's avatar
unknown committed
2286
  $ndbd->{proc}= $proc;
unknown's avatar
unknown committed
2287

unknown's avatar
unknown committed
2288
  return;
unknown's avatar
unknown committed
2289 2290 2291
}


unknown's avatar
unknown committed
2292
sub ndbcluster_start ($) {
unknown's avatar
unknown committed
2293 2294
  my $cluster= shift;

unknown's avatar
unknown committed
2295
  mtr_verbose("ndbcluster_start '".$cluster->name()."'");
unknown's avatar
unknown committed
2296

unknown's avatar
unknown committed
2297
  foreach my $ndb_mgmd ( in_cluster($cluster, ndb_mgmds()) )
2298
  {
unknown's avatar
unknown committed
2299 2300
    next if started($ndb_mgmd);
    ndb_mgmd_start($cluster, $ndb_mgmd);
2301 2302
  }

unknown's avatar
unknown committed
2303
  foreach my $ndbd ( in_cluster($cluster, ndbds()) )
unknown's avatar
unknown committed
2304
  {
unknown's avatar
unknown committed
2305 2306
    next if started($ndbd);
    ndbd_start($cluster, $ndbd);
unknown's avatar
unknown committed
2307 2308
  }

unknown's avatar
unknown committed
2309 2310 2311 2312
  return 0;
}


unknown's avatar
unknown committed
2313 2314 2315 2316 2317
sub create_config_file_for_extern {
  my %opts=
    (
     socket     => '/tmp/mysqld.sock',
     port       => 3306,
2318
     user       => $opt_user,
unknown's avatar
unknown committed
2319 2320 2321
     password   => '',
     @_
    );
unknown's avatar
unknown committed
2322

unknown's avatar
unknown committed
2323 2324 2325 2326 2327 2328 2329 2330
  mtr_report("Creating my.cnf file for extern server...");
  my $F= IO::File->new($path_config_file, "w")
    or mtr_error("Can't write to $path_config_file: $!");

  print $F "[client]\n";
  while (my ($option, $value)= each( %opts )) {
    print $F "$option= $value\n";
    mtr_report(" $option= $value");
unknown's avatar
unknown committed
2331 2332
  }

unknown's avatar
unknown committed
2333
  print $F <<EOF
unknown's avatar
unknown committed
2334

unknown's avatar
unknown committed
2335 2336 2337
# binlog reads from [client] and [mysqlbinlog]
[mysqlbinlog]
character-sets-dir= $path_charsetsdir
unknown's avatar
unknown committed
2338

unknown's avatar
unknown committed
2339 2340 2341 2342 2343 2344
# mysql_fix_privilege_tables.sh don't read from [client]
[mysql_fix_privilege_tables]
socket            = $opts{'socket'}
port              = $opts{'port'}
user              = $opts{'user'}
password          = $opts{'password'}
unknown's avatar
unknown committed
2345

unknown's avatar
unknown committed
2346

unknown's avatar
unknown committed
2347 2348
EOF
;
2349

unknown's avatar
unknown committed
2350 2351
  $F= undef; # Close file
}
2352

unknown's avatar
unknown committed
2353

unknown's avatar
unknown committed
2354 2355 2356 2357 2358 2359 2360 2361 2362 2363 2364 2365 2366 2367 2368
#
# Kill processes left from previous runs, normally
# there should be none so make sure to warn
# if there is one
#
sub kill_leftovers ($) {
  my $rundir= shift;
  return unless ( -d $rundir );

  mtr_report("Checking leftover processes...");

  # Scan the "run" directory for process id's to kill
  opendir(RUNDIR, $rundir)
    or mtr_error("kill_leftovers, can't open dir \"$rundir\": $!");
  while ( my $elem= readdir(RUNDIR) )
unknown's avatar
unknown committed
2369
  {
unknown's avatar
unknown committed
2370 2371
    # Only read pid from files that end with .pid
    if ( $elem =~ /.*[.]pid$/ )
2372
    {
unknown's avatar
unknown committed
2373 2374 2375 2376 2377 2378 2379 2380 2381 2382
      my $pidfile= "$rundir/$elem";
      next unless -f $pidfile;
      my $pid= mtr_fromfile($pidfile);
      unlink($pidfile);
      unless ($pid=~ /^(\d+)/){
	# The pid was not a valid number
	mtr_warning("Got invalid pid '$pid' from '$elem'");
	next;
      }
      mtr_report(" - found old pid $pid in '$elem', killing it...");
unknown's avatar
unknown committed
2383

unknown's avatar
unknown committed
2384 2385 2386 2387 2388
      my $ret= kill(9, $pid);
      if ($ret == 0) {
	mtr_report("   process did not exist!");
	next;
      }
unknown's avatar
unknown committed
2389

unknown's avatar
unknown committed
2390 2391 2392 2393 2394 2395 2396 2397 2398 2399 2400 2401
      my $check_counter= 100;
      while ($ret > 0 and $check_counter--) {
	mtr_milli_sleep(100);
	$ret= kill(0, $pid);
      }
      mtr_report($check_counter ? "   ok!" : "   failed!");
    }
    else
    {
      mtr_warning("Found non pid file '$elem' in '$rundir'")
	if -f "$rundir/$elem";
    }
unknown's avatar
unknown committed
2402
  }
unknown's avatar
unknown committed
2403 2404
  closedir(RUNDIR);
}
unknown's avatar
unknown committed
2405

unknown's avatar
unknown committed
2406 2407 2408 2409 2410 2411 2412
#
# Check that all the ports that are going to
# be used are free
#
sub check_ports_free
{
  my @ports_to_check;
2413
  for ($baseport..$baseport+9){
unknown's avatar
unknown committed
2414
    push(@ports_to_check, $_);
unknown's avatar
unknown committed
2415
  }
Magnus Svensson's avatar
Magnus Svensson committed
2416
  #mtr_report("Checking ports...");
unknown's avatar
unknown committed
2417 2418 2419 2420 2421 2422
  # print "@ports_to_check\n";
  foreach my $port (@ports_to_check){
    if (mtr_ping_port($port)){
      mtr_report(" - 'localhost:$port' was not free");
      return 1; # One port was not free
    }
unknown's avatar
unknown committed
2423 2424
  }

unknown's avatar
unknown committed
2425
  return 0; # All ports free
unknown's avatar
unknown committed
2426 2427 2428
}


unknown's avatar
unknown committed
2429
sub initialize_servers {
2430

unknown's avatar
unknown committed
2431
  if ( using_extern() )
2432 2433 2434 2435 2436 2437 2438 2439 2440
  {
    # Running against an already started server, if the specified
    # vardir does not already exist it should be created
    if ( ! -d $opt_vardir )
    {
      setup_vardir();
    }
    else
    {
2441
      mtr_verbose("No need to create '$opt_vardir' it already exists");
2442 2443 2444
    }
  }
  else
2445
  {
unknown's avatar
unknown committed
2446 2447 2448 2449
    # Kill leftovers from previous run
    # using any pidfiles found in var/run
    kill_leftovers("$opt_vardir/run");

2450
    if ( ! $opt_start_dirty )
2451
    {
2452 2453 2454
      remove_stale_vardir();
      setup_vardir();

Magnus Svensson's avatar
Magnus Svensson committed
2455
      mysql_install_db(default_mysqld(), "$opt_vardir/install.db");
2456
    }
2457
  }
unknown's avatar
unknown committed
2458 2459 2460
}


unknown's avatar
unknown committed
2461
#
2462
# Remove all newline characters expect after semicolon
unknown's avatar
unknown committed
2463
#
2464 2465 2466 2467 2468 2469 2470 2471 2472 2473 2474 2475 2476 2477 2478 2479 2480 2481
sub sql_to_bootstrap {
  my ($sql) = @_;
  my @lines= split(/\n/, $sql);
  my $result= "\n";
  my $delimiter= ';';

  foreach my $line (@lines) {

    # Change current delimiter if line starts with "delimiter"
    if ( $line =~ /^delimiter (.*)/ ) {
      my $new= $1;
      # Remove old delimiter from end of new
      $new=~ s/\Q$delimiter\E$//;
      $delimiter = $new;
      mtr_debug("changed delimiter to $delimiter");
      # No need to add the delimiter to result
      next;
    }
2482

2483 2484 2485 2486 2487 2488 2489 2490
    # Add newline if line ends with $delimiter
    # and convert the current delimiter to semicolon
    if ( $line =~ /\Q$delimiter\E$/ ){
      $line =~ s/\Q$delimiter\E$/;/;
      $result.= "$line\n";
      mtr_debug("Added default delimiter");
      next;
    }
2491

2492 2493 2494 2495 2496 2497
    # Remove comments starting with --
    if ( $line =~ /^\s*--/ ) {
      mtr_debug("Discarded $line");
      next;
    }

2498 2499 2500
    # Replace @HOSTNAME with localhost
    $line=~ s/\'\@HOSTNAME\@\'/localhost/;

2501 2502 2503 2504 2505 2506
    # Default, just add the line without newline
    # but with a space as separator
    $result.= "$line ";

  }
  return $result;
2507 2508 2509
}


Magnus Svensson's avatar
Magnus Svensson committed
2510 2511 2512 2513 2514 2515 2516 2517 2518 2519 2520 2521 2522 2523 2524 2525 2526 2527 2528 2529
sub default_mysqld {
  # Generate new config file from template
  my $config= My::ConfigFactory->new_config
    ( {
       basedir         => $basedir,
       template_path   => "include/default_my.cnf",
       vardir          => $opt_vardir,
       tmpdir          => $opt_tmpdir,
       baseport        => 0,
       user            => $opt_user,
       password        => '',
      }
    );

  my $mysqld= $config->group('mysqld.1')
    or mtr_error("Couldn't find mysqld.1 in default config");
  return $mysqld;
}


unknown's avatar
unknown committed
2530
sub mysql_install_db {
Magnus Svensson's avatar
Magnus Svensson committed
2531 2532 2533 2534 2535 2536
  my ($mysqld, $datadir)= @_;

  my $install_datadir= $datadir || $mysqld->value('datadir');
  my $install_basedir= $mysqld->value('basedir');
  my $install_lang= $mysqld->value('language');
  my $install_chsdir= $mysqld->value('character-sets-dir');
unknown's avatar
unknown committed
2537

unknown's avatar
unknown committed
2538
  mtr_report("Installing system database...");
unknown's avatar
unknown committed
2539

2540
  my $args;
unknown's avatar
unknown committed
2541 2542 2543
  mtr_init_args(\$args);
  mtr_add_arg($args, "--no-defaults");
  mtr_add_arg($args, "--bootstrap");
Magnus Svensson's avatar
Magnus Svensson committed
2544 2545
  mtr_add_arg($args, "--basedir=%s", $install_basedir);
  mtr_add_arg($args, "--datadir=%s", $install_datadir);
unknown's avatar
unknown committed
2546 2547
  mtr_add_arg($args, "--loose-skip-innodb");
  mtr_add_arg($args, "--loose-skip-ndbcluster");
2548
  mtr_add_arg($args, "--tmpdir=%s", "$opt_vardir/tmp/");
2549
  mtr_add_arg($args, "--core-file");
unknown's avatar
unknown committed
2550

2551 2552
  if ( $opt_debug )
  {
unknown's avatar
unknown committed
2553 2554
    mtr_add_arg($args, "--debug=d:t:i:A,%s/log/bootstrap.trace",
		$path_vardir_trace);
2555 2556
  }

Magnus Svensson's avatar
Magnus Svensson committed
2557 2558
  mtr_add_arg($args, "--language=%s", $install_lang);
  mtr_add_arg($args, "--character-sets-dir=%s", $install_chsdir);
unknown's avatar
unknown committed
2559

2560 2561 2562 2563 2564
  # If DISABLE_GRANT_OPTIONS is defined when the server is compiled (e.g.,
  # configure --disable-grant-options), mysqld will not recognize the
  # --bootstrap or --skip-grant-tables options.  The user can set
  # MYSQLD_BOOTSTRAP to the full path to a mysqld which does accept
  # --bootstrap, to accommodate this.
Magnus Svensson's avatar
Magnus Svensson committed
2565 2566
  my $exe_mysqld_bootstrap =
    $ENV{'MYSQLD_BOOTSTRAP'} || find_mysqld($install_basedir);
2567

2568 2569 2570 2571 2572
  # ----------------------------------------------------------------------
  # export MYSQLD_BOOTSTRAP_CMD variable containing <path>/mysqld <args>
  # ----------------------------------------------------------------------
  $ENV{'MYSQLD_BOOTSTRAP_CMD'}= "$exe_mysqld_bootstrap " . join(" ", @$args);

Magnus Svensson's avatar
Magnus Svensson committed
2573

2574

2575 2576 2577
  # ----------------------------------------------------------------------
  # Create the bootstrap.sql file
  # ----------------------------------------------------------------------
2578
  my $bootstrap_sql_file= "$opt_vardir/tmp/bootstrap.sql";
2579

Magnus Svensson's avatar
Magnus Svensson committed
2580
  my $path_sql= my_find_file($install_basedir,
2581 2582
			     ["mysql", "sql/share", "share/mysql",
			      "share", "scripts"],
Magnus Svensson's avatar
Magnus Svensson committed
2583 2584 2585 2586
			     "mysql_system_tables.sql",
			     NOT_REQUIRED);

  if (-f $path_sql )
2587
  {
Magnus Svensson's avatar
Magnus Svensson committed
2588
    my $sql_dir= dirname($path_sql);
2589 2590
    # Use the mysql database for system tables
    mtr_tofile($bootstrap_sql_file, "use mysql\n");
2591

2592 2593
    # Add the offical mysql system tables
    # for a production system
Magnus Svensson's avatar
Magnus Svensson committed
2594
    mtr_appendfile_to_file("$sql_dir/mysql_system_tables.sql",
2595
			   $bootstrap_sql_file);
2596

2597 2598
    # Add the mysql system tables initial data
    # for a production system
Magnus Svensson's avatar
Magnus Svensson committed
2599
    mtr_appendfile_to_file("$sql_dir/mysql_system_tables_data.sql",
2600
			   $bootstrap_sql_file);
2601

2602 2603 2604
    # Add test data for timezone - this is just a subset, on a real
    # system these tables will be populated either by mysql_tzinfo_to_sql
    # or by downloading the timezone table package from our website
Magnus Svensson's avatar
Magnus Svensson committed
2605 2606 2607 2608 2609 2610 2611
    mtr_appendfile_to_file("$sql_dir/mysql_test_data_timezone.sql",
			   $bootstrap_sql_file);

    # Fill help tables, just an empty file when running from bk repo
    # but will be replaced by a real fill_help_tables.sql when
    # building the source dist
    mtr_appendfile_to_file("$sql_dir/fill_help_tables.sql",
2612 2613 2614 2615 2616 2617 2618
			   $bootstrap_sql_file);

  }
  else
  {
    # Install db from init_db.sql that exist in early 5.1 and 5.0
    # versions of MySQL
Magnus Svensson's avatar
Magnus Svensson committed
2619
    my $init_file= "$install_basedir/mysql-test/lib/init_db.sql";
2620 2621 2622 2623 2624 2625 2626
    mtr_report(" - from '$init_file'");
    my $text= mtr_grab_file($init_file) or
      mtr_error("Can't open '$init_file': $!");

    mtr_tofile($bootstrap_sql_file,
	       sql_to_bootstrap($text));
  }
2627

2628
  # Remove anonymous users
2629
  mtr_tofile($bootstrap_sql_file,
unknown's avatar
unknown committed
2630 2631 2632 2633 2634
	     "DELETE FROM mysql.user where user= '';\n");

  # Create mtr database
  mtr_tofile($bootstrap_sql_file,
	     "CREATE DATABASE mtr;\n");
2635

2636 2637 2638 2639
  # Add help tables and data for warning detection and supression
  mtr_tofile($bootstrap_sql_file,
             sql_to_bootstrap(mtr_grab_file("include/mtr_warnings.sql")));

2640 2641 2642 2643
  # Add procedures for checking server is restored after testcase
  mtr_tofile($bootstrap_sql_file,
             sql_to_bootstrap(mtr_grab_file("include/mtr_check.sql")));

2644 2645 2646
  # Log bootstrap command
  my $path_bootstrap_log= "$opt_vardir/log/bootstrap.log";
  mtr_tofile($path_bootstrap_log,
2647
	     "$exe_mysqld_bootstrap " . join(" ", @$args) . "\n");
2648

unknown's avatar
unknown committed
2649
  # Create directories mysql and test
Magnus Svensson's avatar
Magnus Svensson committed
2650 2651
  mkpath("$install_datadir/mysql");
  mkpath("$install_datadir/test");
unknown's avatar
unknown committed
2652 2653 2654 2655 2656 2657 2658 2659 2660 2661

  if ( My::SafeProcess->run
       (
	name          => "bootstrap",
	path          => $exe_mysqld_bootstrap,
	args          => \$args,
	input         => $bootstrap_sql_file,
	output        => $path_bootstrap_log,
	error         => $path_bootstrap_log,
	append        => 1,
2662
	verbose       => $opt_verbose,
unknown's avatar
unknown committed
2663
       ) != 0)
unknown's avatar
unknown committed
2664
  {
unknown's avatar
unknown committed
2665
    mtr_error("Error executing mysqld --bootstrap\n" .
2666 2667
              "Could not install system database from $bootstrap_sql_file\n" .
	      "see $path_bootstrap_log for errors");
unknown's avatar
unknown committed
2668 2669 2670 2671
  }
}


2672 2673 2674
sub run_testcase_check_skip_test($)
{
  my ($tinfo)= @_;
2675

unknown's avatar
unknown committed
2676 2677 2678 2679 2680 2681 2682 2683 2684 2685
  # ----------------------------------------------------------------------
  # 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'} )
  {
    mtr_report_test_skipped($tinfo);
2686
    return 1;
unknown's avatar
unknown committed
2687 2688
  }

unknown's avatar
unknown committed
2689 2690 2691
  return 0;
}

2692

2693 2694
sub run_query {
  my ($tinfo, $mysqld, $query)= @_;
2695 2696 2697 2698 2699

  my $args;
  mtr_init_args(\$args);
  mtr_add_arg($args, "--defaults-file=%s", $path_config_file);
  mtr_add_arg($args, "--defaults-group-suffix=%s", $mysqld->after('mysqld'));
2700 2701 2702

  mtr_add_arg($args, "-e %s", $query);

2703 2704
  my $res= My::SafeProcess->run
    (
2705
     name          => "run_query -> ".$mysqld->name(),
2706 2707
     path          => $exe_mysql,
     args          => \$args,
2708 2709
     output        => '/dev/null',
     error         => '/dev/null'
unknown's avatar
unknown committed
2710 2711
    );

2712
  return $res
2713
}
unknown's avatar
unknown committed
2714

2715

2716 2717 2718 2719
sub do_before_run_mysqltest($)
{
  my $tinfo= shift;

2720
  # Remove old files produced by mysqltest
2721 2722 2723 2724 2725 2726 2727 2728
  my $base_file= mtr_match_extension($tinfo->{result_file},
				     "result"); # Trim extension
  if (defined $base_file ){
    unlink("$base_file.reject");
    unlink("$base_file.progress");
    unlink("$base_file.log");
    unlink("$base_file.warnings");
  }
2729

unknown's avatar
unknown committed
2730 2731 2732 2733 2734 2735 2736 2737
  if ( $mysql_version_id < 50000 ) {
    # Set environment variable NDB_STATUS_OK to 1
    # if script decided to run mysqltest cluster _is_ installed ok
    $ENV{'NDB_STATUS_OK'} = "1";
  } elsif ( $mysql_version_id < 50100 ) {
    # Set environment variable NDB_STATUS_OK to YES
    # if script decided to run mysqltest cluster _is_ installed ok
    $ENV{'NDB_STATUS_OK'} = "YES";
2738
  }
2739
}
unknown's avatar
unknown committed
2740

2741

2742 2743 2744 2745 2746 2747 2748 2749
#
# Check all server for sideffects
#
# RETURN VALUE
#  0 ok
#  1 Check failed
#  >1 Fatal errro

2750
sub check_testcase($$)
2751
{
unknown's avatar
unknown committed
2752
  my ($tinfo, $mode)= @_;
2753
  my $tname= $tinfo->{name};
2754

2755 2756 2757
  # Start the mysqltest processes in parallel to save time
  # also makes it possible to wait for any process to exit during the check
  my %started;
unknown's avatar
unknown committed
2758
  foreach my $mysqld ( mysqlds() )
2759
  {
unknown's avatar
unknown committed
2760 2761
    if ( defined $mysqld->{'proc'} )
    {
2762 2763 2764 2765 2766
      my $proc= start_check_testcase($tinfo, $mode, $mysqld);
      $started{$proc->pid()}= $proc;
    }
  }

2767 2768 2769
  # Return immediately if no check proceess was started
  return 0 unless ( keys %started );

2770 2771
  my $timeout_proc= My::SafeProcess->timer(check_timeout());

2772 2773 2774 2775 2776 2777
  while (1){
    my $result;
    my $proc= My::SafeProcess->wait_any();
    mtr_report("Got $proc");

    if ( delete $started{$proc->pid()} ) {
2778 2779 2780 2781

      my $err_file= $proc->user_data();
      my $base_file= mtr_match_extension($err_file, "err"); # Trim extension

2782 2783 2784 2785 2786 2787
      # One check testcase process returned
      my $res= $proc->exit_status();

      if ( $res == 0){
	# Check completed without problem

2788 2789 2790
	# Remove the .err file the check generated
	unlink($err_file);

2791 2792 2793 2794 2795
	# Remove the .result file the check generated
	if ( $mode eq 'after' ){
	  unlink("$base_file.result");
	}

2796 2797
	if ( keys(%started) == 0){
	  # All checks completed
2798 2799 2800

	  $timeout_proc->kill();

2801 2802 2803 2804 2805 2806
	  return 0;
	}
	# Wait for next process to exit
	next;
      }
      else
unknown's avatar
unknown committed
2807
      {
2808 2809 2810
	if ( $mode eq "after" and $res == 1 )
	{
	  # Test failed, grab the report mysqltest has created
2811
	  my $report= mtr_grab_file($err_file);
2812
	  $tinfo->{check}.=
2813 2814 2815 2816 2817 2818
	    "\nMTR's internal check of the test case '$tname' failed.
This means that the test case does not preserve the state that existed
before the test case was executed.  Most likely the test case did not
do a proper clean-up.
This is the diff of the states of the servers before and after the
test case was executed:\n";
2819 2820 2821 2822 2823 2824 2825 2826
	  $tinfo->{check}.= $report;

	  # Check failed, mark the test case with that info
	  $tinfo->{'check_testcase_failed'}= 1;
	  $result= 1;
	}
	elsif ( $res )
	{
2827
	  my $report= mtr_grab_file($err_file);
2828
	  $tinfo->{comment}.=
2829 2830
	    "Could not execute 'check-testcase' $mode ".
	      "testcase '$tname' (res: $res):\n";
2831 2832 2833 2834 2835
	  $tinfo->{comment}.= $report;

	  $result= 2;
	}

2836 2837 2838
	# Remove the .err file the check generated
	unlink($err_file);

2839 2840 2841
	# Remove the .result file the check generated
	unlink("$base_file.result");

unknown's avatar
unknown committed
2842 2843
      }
    }
2844 2845 2846 2847 2848 2849
    elsif ( $proc eq $timeout_proc ) {
      $tinfo->{comment}.= "Timeout $timeout_proc for ".
	"'check-testcase' expired after ".check_timeout().
	  " seconds";
      $result= 4;
    }
2850 2851 2852
    else {
      # Unknown process returned, most likley a crash, abort everything
      $tinfo->{comment}=
2853 2854
	"The server $proc crashed while running ".
	"'check testcase $mode test'";
2855 2856 2857 2858 2859 2860
      $result= 3;
    }

    # Kill any check processes still running
    map($_->kill(), values(%started));

2861 2862
    $timeout_proc->kill();

2863
    return $result;
2864
  }
2865 2866

  mtr_error("INTERNAL_ERROR: check_testcase");
unknown's avatar
unknown committed
2867
}
2868

2869

2870 2871 2872 2873 2874 2875 2876 2877 2878 2879 2880 2881 2882 2883 2884 2885 2886 2887 2888 2889 2890 2891 2892 2893 2894 2895 2896 2897 2898 2899 2900 2901 2902 2903 2904 2905 2906 2907 2908 2909 2910 2911 2912 2913 2914 2915 2916 2917 2918 2919 2920 2921 2922 2923 2924 2925 2926 2927 2928 2929 2930 2931 2932
# Start run mysqltest on one server
#
# RETURN VALUE
#  0 OK
#  1 Check failed
#
sub start_run_one ($$) {
  my ($mysqld, $run)= @_;

  my $name= "$run-".$mysqld->name();

  my $args;
  mtr_init_args(\$args);

  mtr_add_arg($args, "--defaults-file=%s", $path_config_file);
  mtr_add_arg($args, "--defaults-group-suffix=%s", $mysqld->after('mysqld'));

  mtr_add_arg($args, "--silent");
  mtr_add_arg($args, "--skip-safemalloc");
  mtr_add_arg($args, "--test-file=%s", "include/$run.test");

  my $errfile= "$opt_vardir/tmp/$name.err";
  my $proc= My::SafeProcess->new
    (
     name          => $name,
     path          => $exe_mysqltest,
     error         => $errfile,
     output        => $errfile,
     args          => \$args,
     user_data     => $errfile,
    );
  mtr_verbose("Started $proc");
  return $proc;
}


#
# Run script on all servers, collect results
#
# RETURN VALUE
#  0 ok
#  1 Failure

sub run_on_all($$)
{
  my ($tinfo, $run)= @_;

  # Start the mysqltest processes in parallel to save time
  # also makes it possible to wait for any process to exit during the check
  # and to have a timeout process
  my %started;
  foreach my $mysqld ( mysqlds() )
  {
    if ( defined $mysqld->{'proc'} )
    {
      my $proc= start_run_one($mysqld, $run);
      $started{$proc->pid()}= $proc;
    }
  }

  # Return immediately if no check proceess was started
  return 0 unless ( keys %started );

2933
  my $timeout_proc= My::SafeProcess->timer(check_timeout());
2934 2935 2936 2937 2938 2939 2940 2941 2942 2943 2944 2945 2946 2947 2948 2949 2950 2951 2952 2953 2954 2955 2956 2957 2958 2959 2960 2961 2962 2963

  while (1){
    my $result;
    my $proc= My::SafeProcess->wait_any();
    mtr_report("Got $proc");

    if ( delete $started{$proc->pid()} ) {

      # One mysqltest process returned
      my $err_file= $proc->user_data();
      my $res= $proc->exit_status();

      # Append the report from .err file
      $tinfo->{comment}.= " == $err_file ==\n";
      $tinfo->{comment}.= mtr_grab_file($err_file);
      $tinfo->{comment}.= "\n";

      # Remove the .err file
      unlink($err_file);

      if ( keys(%started) == 0){
	# All completed
	$timeout_proc->kill();
	return 0;
      }

      # Wait for next process to exit
      next;
    }
    elsif ( $proc eq $timeout_proc ) {
2964 2965 2966
      $tinfo->{comment}.= "Timeout $timeout_proc for '$run' ".
	"expired after ". check_timeout().
	  " seconds";
2967 2968 2969 2970
    }
    else {
      # Unknown process returned, most likley a crash, abort everything
      $tinfo->{comment}.=
2971
	"The server $proc crashed while running '$run'";
2972 2973 2974 2975 2976 2977 2978 2979 2980
    }

    # Kill any check processes still running
    map($_->kill(), values(%started));

    $timeout_proc->kill();

    return 1;
  }
2981
  mtr_error("INTERNAL_ERROR: run_on_all");
2982 2983 2984
}


unknown's avatar
unknown committed
2985 2986 2987 2988
sub mark_log {
  my ($log, $tinfo)= @_;
  my $log_msg= "CURRENT_TEST: $tinfo->{name}\n";
  mtr_tofile($log, $log_msg);
2989 2990
}

unknown's avatar
unknown committed
2991

2992 2993 2994 2995
sub find_testcase_skipped_reason($)
{
  my ($tinfo)= @_;

2996 2997 2998
  # Set default message
  $tinfo->{'comment'}= "Detected by testcase(no log file)";

2999 3000
  # Open the test log file
  my $F= IO::File->new($path_current_testlog)
3001
    or return;
3002 3003 3004 3005
  my $reason;

  while ( my $line= <$F> )
  {
unknown's avatar
unknown committed
3006
    # Look for "reason: <reason for skipping test>"
3007
    if ( $line =~ /reason: (.*)/ )
unknown's avatar
unknown committed
3008
    {
3009 3010 3011
      $reason= $1;
    }
  }
3012

3013 3014
  if ( ! $reason )
  {
3015
    mtr_warning("Could not find reason for skipping test in $path_current_testlog");
3016
    $reason= "Detected by testcase(reason unknown) ";
3017
  }
3018 3019 3020 3021
  $tinfo->{'comment'}= $reason;
}


3022 3023 3024 3025 3026 3027 3028 3029 3030 3031 3032 3033 3034 3035 3036 3037 3038 3039 3040 3041
sub find_analyze_request
{
  # Open the test log file
  my $F= IO::File->new($path_current_testlog)
    or return;
  my $analyze;

  while ( my $line= <$F> )
  {
    # Look for "reason: <reason for skipping test>"
    if ( $line =~ /analyze: (.*)/ )
    {
      $analyze= $1;
    }
  }

  return $analyze;
}


unknown's avatar
unknown committed
3042 3043 3044 3045 3046
# Return timezone value of tinfo or default value
sub timezone {
  my ($tinfo)= @_;
  return $tinfo->{timezone} || "GMT-3";
}
3047 3048


unknown's avatar
unknown committed
3049 3050
# Storage for changed environment variables
my %old_env;
3051

unknown's avatar
unknown committed
3052 3053 3054
#
# Run a single test case
#
unknown's avatar
unknown committed
3055 3056 3057 3058 3059
# RETURN VALUE
#  0 OK
#  > 0 failure
#

3060 3061 3062
sub run_testcase ($) {
  my $tinfo=  shift;

unknown's avatar
unknown committed
3063 3064
  mtr_verbose("Running test:", $tinfo->{name});

3065 3066 3067
  # -------------------------------------------------------
  # Init variables that can change between each test case
  # -------------------------------------------------------
unknown's avatar
unknown committed
3068 3069 3070
  my $timezone= timezone($tinfo);
  $ENV{'TZ'}= $timezone;
  mtr_verbose("Setting timezone: $timezone");
3071

unknown's avatar
unknown committed
3072
  if ( ! using_extern() )
3073
  {
unknown's avatar
unknown committed
3074 3075 3076
    my @restart= servers_need_restart($tinfo);
    if ( @restart != 0) {
      stop_servers($tinfo, @restart );
3077
    }
unknown's avatar
unknown committed
3078

unknown's avatar
unknown committed
3079 3080
    if ( started(all_servers()) == 0 )
    {
3081 3082 3083 3084

      # Remove old datadirs
      clean_datadir();

unknown's avatar
unknown committed
3085 3086 3087 3088 3089
      # Restore old ENV
      while (my ($option, $value)= each( %old_env )) {
	if (defined $value){
	  mtr_verbose("Restoring $option to $value");
	  $ENV{$option}= $value;
Sven Sandberg's avatar
Sven Sandberg committed
3090

unknown's avatar
unknown committed
3091 3092 3093 3094 3095 3096 3097 3098 3099 3100 3101 3102 3103 3104 3105 3106 3107
	} else {
	  mtr_verbose("Removing $option");
	  delete($ENV{$option});
	}
      }
      %old_env= ();

      mtr_verbose("Generating my.cnf from '$tinfo->{template_path}'");

      # Generate new config file from template
      $config= My::ConfigFactory->new_config
	( {
	   basedir         => $basedir,
	   template_path   => $tinfo->{template_path},
	   extra_template_path => $tinfo->{extra_template_path},
	   vardir          => $opt_vardir,
	   tmpdir          => $opt_tmpdir,
3108
	   baseport        => $baseport,
unknown's avatar
unknown committed
3109 3110 3111
	   #hosts          => [ 'host1', 'host2' ],
	   user            => $opt_user,
	   password        => '',
3112
	   ssl             => $opt_ssl_supported,
unknown's avatar
unknown committed
3113
	   embedded        => $opt_embedded_server,
unknown's avatar
unknown committed
3114 3115
	  }
	);
3116

unknown's avatar
unknown committed
3117 3118
      # Write the new my.cnf
      $config->save($path_config_file);
3119

unknown's avatar
unknown committed
3120 3121 3122 3123 3124 3125 3126 3127 3128 3129 3130 3131 3132 3133 3134 3135 3136 3137
      # Remember current config so a restart can occur when a test need
      # to use a different one
      $current_config_name= $tinfo->{template_path};

      #
      # Set variables in the ENV section
      #
      foreach my $option ($config->options_in_group("ENV"))
      {
	# Save old value to restore it before next time
	$old_env{$option->name()}= $ENV{$option->name()};

	mtr_verbose($option->name(), "=",$option->value());
	$ENV{$option->name()}= $option->value();
      }
    }

    # Write start of testcase to log
3138
    mark_log($path_current_testlog, $tinfo);
unknown's avatar
unknown committed
3139 3140

    if (start_servers($tinfo))
unknown's avatar
unknown committed
3141
    {
3142 3143
      report_failure_and_restart($tinfo);
      return 1;
unknown's avatar
unknown committed
3144
    }
3145
  }
unknown's avatar
unknown committed
3146

unknown's avatar
unknown committed
3147 3148
  # --------------------------------------------------------------------
  # If --start or --start-dirty given, stop here to let user manually
3149
  # run tests
unknown's avatar
unknown committed
3150
  # ----------------------------------------------------------------------
unknown's avatar
unknown committed
3151
  if ( $opt_start or $opt_start_dirty )
unknown's avatar
unknown committed
3152
  {
unknown's avatar
unknown committed
3153 3154
    mtr_print("\nStarted", started(all_servers()));
    mtr_print("Waiting for server(s) to exit...");
3155 3156 3157
    my $proc= My::SafeProcess->wait_any();
    if ( grep($proc eq $_, started(all_servers())) )
    {
unknown's avatar
unknown committed
3158
      mtr_print("Server $proc died");
3159 3160
      exit(1);
    }
unknown's avatar
unknown committed
3161
    mtr_print("Unknown process $proc died");
3162
    exit(1);
unknown's avatar
unknown committed
3163 3164
  }

3165
  my $test_timeout_proc= My::SafeProcess->timer(testcase_timeout());
unknown's avatar
unknown committed
3166 3167 3168

  do_before_run_mysqltest($tinfo);

3169 3170 3171
  if ( $opt_check_testcases and check_testcase($tinfo, "before") ){
    # Failed to record state of server or server crashed
    report_failure_and_restart($tinfo);
3172 3173 3174 3175

    # Stop the test case timer
    $test_timeout_proc->kill();

3176
    return 1;
unknown's avatar
unknown committed
3177
  }
3178

unknown's avatar
unknown committed
3179
  my $test= start_mysqltest($tinfo);
3180

unknown's avatar
unknown committed
3181 3182 3183 3184
  while (1)
  {
    my $proc= My::SafeProcess->wait_any();
    unless ( defined $proc )
unknown's avatar
unknown committed
3185
    {
unknown's avatar
unknown committed
3186
      mtr_error("wait_any failed");
unknown's avatar
unknown committed
3187
    }
unknown's avatar
unknown committed
3188 3189 3190 3191 3192 3193
    mtr_verbose("Got $proc");

    # ----------------------------------------------------
    # Was it the test program that exited
    # ----------------------------------------------------
    if ($proc eq $test)
unknown's avatar
unknown committed
3194
    {
3195 3196 3197
      # Stop the test case timer
      $test_timeout_proc->kill();

unknown's avatar
unknown committed
3198 3199
      my $res= $test->exit_status();

3200
      if ($res == 0 and $opt_warnings and check_warnings($tinfo) )
unknown's avatar
unknown committed
3201
      {
3202 3203 3204 3205
	# Test case suceeded, but it has produced unexpected
	# warnings, continue in $res == 1
	$res= 1;
      }
unknown's avatar
unknown committed
3206

3207 3208
      if ( $res == 0 )
      {
3209 3210 3211
	my $check_res;
	if ( $opt_check_testcases and
	     $check_res= check_testcase($tinfo, "after"))
unknown's avatar
unknown committed
3212
	{
3213 3214 3215 3216 3217 3218 3219 3220 3221 3222
	  if ($check_res == 1) {
	    # Test case had sideeffects, not fatal error, just continue
	    stop_all_servers();
	    mtr_report("Resuming tests...\n");
	  }
	  else {
	    # Test case check failed fatally, probably a server crashed
	    report_failure_and_restart($tinfo);
	    return 1;
	  }
unknown's avatar
unknown committed
3223
	}
3224
	mtr_report_test_passed($tinfo);
unknown's avatar
unknown committed
3225 3226 3227 3228 3229
      }
      elsif ( $res == 62 )
      {
	# Testcase itself tell us to skip this one
	$tinfo->{skip_detected_by_test}= 1;
3230
	# Try to get reason from test log file
unknown's avatar
unknown committed
3231 3232 3233 3234 3235 3236 3237 3238 3239 3240 3241 3242
	find_testcase_skipped_reason($tinfo);
	mtr_report_test_skipped($tinfo);
      }
      elsif ( $res == 65 )
      {
	# Testprogram killed by signal
	$tinfo->{comment}=
	  "testprogram crashed(returned code $res)";
	report_failure_and_restart($tinfo);
      }
      elsif ( $res == 1 )
      {
3243 3244 3245 3246 3247 3248 3249
	# Check if the test tool requests that
	# an analyze script should be run
	my $analyze= find_analyze_request();
	if ($analyze){
	  run_on_all($tinfo, "analyze-$analyze");
	}

unknown's avatar
unknown committed
3250 3251 3252 3253 3254 3255 3256 3257 3258 3259 3260 3261
	# Test case failure reported by mysqltest
	report_failure_and_restart($tinfo);
      }
      else
      {
	# mysqltest failed, probably crashed
	$tinfo->{comment}=
	  "mysqltest failed with unexpected return code $res";
	report_failure_and_restart($tinfo);
      }

      # Save info from this testcase run to mysqltest.log
3262 3263 3264 3265 3266
      if( -f $path_current_testlog)
      {
	mtr_appendfile_to_file($path_current_testlog, $path_testlog);
	unlink($path_current_testlog);
      }
unknown's avatar
unknown committed
3267

unknown's avatar
unknown committed
3268
      return ($res == 62) ? 0 : $res;
3269

unknown's avatar
unknown committed
3270
    }
unknown's avatar
unknown committed
3271 3272 3273 3274 3275

    # ----------------------------------------------------
    # Check if it was an expected crash
    # ----------------------------------------------------
    if ( check_expected_crash_and_restart($proc) )
3276
    {
unknown's avatar
unknown committed
3277
      next;
3278
    }
unknown's avatar
unknown committed
3279

3280 3281 3282 3283 3284
    # ----------------------------------------------------
    # Stop the test case timer
    # ----------------------------------------------------
    $test_timeout_proc->kill();

unknown's avatar
unknown committed
3285 3286 3287 3288 3289 3290 3291 3292 3293
    # ----------------------------------------------------
    # It's not mysqltest that has exited, kill it
    # ----------------------------------------------------
    $test->kill();

    # ----------------------------------------------------
    # Check if it was a server that died
    # ----------------------------------------------------
    if ( grep($proc eq $_, started(all_servers())) )
unknown's avatar
unknown committed
3294
    {
unknown's avatar
unknown committed
3295 3296
      # Server failed, probably crashed
      $tinfo->{comment}=
3297
	"Server $proc failed during test run";
unknown's avatar
unknown committed
3298

unknown's avatar
unknown committed
3299
      report_failure_and_restart($tinfo);
unknown's avatar
unknown committed
3300
      return 1;
unknown's avatar
unknown committed
3301
    }
unknown's avatar
unknown committed
3302 3303 3304 3305 3306

    # ----------------------------------------------------
    # Check if testcase timer expired
    # ----------------------------------------------------
    if ( $proc eq $test_timeout_proc )
unknown's avatar
unknown committed
3307
    {
Serge Kozlov's avatar
Serge Kozlov committed
3308
      my $log_file_name= $opt_vardir."/log/".$tinfo->{shortname}.".log";
3309
      $tinfo->{comment}=
3310 3311
        "Test case timeout after ".testcase_timeout().
	  " seconds\n\n";
3312
      # Add 20 last executed commands from test case log file
Serge Kozlov's avatar
Serge Kozlov committed
3313 3314 3315
      if  (-e $log_file_name)
      {
        $tinfo->{comment}.=
3316 3317
	   "== $log_file_name == \n".
	     mtr_lastlinesfromfile($log_file_name, 20)."\n";
Serge Kozlov's avatar
Serge Kozlov committed
3318
      }
3319
      $tinfo->{'timeout'}= testcase_timeout(); # Mark as timeout
3320
      run_on_all($tinfo, 'analyze-timeout');
unknown's avatar
unknown committed
3321
      report_failure_and_restart($tinfo);
unknown's avatar
unknown committed
3322
      return 1;
unknown's avatar
unknown committed
3323
    }
3324

unknown's avatar
unknown committed
3325
    mtr_error("Unhandled process $proc exited");
3326
  }
unknown's avatar
unknown committed
3327
  mtr_error("Should never come here");
unknown's avatar
unknown committed
3328
}
unknown's avatar
unknown committed
3329

3330

3331 3332 3333 3334 3335 3336
# Run include/check-warnings.test
#
# RETURN VALUE
#  0 OK
#  1 Check failed
#
3337
sub start_check_warnings ($$) {
3338 3339 3340 3341 3342 3343 3344 3345 3346 3347 3348 3349 3350 3351 3352
  my $tinfo=    shift;
  my $mysqld=   shift;

  my $name= "warnings-".$mysqld->name();

  my $args;
  mtr_init_args(\$args);

  mtr_add_arg($args, "--defaults-file=%s", $path_config_file);
  mtr_add_arg($args, "--defaults-group-suffix=%s", $mysqld->after('mysqld'));

  mtr_add_arg($args, "--silent");
  mtr_add_arg($args, "--skip-safemalloc");
  mtr_add_arg($args, "--test-file=%s", "include/check-warnings.test");

3353 3354 3355 3356 3357 3358 3359 3360 3361 3362 3363 3364 3365 3366 3367 3368 3369
  if ( $opt_embedded_server )
  {

    # Get the args needed for the embedded server
    # and append them to args prefixed
    # with --sever-arg=

    my $mysqld=  $config->group('embedded')
      or mtr_error("Could not get [embedded] section");

    my $mysqld_args;
    mtr_init_args(\$mysqld_args);
    my $extra_opts= get_extra_opts($mysqld, $tinfo);
    mysqld_arguments($mysqld_args, $mysqld, $extra_opts);
    mtr_add_arg($args, "--server-arg=%s", $_) for @$mysqld_args;
  }

3370
  my $errfile= "$opt_vardir/tmp/$name.err";
3371
  my $proc= My::SafeProcess->new
3372 3373 3374 3375 3376 3377
    (
     name          => $name,
     path          => $exe_mysqltest,
     error         => $errfile,
     output        => $errfile,
     args          => \$args,
3378
     user_data     => $errfile,
3379
    );
3380 3381
  mtr_verbose("Started $proc");
  return $proc;
3382 3383 3384 3385 3386 3387 3388 3389 3390 3391 3392
}


#
# Loop through our list of processes and check the error log
# for unexepcted errors and warnings
#
sub check_warnings ($) {
  my ($tinfo)= @_;
  my $res= 0;

3393 3394
  my $tname= $tinfo->{name};

3395
  # Clear previous warnings
3396
  delete($tinfo->{warnings});
3397

3398 3399 3400
  # Start the mysqltest processes in parallel to save time
  # also makes it possible to wait for any process to exit during the check
  my %started;
3401 3402
  foreach my $mysqld ( mysqlds() )
  {
3403 3404 3405 3406 3407 3408 3409
    if ( defined $mysqld->{'proc'} )
    {
      my $proc= start_check_warnings($tinfo, $mysqld);
      $started{$proc->pid()}= $proc;
    }
  }

3410 3411 3412
  # Return immediately if no check proceess was started
  return 0 unless ( keys %started );

3413 3414
  my $timeout_proc= My::SafeProcess->timer(check_timeout());

3415 3416 3417 3418 3419 3420 3421 3422
  while (1){
    my $result= 0;
    my $proc= My::SafeProcess->wait_any();
    mtr_report("Got $proc");

    if ( delete $started{$proc->pid()} ) {
      # One check warning process returned
      my $res= $proc->exit_status();
3423
      my $err_file= $proc->user_data();
3424 3425 3426 3427 3428

      if ( $res == 0 or $res == 62 ){

	if ( $res == 0 ) {
	  # Check completed with problem
3429
	  my $report= mtr_grab_file($err_file);
3430 3431 3432 3433 3434 3435 3436 3437 3438 3439 3440 3441
	  # Log to var/log/warnings file
	  mtr_tofile("$opt_vardir/log/warnings",
		     $tname."\n".$report);

	  $tinfo->{'warnings'}.= $report;
	  $result= 1;
	}

	if ( $res == 62 ) {
	  # Test case was ok and called "skip"
	  ;
	}
3442 3443
	# Remove the .err file the check generated
	unlink($err_file);
3444 3445 3446

	if ( keys(%started) == 0){
	  # All checks completed
3447 3448 3449

	  $timeout_proc->kill();

3450 3451 3452 3453 3454 3455 3456
	  return $result;
	}
	# Wait for next process to exit
	next;
      }
      else
      {
3457
	my $report= mtr_grab_file($err_file);
3458
	$tinfo->{comment}.=
3459 3460
	  "Could not execute 'check-warnings' for ".
	    "testcase '$tname' (res: $res):\n";
3461 3462 3463 3464
	$tinfo->{comment}.= $report;

	$result= 2;
      }
3465 3466
      # Remove the .err file the check generated
      unlink($err_file);
3467
    }
3468 3469 3470 3471 3472 3473
    elsif ( $proc eq $timeout_proc ) {
      $tinfo->{comment}.= "Timeout $timeout_proc for ".
	"'check warnings' expired after ".check_timeout().
	  " seconds";
      $result= 4;
    }
3474 3475 3476
    else {
      # Unknown process returned, most likley a crash, abort everything
      $tinfo->{comment}=
3477
	"The server $proc crashed while running 'check warnings'";
3478
      $result= 3;
3479
    }
3480 3481 3482 3483

    # Kill any check processes still running
    map($_->kill(), values(%started));

3484 3485
    $timeout_proc->kill();

3486
    return $result;
3487
  }
3488

3489
  mtr_error("INTERNAL_ERROR: check_warnings");
3490 3491 3492
}


3493
#
unknown's avatar
unknown committed
3494 3495 3496
# Loop through our list of processes and look for and entry
# with the provided pid, if found check for the file indicating
# expected crash and restart it.
3497
#
unknown's avatar
unknown committed
3498 3499
sub check_expected_crash_and_restart {
  my ($proc)= @_;
3500

unknown's avatar
unknown committed
3501
  foreach my $mysqld ( mysqlds() )
3502
  {
unknown's avatar
unknown committed
3503 3504 3505 3506 3507 3508 3509
    next unless ( $mysqld->{proc} eq $proc );

    # Check if crash expected by looking at the .expect file
    # in var/tmp
    my $expect_file= "$opt_vardir/tmp/".$mysqld->name().".expect";
    if ( -f $expect_file )
    {
3510 3511 3512 3513 3514 3515 3516 3517
      mtr_verbose("Crash was expected, file '$expect_file' exists");

      while (1){

	# If last line in expect file starts with "wait"
	# sleep a little and try again, thus allowing the
	# test script to control when the server should start
	# up again
Serge Kozlov's avatar
Serge Kozlov committed
3518
	my $last_line= mtr_lastlinesfromfile($expect_file, 1);
3519 3520 3521 3522 3523 3524 3525 3526 3527 3528 3529 3530 3531 3532
	if ($last_line =~ /^wait/ )
	{
	  mtr_verbose("Test says wait before restart");
	  mtr_milli_sleep(100);
	  next;
	}

	unlink($expect_file);

	# Start server with same settings as last time
	mysqld_start($mysqld, $mysqld->{'started_opts'});

	last;
      }
unknown's avatar
unknown committed
3533 3534 3535
    }

    return 1;
3536
  }
unknown's avatar
unknown committed
3537 3538 3539

  # Not an expected crash
  return 0;
3540 3541
}

3542

3543 3544 3545
# Remove all files and subdirectories of a directory
sub clean_dir {
  my ($dir)= @_;
unknown's avatar
unknown committed
3546
  mtr_verbose("clean_dir: $dir");
3547 3548 3549 3550 3551 3552 3553 3554 3555
  finddepth(
	  { no_chdir => 1,
	    wanted => sub {
	      if (-d $_){
		# A dir
		if ($_ eq $dir){
		  # The dir to clean
		  return;
		} else {
unknown's avatar
unknown committed
3556
		  mtr_verbose("rmdir: '$_'");
unknown's avatar
unknown committed
3557
		  rmdir($_) or mtr_warning("rmdir($_) failed: $!");
3558 3559 3560
		}
	      } else {
		# Hopefully a file
unknown's avatar
unknown committed
3561
		mtr_verbose("unlink: '$_'");
unknown's avatar
unknown committed
3562
		unlink($_) or mtr_warning("unlink($_) failed: $!");
3563 3564 3565 3566 3567 3568 3569
	      }
	    }
	  },
	    $dir);
}


3570 3571 3572 3573
sub clean_datadir {

  mtr_verbose("Cleaning datadirs...");

unknown's avatar
unknown committed
3574 3575 3576 3577
  if (started(all_servers()) != 0){
    mtr_error("Trying to clean datadir before all servers stopped");
  }

3578 3579 3580 3581 3582 3583 3584 3585 3586 3587 3588 3589 3590 3591 3592 3593 3594 3595
  foreach my $cluster ( clusters() )
  {
    my $cluster_dir= "$opt_vardir/".$cluster->{name};
    mtr_verbose(" - removing '$cluster_dir'");
    rmtree($cluster_dir);

  }

  foreach my $mysqld ( mysqlds() )
  {
    my $mysqld_dir= dirname($mysqld->value('datadir'));
    if (-d $mysqld_dir ) {
      mtr_verbose(" - removing '$mysqld_dir'");
      rmtree($mysqld_dir);
    }
  }

  # Remove all files in tmp and var/tmp
3596
  clean_dir("$opt_vardir/tmp");
3597
  if ($opt_tmpdir ne "$opt_vardir/tmp"){
3598
    clean_dir($opt_tmpdir);
3599 3600 3601 3602 3603 3604 3605 3606 3607
  }
}


#
# Save datadir before it's removed
#
sub save_datadir_after_failure($$) {
  my ($dir, $savedir)= @_;
unknown's avatar
unknown committed
3608

3609 3610 3611
  mtr_report(" - saving '$dir'");
  my $dir_name= basename($dir);
  rename("$dir", "$savedir/$dir_name");
3612
}
3613

3614 3615 3616 3617 3618 3619 3620 3621 3622

sub after_failure ($) {
  my ($tinfo)= @_;

  mtr_report("Saving datadirs...");

  my $save_dir= "$opt_vardir/log/";
  $save_dir.= $tinfo->{name};
  # Add combination name if any
unknown's avatar
unknown committed
3623
  $save_dir.= "-$tinfo->{combination}"
3624 3625
    if defined $tinfo->{combination};

3626 3627 3628
  # Save savedir  path for server
  $tinfo->{savedir}= $save_dir;

3629 3630 3631 3632 3633
  mkpath($save_dir) if ! -d $save_dir;

  # Save the used my.cnf file
  copy($path_config_file, $save_dir);

3634 3635 3636
  # Copy the tmp dir
  copytree("$opt_vardir/tmp/", "$save_dir/tmp/");

3637 3638 3639 3640
  if ( clusters() ) {
    foreach my $cluster ( clusters() ) {
      my $cluster_dir= "$opt_vardir/".$cluster->{name};
      save_datadir_after_failure($cluster_dir, $save_dir);
3641 3642
    }
  }
3643 3644 3645 3646 3647
  else {
    foreach my $mysqld ( mysqlds() ) {
      my $data_dir= $mysqld->value('datadir');
      save_datadir_after_failure(dirname($data_dir), $save_dir);
    }
3648
  }
3649 3650
}

unknown's avatar
unknown committed
3651

unknown's avatar
unknown committed
3652 3653 3654
sub report_failure_and_restart ($) {
  my $tinfo= shift;

3655
  stop_all_servers();
3656

3657 3658 3659 3660 3661 3662 3663 3664 3665 3666 3667 3668 3669
  $tinfo->{'result'}= 'MTR_RES_FAILED';

  my $test_failures= $tinfo->{'failures'} || 0;
  $tinfo->{'failures'}=  $test_failures + 1;


  if ( $tinfo->{comment} )
  {
    # The test failure has been detected by mysql-test-run.pl
    # when starting the servers or due to other error, the reason for
    # failing the test is saved in "comment"
    ;
  }
3670 3671

  if ( !defined $tinfo->{logfile} )
3672
  {
3673
    my $logfile= $path_current_testlog;
3674
    if ( defined $logfile )
3675
    {
3676 3677 3678 3679 3680 3681 3682 3683 3684 3685 3686 3687 3688
      if ( -f $logfile )
      {
	# Test failure was detected by test tool and its report
	# about what failed has been saved to file. Save the report
	# in tinfo
	$tinfo->{logfile}= mtr_fromfile($logfile);
      }
      else
      {
	# The test tool report didn't exist, display an
	# error message
	$tinfo->{logfile}= "Could not open test tool report '$logfile'";
      }
3689
    }
unknown's avatar
unknown committed
3690
  }
3691

3692
  after_failure($tinfo);
3693

3694 3695
  mtr_report_test($tinfo);

unknown's avatar
unknown committed
3696 3697 3698
}


unknown's avatar
unknown committed
3699 3700
sub run_sh_script {
  my ($script)= @_;
unknown's avatar
unknown committed
3701

unknown's avatar
unknown committed
3702
  return 0 unless defined $script;
3703

unknown's avatar
unknown committed
3704 3705 3706
  mtr_verbose("Running '$script'");
  my $ret= system("/bin/sh $script") >> 8;
  return $ret;
unknown's avatar
unknown committed
3707 3708
}

unknown's avatar
unknown committed
3709

unknown's avatar
unknown committed
3710 3711
sub mysqld_stop {
  my $mysqld= shift or die "usage: mysqld_stop(<mysqld>)";
unknown's avatar
unknown committed
3712

unknown's avatar
unknown committed
3713 3714
  my $args;
  mtr_init_args(\$args);
3715

unknown's avatar
unknown committed
3716 3717 3718 3719 3720 3721 3722
  mtr_add_arg($args, "--no-defaults");
  mtr_add_arg($args, "--user=%s", $opt_user);
  mtr_add_arg($args, "--password=");
  mtr_add_arg($args, "--port=%d", $mysqld->value('port'));
  mtr_add_arg($args, "--host=%s", $mysqld->value('#host'));
  mtr_add_arg($args, "--connect_timeout=20");
  mtr_add_arg($args, "--protocol=tcp");
unknown's avatar
unknown committed
3723

unknown's avatar
unknown committed
3724
  mtr_add_arg($args, "shutdown");
3725

unknown's avatar
unknown committed
3726 3727 3728 3729 3730 3731
  My::SafeProcess->run
    (
     name          => "mysqladmin shutdown ".$mysqld->name(),
     path          => $exe_mysqladmin,
     args          => \$args,
     error         => "/dev/null",
unknown's avatar
unknown committed
3732

unknown's avatar
unknown committed
3733
    );
unknown's avatar
unknown committed
3734 3735
}

unknown's avatar
unknown committed
3736

unknown's avatar
unknown committed
3737
sub mysqld_arguments ($$$) {
unknown's avatar
unknown committed
3738
  my $args=              shift;
3739
  my $mysqld=            shift;
3740
  my $extra_opts=        shift;
unknown's avatar
unknown committed
3741

unknown's avatar
unknown committed
3742
  mtr_add_arg($args, "--defaults-file=%s",  $path_config_file);
3743

unknown's avatar
unknown committed
3744
  # When mysqld is run by a root user(euid is 0), it will fail
unknown's avatar
unknown committed
3745 3746
  # to start unless we specify what user to run as, see BUG#30630
  my $euid= $>;
unknown's avatar
unknown committed
3747
  if (!IS_WINDOWS and $euid == 0 and
3748
      (grep(/^--user/, @$extra_opts)) == 0) {
unknown's avatar
unknown committed
3749
    mtr_add_arg($args, "--user=root");
unknown's avatar
unknown committed
3750 3751
  }

unknown's avatar
unknown committed
3752
  if ( $opt_valgrind_mysqld )
unknown's avatar
unknown committed
3753
  {
unknown's avatar
unknown committed
3754
    mtr_add_arg($args, "--skip-safemalloc");
3755 3756 3757

    if ( $mysql_version_id < 50100 )
    {
unknown's avatar
unknown committed
3758
      mtr_add_arg($args, "--skip-bdb");
3759
    }
unknown's avatar
unknown committed
3760 3761
  }

3762 3763
  if ( $mysql_version_id >= 50106 )
  {
unknown's avatar
unknown committed
3764
    # Turn on logging to both tables and file
unknown's avatar
unknown committed
3765
    mtr_add_arg($args, "--log-output=table,file");
3766 3767
  }

3768
  # Check if "extra_opt" contains skip-log-bin
3769
  my $skip_binlog= grep(/^(--|--loose-)skip-log-bin/, @$extra_opts);
unknown's avatar
unknown committed
3770

unknown's avatar
unknown committed
3771
  # Indicate to mysqld it will be debugged in debugger
unknown's avatar
unknown committed
3772
  if ( $glob_debugger )
unknown's avatar
unknown committed
3773
  {
unknown's avatar
unknown committed
3774
    mtr_add_arg($args, "--gdb");
unknown's avatar
unknown committed
3775 3776
  }

unknown's avatar
unknown committed
3777
  my $found_skip_core= 0;
3778
  foreach my $arg ( @$extra_opts )
unknown's avatar
unknown committed
3779
  {
3780
    # Allow --skip-core-file to be set in <testname>-[master|slave].opt file
unknown's avatar
unknown committed
3781 3782 3783 3784
    if ($arg eq "--skip-core-file")
    {
      $found_skip_core= 1;
    }
3785 3786 3787 3788
    elsif ($skip_binlog and mtr_match_prefix($arg, "--binlog-format"))
    {
      ; # Dont add --binlog-format when running without binlog
    }
3789 3790 3791 3792 3793
    elsif ($arg eq "--loose-skip-log-bin" and
           $mysqld->option("log-slave-updates"))
    {
      ; # Dont add --skip-log-bin when mysqld have --log-slave-updates in config
    }
unknown's avatar
unknown committed
3794 3795
    else
    {
unknown's avatar
unknown committed
3796
      mtr_add_arg($args, "%s", $arg);
unknown's avatar
unknown committed
3797 3798 3799 3800
    }
  }
  if ( !$found_skip_core )
  {
unknown's avatar
unknown committed
3801
    mtr_add_arg($args, "%s", "--core-file");
unknown's avatar
unknown committed
3802 3803 3804 3805 3806 3807
  }

  return $args;
}


3808

unknown's avatar
unknown committed
3809
sub mysqld_start ($$) {
unknown's avatar
unknown committed
3810
  my $mysqld=            shift;
3811 3812 3813
  my $extra_opts=        shift;

  mtr_verbose(My::Options::toStr("mysqld_start", @$extra_opts));
unknown's avatar
unknown committed
3814

3815
  my $exe= find_mysqld($mysqld->value('basedir'));
unknown's avatar
unknown committed
3816 3817
  my $wait_for_pid_file= 1;

3818
  mtr_error("Internal error: mysqld should never be started for embedded")
unknown's avatar
unknown committed
3819
    if $opt_embedded_server;
unknown's avatar
unknown committed
3820

unknown's avatar
unknown committed
3821
  my $args;
unknown's avatar
unknown committed
3822 3823
  mtr_init_args(\$args);

unknown's avatar
unknown committed
3824
  if ( $opt_valgrind_mysqld )
unknown's avatar
unknown committed
3825
  {
unknown's avatar
unknown committed
3826
    valgrind_arguments($args, \$exe);
unknown's avatar
unknown committed
3827 3828
  }

unknown's avatar
unknown committed
3829
  mtr_add_arg($args, "--defaults-group-suffix=%s", $mysqld->after('mysqld'));
3830
  mysqld_arguments($args,$mysqld,$extra_opts);
unknown's avatar
unknown committed
3831

unknown's avatar
unknown committed
3832 3833 3834 3835 3836 3837
  if ( $opt_debug )
  {
    mtr_add_arg($args, "--debug=d:t:i:A,%s/log/%s.trace",
		$path_vardir_trace, $mysqld->name());
  }

unknown's avatar
unknown committed
3838
  if ( $opt_gdb || $opt_manual_gdb )
unknown's avatar
unknown committed
3839
  {
unknown's avatar
unknown committed
3840
    gdb_arguments(\$args, \$exe, $mysqld->name());
unknown's avatar
unknown committed
3841 3842 3843
  }
  elsif ( $opt_ddd || $opt_manual_ddd )
  {
unknown's avatar
unknown committed
3844
    ddd_arguments(\$args, \$exe, $mysqld->name());
unknown's avatar
unknown committed
3845
  }
3846 3847
  elsif ( $opt_debugger )
  {
unknown's avatar
unknown committed
3848
    debugger_arguments(\$args, \$exe, $mysqld->name());
unknown's avatar
unknown committed
3849
  }
3850 3851
  elsif ( $opt_manual_debug )
  {
3852
     print "\nStart " .$mysqld->name()." in your debugger\n" .
3853 3854 3855 3856 3857 3858 3859 3860
           "dir: $glob_mysql_test_dir\n" .
           "exe: $exe\n" .
	   "args:  " . join(" ", @$args)  . "\n\n" .
	   "Waiting ....\n";

     # Indicate the exe should not be started
    $exe= undef;
  }
unknown's avatar
unknown committed
3861 3862 3863 3864 3865
  else
  {
    # Default to not wait until pid file has been created
    $wait_for_pid_file= 0;
  }
unknown's avatar
unknown committed
3866

unknown's avatar
unknown committed
3867 3868
  # Remove the old pidfile if any
  unlink($mysqld->value('pid-file'));
3869

unknown's avatar
unknown committed
3870 3871
  my $output= $mysqld->value('log-error');
  if ( $opt_valgrind and $opt_debug )
unknown's avatar
unknown committed
3872
  {
unknown's avatar
unknown committed
3873 3874 3875 3876
    # When both --valgrind and --debug is selected, send
    # all output to the trace file, making it possible to
    # see the exact location where valgrind complains
    $output= "$opt_vardir/log/".$mysqld->name().".trace";
unknown's avatar
unknown committed
3877 3878
  }

unknown's avatar
unknown committed
3879
  if ( defined $exe )
unknown's avatar
unknown committed
3880
  {
unknown's avatar
unknown committed
3881 3882 3883 3884 3885 3886 3887 3888 3889 3890 3891 3892 3893
    $mysqld->{'proc'}= My::SafeProcess->new
      (
       name          => $mysqld->name(),
       path          => $exe,
       args          => \$args,
       output        => $output,
       error         => $output,
       append        => 1,
       verbose       => $opt_verbose,
       host          => undef,
       shutdown      => sub { mysqld_stop($mysqld) },
      );
    mtr_verbose("Started $mysqld->{proc}");
unknown's avatar
unknown committed
3894 3895
  }

unknown's avatar
unknown committed
3896 3897 3898 3899 3900 3901 3902
  if ( $wait_for_pid_file &&
       !sleep_until_file_created($mysqld->value('pid-file'),
				 $opt_start_timeout,
				 $mysqld->{'proc'}))
  {
    mtr_error("Failed to start mysqld $mysqld->name()");
  }
3903 3904

  # Remember options used when starting
3905
  $mysqld->{'started_opts'}= $extra_opts;
3906

unknown's avatar
unknown committed
3907
  return;
unknown's avatar
unknown committed
3908 3909
}

unknown's avatar
unknown committed
3910

unknown's avatar
unknown committed
3911
sub stop_all_servers () {
unknown's avatar
unknown committed
3912

unknown's avatar
unknown committed
3913
  mtr_verbose("Stopping all servers...");
unknown's avatar
unknown committed
3914

unknown's avatar
unknown committed
3915 3916 3917
  # Kill all started servers
  My::SafeProcess::shutdown(0, # shutdown timeout 0 => kill
			    started(all_servers()));
unknown's avatar
unknown committed
3918

unknown's avatar
unknown committed
3919 3920 3921 3922 3923 3924 3925
  # Remove pidfiles
  foreach my $server ( all_servers() )
  {
    my $pid_file= $server->if_exist('pid-file');
    unlink($pid_file) if defined $pid_file;
  }

unknown's avatar
unknown committed
3926 3927
  # Mark servers as stopped
  map($_->{proc}= undef, all_servers());
unknown's avatar
unknown committed
3928

unknown's avatar
unknown committed
3929 3930
}

unknown's avatar
unknown committed
3931

unknown's avatar
unknown committed
3932 3933 3934
# Find out if server should be restarted for this test
sub server_need_restart {
  my ($tinfo, $server)= @_;
unknown's avatar
unknown committed
3935

unknown's avatar
unknown committed
3936
  if ( using_extern() )
unknown's avatar
unknown committed
3937
  {
unknown's avatar
unknown committed
3938
    mtr_verbose_restart($server, "no restart for --extern server");
unknown's avatar
unknown committed
3939
    return 0;
3940
  }
unknown's avatar
unknown committed
3941 3942

  if ( $opt_embedded_server )
3943
  {
unknown's avatar
unknown committed
3944
    mtr_verbose_restart($server, "no start or restart for embedded server");
unknown's avatar
unknown committed
3945
    return 0;
unknown's avatar
unknown committed
3946
  }
unknown's avatar
unknown committed
3947 3948

  if ( $tinfo->{'force_restart'} ) {
unknown's avatar
unknown committed
3949
    mtr_verbose_restart($server, "forced in .opt file");
unknown's avatar
unknown committed
3950
    return 1;
unknown's avatar
unknown committed
3951
  }
unknown's avatar
unknown committed
3952 3953

  if ( $tinfo->{template_path} ne $current_config_name)
3954
  {
unknown's avatar
unknown committed
3955
    mtr_verbose_restart($server, "using different config file");
unknown's avatar
unknown committed
3956
    return 1;
3957
  }
unknown's avatar
unknown committed
3958 3959

  if ( $tinfo->{'master_sh'}  || $tinfo->{'slave_sh'} )
unknown's avatar
unknown committed
3960
  {
unknown's avatar
unknown committed
3961
    mtr_verbose_restart($server, "sh script to run");
unknown's avatar
unknown committed
3962
    return 1;
unknown's avatar
unknown committed
3963
  }
unknown's avatar
unknown committed
3964 3965

  if ( ! started($server) )
3966
  {
unknown's avatar
unknown committed
3967
    mtr_verbose_restart($server, "not started");
unknown's avatar
unknown committed
3968
    return 1;
3969
  }
unknown's avatar
unknown committed
3970 3971 3972

  my $started_tinfo= $server->{'started_tinfo'};
  if ( defined $started_tinfo )
3973
  {
unknown's avatar
unknown committed
3974 3975 3976 3977

    # Check if timezone of  test that server was started
    # with differs from timezone of next test
    if ( timezone($started_tinfo) ne timezone($tinfo) )
3978
    {
unknown's avatar
unknown committed
3979
      mtr_verbose_restart($server, "different timezone");
unknown's avatar
unknown committed
3980
      return 1;
3981
    }
3982
  }
3983

3984 3985 3986 3987 3988 3989 3990 3991 3992 3993 3994
  # Temporary re-enable the "always restart slave" hack
  # this should be removed asap, but will require that each rpl
  # testcase cleanup better after itself - ie. stop and reset
  # replication
  # Use the "#!use-slave-opt" marker to detect that this is a "slave"
  # server
  if ( $server->option("#!use-slave-opt") ){
    mtr_verbose_restart($server, "Always restart slave(s)");
    return 1;
  }

3995
  my $is_mysqld= grep ($server eq $_, mysqlds());
3996 3997
  if ($is_mysqld)
  {
unknown's avatar
unknown committed
3998

3999 4000
    # Check that running process was started with same options
    # as the current test requires
4001
    my $extra_opts= get_extra_opts($server, $tinfo);
4002
    my $started_opts= $server->{'started_opts'};
4003 4004

    if (!My::Options::same($started_opts, $extra_opts) )
4005
    {
4006
      my $use_dynamic_option_switch= 0;
unknown's avatar
unknown committed
4007 4008 4009 4010 4011 4012 4013
      if (!$use_dynamic_option_switch)
      {
	mtr_verbose_restart($server, "running with different options '" .
			    join(" ", @{$extra_opts}) . "' != '" .
			    join(" ", @{$started_opts}) . "'" );
	return 1;
      }
4014

4015 4016 4017 4018 4019 4020 4021 4022 4023 4024
      mtr_verbose(My::Options::toStr("started_opts", @$started_opts));
      mtr_verbose(My::Options::toStr("extra_opts", @$extra_opts));

      # Get diff and check if dynamic switch is possible
      my @diff_opts= My::Options::diff($started_opts, $extra_opts);
      mtr_verbose(My::Options::toStr("diff_opts", @diff_opts));

      my $query= My::Options::toSQL(@diff_opts);
      mtr_verbose("Attempting dynamic switch '$query'");
      if (run_query($tinfo, $server, $query)){
4025
	mtr_verbose("Restart: running with different options '" .
4026
		    join(" ", @{$extra_opts}) . "' != '" .
unknown's avatar
unknown committed
4027
		    join(" ", @{$started_opts}) . "'" );
4028 4029
	return 1;
      }
4030 4031 4032

      # Remember the dynamically set options
      $server->{'started_opts'}= $extra_opts;
4033
    }
unknown's avatar
unknown committed
4034
  }
4035

unknown's avatar
unknown committed
4036 4037
  # Default, no restart
  return 0;
4038 4039
}

unknown's avatar
unknown committed
4040

unknown's avatar
unknown committed
4041 4042 4043 4044
sub servers_need_restart($) {
  my ($tinfo)= @_;
  return grep { server_need_restart($tinfo, $_); } all_servers();
}
unknown's avatar
unknown committed
4045 4046 4047



unknown's avatar
unknown committed
4048 4049 4050 4051 4052 4053 4054 4055 4056 4057
#
# Return list of specific servers
#  - there is no servers in an empty config
#
sub _like   { return $config ? $config->like($_[0]) : (); }
sub mysqlds { return _like('mysqld.'); }
sub ndbds   { return _like('cluster_config.ndbd.');}
sub ndb_mgmds { return _like('cluster_config.ndb_mgmd.'); }
sub clusters  { return _like('mysql_cluster.'); }
sub all_servers { return ( mysqlds(), ndb_mgmds(), ndbds() ); }
unknown's avatar
unknown committed
4058 4059


unknown's avatar
unknown committed
4060 4061 4062 4063 4064 4065 4066 4067 4068
#
# Filter a list of servers and return only those that are part
# of the specified cluster
#
sub in_cluster {
  my ($cluster)= shift;
  # Return only processes for a specific cluster
  return grep { $_->suffix() eq $cluster->suffix() } @_;
}
unknown's avatar
unknown committed
4069

unknown's avatar
unknown committed
4070 4071


unknown's avatar
unknown committed
4072 4073 4074 4075 4076 4077
#
# Filter a list of servers and return the SafeProcess
# for only those that are started or stopped
#
sub started { return grep(defined $_, map($_->{proc}, @_));  }
sub stopped { return grep(!defined $_, map($_->{proc}, @_)); }
4078

unknown's avatar
unknown committed
4079

4080 4081 4082 4083 4084 4085 4086 4087 4088 4089 4090 4091
sub envsubst {
  my $string= shift;

  if ( ! defined $ENV{$string} )
  {
    mtr_error(".opt file references '$string' which is not set");
  }

  return $ENV{$string};
}


4092
sub get_extra_opts {
unknown's avatar
unknown committed
4093
  my ($mysqld, $tinfo)= @_;
unknown's avatar
unknown committed
4094

4095
  my $opts=
unknown's avatar
unknown committed
4096 4097
    $mysqld->option("#!use-slave-opt") ?
      $tinfo->{slave_opt} : $tinfo->{master_opt};
4098 4099 4100 4101 4102 4103 4104 4105

  # Expand environment variables
  foreach my $opt ( @$opts )
  {
    $opt =~ s/\$\{(\w+)\}/envsubst($1)/ge;
    $opt =~ s/\$(\w+)/envsubst($1)/ge;
  }
  return $opts;
unknown's avatar
unknown committed
4106
}
unknown's avatar
unknown committed
4107 4108


unknown's avatar
unknown committed
4109 4110
sub stop_servers($$) {
  my ($tinfo, @servers)= @_;
unknown's avatar
unknown committed
4111

unknown's avatar
unknown committed
4112 4113
  # Remember if we restarted for this test case (count restarts)
  $tinfo->{'restarted'}= 1;
unknown's avatar
unknown committed
4114

unknown's avatar
unknown committed
4115 4116 4117 4118
  if ( join('|', @servers) eq join('|', all_servers()) )
  {
    # All servers are going down, use some kind of order to
    # avoid too many warnings in the log files
unknown's avatar
unknown committed
4119

4120
   mtr_report("Restarting all servers");
4121

unknown's avatar
unknown committed
4122 4123
    #  mysqld processes
    My::SafeProcess::shutdown( $opt_shutdown_timeout, started(mysqlds()) );
4124

unknown's avatar
unknown committed
4125 4126 4127 4128 4129 4130
    # cluster processes
    My::SafeProcess::shutdown( $opt_shutdown_timeout,
			       started(ndbds(), ndb_mgmds()) );
  }
  else
  {
4131 4132
    mtr_report("Restarting ", started(@servers));

unknown's avatar
unknown committed
4133 4134 4135
     # Stop only some servers
    My::SafeProcess::shutdown( $opt_shutdown_timeout,
			       started(@servers) );
4136 4137
  }

unknown's avatar
unknown committed
4138
  foreach my $server (@servers)
unknown's avatar
unknown committed
4139
  {
unknown's avatar
unknown committed
4140 4141 4142 4143 4144 4145 4146
    # Mark server as stopped
    $server->{proc}= undef;

    # Forget history
    delete $server->{'started_tinfo'};
    delete $server->{'started_opts'};
    delete $server->{'started_cnf'};
unknown's avatar
unknown committed
4147
  }
unknown's avatar
unknown committed
4148 4149
}

4150

4151
#
unknown's avatar
unknown committed
4152
# start_servers
4153
#
unknown's avatar
unknown committed
4154
# Start servers not already started
4155 4156 4157 4158 4159
#
# RETURN
#  0 OK
#  1 Start failed
#
unknown's avatar
unknown committed
4160 4161
sub start_servers($) {
  my ($tinfo)= @_;
4162

unknown's avatar
unknown committed
4163 4164 4165 4166 4167
  # Start clusters
  foreach my $cluster ( clusters() )
  {
    ndbcluster_start($cluster);
  }
unknown's avatar
unknown committed
4168

unknown's avatar
unknown committed
4169 4170
  # Start mysqlds
  foreach my $mysqld ( mysqlds() )
unknown's avatar
unknown committed
4171
  {
unknown's avatar
unknown committed
4172
    if ( $mysqld->{proc} )
unknown's avatar
unknown committed
4173
    {
unknown's avatar
unknown committed
4174 4175 4176 4177 4178 4179
      # Already started

      # Write start of testcase to log file
      mark_log($mysqld->value('log-error'), $tinfo);

      next;
unknown's avatar
unknown committed
4180
    }
unknown's avatar
unknown committed
4181

unknown's avatar
unknown committed
4182
    my $datadir= $mysqld->value('datadir');
4183
    if ($opt_start_dirty)
unknown's avatar
unknown committed
4184
    {
4185
      # Don't delete anything if starting dirty
4186 4187 4188 4189 4190 4191 4192 4193 4194 4195 4196 4197 4198 4199 4200 4201 4202
      ;
    }
    else
    {

      my @options= ('log-bin', 'relay-log');
      foreach my $option_name ( @options )  {
	next unless $mysqld->option($option_name);

	my $file_name= $mysqld->value($option_name);
	next unless
	  defined $file_name and
	    -e $file_name;

	mtr_debug(" -removing '$file_name'");
	unlink($file_name) or die ("unable to remove file '$file_name'");
      }
4203

4204 4205 4206
      if (-d $datadir ) {
	mtr_verbose(" - removing '$datadir'");
	rmtree($datadir);
unknown's avatar
unknown committed
4207 4208
      }
    }
unknown's avatar
unknown committed
4209

Magnus Svensson's avatar
Magnus Svensson committed
4210 4211 4212 4213 4214 4215 4216 4217 4218 4219 4220 4221 4222 4223 4224 4225 4226 4227 4228
    my $mysqld_basedir= $mysqld->value('basedir');
    if ( $basedir eq $mysqld_basedir )
    {
      # Copy datadir from installed system db
      for my $path ( "$opt_vardir", "$opt_vardir/..") {
	my $install_db= "$path/install.db";
	copytree($install_db, $datadir)
	  if -d $install_db;
      }
      mtr_error("Failed to copy system db to '$datadir'")
	unless -d $datadir;
    }
    else
    {
      mysql_install_db($mysqld);

      mtr_error("Failed to install system db to '$datadir'")
	unless -d $datadir;

4229
    }
unknown's avatar
unknown committed
4230

4231 4232 4233 4234
    # Create the servers tmpdir
    my $tmpdir= $mysqld->value('tmpdir');
    mkpath($tmpdir) unless -d $tmpdir;

unknown's avatar
unknown committed
4235 4236
    # Write start of testcase to log file
    mark_log($mysqld->value('log-error'), $tinfo);
unknown's avatar
unknown committed
4237

unknown's avatar
unknown committed
4238 4239 4240
    # Run <tname>-master.sh
    if ($mysqld->option('#!run-master-sh') and
       run_sh_script($tinfo->{master_sh}) )
unknown's avatar
unknown committed
4241
    {
unknown's avatar
unknown committed
4242
      $tinfo->{'comment'}= "Failed to execute '$tinfo->{master_sh}'";
4243
      return 1;
unknown's avatar
unknown committed
4244
    }
unknown's avatar
unknown committed
4245

unknown's avatar
unknown committed
4246 4247 4248
    # Run <tname>-slave.sh
    if ($mysqld->option('#!run-slave-sh') and
	run_sh_script($tinfo->{slave_sh}))
unknown's avatar
unknown committed
4249
    {
unknown's avatar
unknown committed
4250 4251
      $tinfo->{'comment'}= "Failed to execute '$tinfo->{slave_sh}'";
      return 1;
unknown's avatar
unknown committed
4252 4253
    }

unknown's avatar
unknown committed
4254 4255 4256 4257 4258 4259 4260 4261
    if (!$opt_embedded_server)
    {
      my $extra_opts= get_extra_opts($mysqld, $tinfo);
      mysqld_start($mysqld,$extra_opts);

      # Save this test case information, so next can examine it
      $mysqld->{'started_tinfo'}= $tinfo;
    }
4262

unknown's avatar
unknown committed
4263 4264
  }

4265
  # Wait for clusters to start
unknown's avatar
unknown committed
4266
  foreach my $cluster ( clusters() )
unknown's avatar
unknown committed
4267
  {
4268
    if (ndbcluster_wait_started($cluster, ""))
4269 4270
    {
      # failed to start
unknown's avatar
unknown committed
4271
      $tinfo->{'comment'}= "Start of '".$cluster->name()."' cluster failed";
4272
      return 1;
4273
    }
unknown's avatar
unknown committed
4274 4275
  }

unknown's avatar
unknown committed
4276 4277
  # Wait for mysqlds to start
  foreach my $mysqld ( mysqlds() )
4278
  {
unknown's avatar
unknown committed
4279 4280
    next if !started($mysqld);

unknown's avatar
unknown committed
4281 4282 4283 4284 4285
    if (sleep_until_file_created($mysqld->value('pid-file'),
				 $opt_start_timeout,
				 $mysqld->{'proc'}) == 0) {
      $tinfo->{comment}=
	"Failed to start ".$mysqld->name();
4286 4287 4288 4289 4290 4291 4292 4293 4294 4295

      my $logfile= $mysqld->value('log-error');
      if ( defined $logfile and -f $logfile )
      {
	$tinfo->{logfile}= mtr_fromfile($logfile);
      }
      else
      {
	$tinfo->{logfile}= "Could not open server logfile: '$logfile'";
      }
4296
      return 1;
4297
    }
unknown's avatar
unknown committed
4298
  }
4299
  return 0;
unknown's avatar
unknown committed
4300 4301
}

unknown's avatar
unknown committed
4302

4303 4304
#
# Run include/check-testcase.test
unknown's avatar
unknown committed
4305
# Before a testcase, run in record mode and save result file to var/tmp
4306 4307
# After testcase, run and compare with the recorded file, they should be equal!
#
4308
# RETURN VALUE
4309
#  The newly started process
4310
#
4311
sub start_check_testcase ($$$) {
unknown's avatar
unknown committed
4312
  my $tinfo=    shift;
4313
  my $mode=     shift;
4314 4315
  my $mysqld=   shift;

unknown's avatar
unknown committed
4316
  my $name= "check-".$mysqld->name();
4317 4318 4319
  # Replace dots in name with underscore to avoid that mysqltest
  # misinterpret's what the filename extension is :(
  $name=~ s/\./_/g;
4320 4321 4322 4323

  my $args;
  mtr_init_args(\$args);

4324 4325 4326
  mtr_add_arg($args, "--defaults-file=%s", $path_config_file);
  mtr_add_arg($args, "--defaults-group-suffix=%s", $mysqld->after('mysqld'));

4327 4328 4329
  mtr_add_arg($args, "--silent");
  mtr_add_arg($args, "--skip-safemalloc");

unknown's avatar
unknown committed
4330 4331
  mtr_add_arg($args, "--result-file=%s", "$opt_vardir/tmp/$name.result");
  mtr_add_arg($args, "--test-file=%s", "include/check-testcase.test");
4332 4333 4334 4335 4336

  if ( $mode eq "before" )
  {
    mtr_add_arg($args, "--record");
  }
unknown's avatar
unknown committed
4337
  my $errfile= "$opt_vardir/tmp/$name.err";
4338
  my $proc= My::SafeProcess->new
unknown's avatar
unknown committed
4339 4340 4341 4342 4343
    (
     name          => $name,
     path          => $exe_mysqltest,
     error         => $errfile,
     args          => \$args,
4344
     user_data     => $errfile,
4345
     verbose       => $opt_verbose,
unknown's avatar
unknown committed
4346
    );
4347

4348 4349
  mtr_report("Started $proc");
  return $proc;
4350 4351
}

4352

unknown's avatar
unknown committed
4353 4354 4355
sub run_mysqltest ($) {
  my $proc= start_mysqltest(@_);
  $proc->wait();
4356
}
unknown's avatar
unknown committed
4357

4358

unknown's avatar
unknown committed
4359
sub start_mysqltest ($) {
4360
  my ($tinfo)= @_;
unknown's avatar
unknown committed
4361 4362
  my $exe= $exe_mysqltest;
  my $args;
unknown's avatar
unknown committed
4363 4364 4365

  mtr_init_args(\$args);

unknown's avatar
unknown committed
4366
  mtr_add_arg($args, "--defaults-file=%s", $path_config_file);
unknown's avatar
unknown committed
4367 4368 4369
  mtr_add_arg($args, "--silent");
  mtr_add_arg($args, "--skip-safemalloc");
  mtr_add_arg($args, "--tmpdir=%s", $opt_tmpdir);
4370
  mtr_add_arg($args, "--character-sets-dir=%s", $path_charsetsdir);
4371
  mtr_add_arg($args, "--logdir=%s/log", $opt_vardir);
4372

4373 4374 4375 4376
  # Log line number and time  for each line in .test file
  mtr_add_arg($args, "--mark-progress")
    if $opt_mark_progress;

unknown's avatar
unknown committed
4377
  mtr_add_arg($args, "--database=test");
unknown's avatar
unknown committed
4378

unknown's avatar
unknown committed
4379 4380 4381 4382 4383
  if ( $opt_ps_protocol )
  {
    mtr_add_arg($args, "--ps-protocol");
  }

4384 4385 4386 4387 4388 4389 4390 4391 4392 4393 4394 4395 4396 4397 4398
  if ( $opt_sp_protocol )
  {
    mtr_add_arg($args, "--sp-protocol");
  }

  if ( $opt_view_protocol )
  {
    mtr_add_arg($args, "--view-protocol");
  }

  if ( $opt_cursor_protocol )
  {
    mtr_add_arg($args, "--cursor-protocol");
  }

unknown's avatar
unknown committed
4399 4400
  if ( $opt_strace_client )
  {
unknown's avatar
unknown committed
4401
    $exe=  $opt_strace_client || "strace";
unknown's avatar
unknown committed
4402
    mtr_add_arg($args, "-o");
4403
    mtr_add_arg($args, "%s/log/mysqltest.strace", $opt_vardir);
unknown's avatar
unknown committed
4404 4405 4406
    mtr_add_arg($args, "$exe_mysqltest");
  }

unknown's avatar
unknown committed
4407
  mtr_add_arg($args, "--timer-file=%s/log/timer", $opt_vardir);
unknown's avatar
unknown committed
4408 4409 4410 4411 4412 4413 4414 4415 4416 4417 4418

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

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

4419 4420
  if ( $opt_ssl )
  {
4421
    # Turn on SSL for _all_ test cases if option --ssl was used
4422
    mtr_add_arg($args, "--ssl");
4423
  }
unknown's avatar
unknown committed
4424 4425 4426 4427 4428
  elsif ( $opt_ssl_supported )
  {
    mtr_add_arg($args, "--skip-ssl");
  }

unknown's avatar
unknown committed
4429 4430 4431 4432 4433 4434
  if ( $opt_embedded_server )
  {

    # Get the args needed for the embedded server
    # and append them to args prefixed
    # with --sever-arg=
unknown's avatar
unknown committed
4435

unknown's avatar
unknown committed
4436 4437 4438 4439 4440 4441 4442 4443
    my $mysqld=  $config->group('embedded')
      or mtr_error("Could not get [embedded] section");

    my $mysqld_args;
    mtr_init_args(\$mysqld_args);
    my $extra_opts= get_extra_opts($mysqld, $tinfo);
    mysqld_arguments($mysqld_args, $mysqld, $extra_opts);
    mtr_add_arg($args, "--server-arg=%s", $_) for @$mysqld_args;
4444 4445 4446 4447 4448 4449

    if (IS_WINDOWS)
    {
      # Trick the server to send output to stderr, with --console
      mtr_add_arg($args, "--server-arg=--console");
    }
unknown's avatar
unknown committed
4450
  }
unknown's avatar
unknown committed
4451

4452 4453 4454
  # ----------------------------------------------------------------------
  # export MYSQL_TEST variable containing <path>/mysqltest <args>
  # ----------------------------------------------------------------------
unknown's avatar
unknown committed
4455
  $ENV{'MYSQL_TEST'}= mtr_args2str($exe_mysqltest, @$args);
4456

4457
  # ----------------------------------------------------------------------
4458
  # Add arguments that should not go into the MYSQL_TEST env var
4459
  # ----------------------------------------------------------------------
4460
  if ( $opt_valgrind_mysqltest )
4461 4462 4463 4464 4465 4466 4467 4468 4469 4470
  {
    # Prefix the Valgrind options to the argument list.
    # We do this here, since we do not want to Valgrind the nested invocations
    # of mysqltest; that would mess up the stderr output causing test failure.
    my @args_saved = @$args;
    mtr_init_args(\$args);
    valgrind_arguments($args, \$exe);
    mtr_add_arg($args, "%s", $_) for @args_saved;
  }

4471
  mtr_add_arg($args, "--test-file=%s", $tinfo->{'path'});
unknown's avatar
unknown committed
4472

4473 4474 4475
  # Number of lines of resut to include in failure report
  mtr_add_arg($args, "--tail-lines=20");

4476
  if ( defined $tinfo->{'result_file'} ) {
4477
    mtr_add_arg($args, "--result-file=%s", $tinfo->{'result_file'});
4478
  }
4479

4480 4481
  client_debug_arg($args, "mysqltest");

4482 4483 4484
  if ( $opt_record )
  {
    mtr_add_arg($args, "--record");
4485

4486 4487 4488 4489 4490
    # When recording to a non existing result file
    # the name of that file is in "record_file"
    if ( defined $tinfo->{'record_file'} ) {
      mtr_add_arg($args, "--result-file=%s", $tinfo->{record_file});
    }
4491 4492
  }

unknown's avatar
unknown committed
4493 4494 4495 4496 4497 4498 4499 4500
  if ( $opt_client_gdb )
  {
    gdb_arguments(\$args, \$exe, "client");
  }
  elsif ( $opt_client_ddd )
  {
    ddd_arguments(\$args, \$exe, "client");
  }
4501 4502 4503
  elsif ( $opt_client_debugger )
  {
    debugger_arguments(\$args, \$exe, "client");
unknown's avatar
unknown committed
4504
 }
4505 4506


unknown's avatar
unknown committed
4507 4508 4509 4510 4511
  my $proc= My::SafeProcess->new
    (
     name          => "mysqltest",
     path          => $exe,
     args          => \$args,
4512 4513
     append        => 1,
     error         => $path_current_testlog,
unknown's avatar
unknown committed
4514 4515 4516 4517
     verbose       => $opt_verbose,
    );
  mtr_verbose("Started $proc");
  return $proc;
unknown's avatar
unknown committed
4518
}
unknown's avatar
unknown committed
4519

unknown's avatar
unknown committed
4520

unknown's avatar
unknown committed
4521 4522 4523 4524 4525 4526 4527 4528 4529 4530
#
# Modify the exe and args so that program is run in gdb in xterm
#
sub gdb_arguments {
  my $args= shift;
  my $exe=  shift;
  my $type= shift;

  # Write $args to gdb init file
  my $str= join(" ", @$$args);
4531
  my $gdb_init_file= "$opt_vardir/tmp/gdbinit.$type";
unknown's avatar
unknown committed
4532

4533 4534 4535
  # Remove the old gdbinit file
  unlink($gdb_init_file);

unknown's avatar
unknown committed
4536 4537 4538 4539
  if ( $type eq "client" )
  {
    # write init file for client
    mtr_tofile($gdb_init_file,
4540 4541
	       "set args $str\n" .
	       "break main\n");
unknown's avatar
unknown committed
4542 4543 4544 4545 4546 4547 4548 4549 4550 4551
  }
  else
  {
    # write init file for mysqld
    mtr_tofile($gdb_init_file,
	       "set args $str\n" .
	       "break mysql_parse\n" .
	       "commands 1\n" .
	       "disable 1\n" .
	       "end\n" .
4552 4553 4554 4555 4556
	       "run");
  }

  if ( $opt_manual_gdb )
  {
4557
     print "\nTo start gdb for $type, type in another window:\n";
unknown's avatar
unknown committed
4558
     print "gdb -cd $glob_mysql_test_dir -x $gdb_init_file $$exe\n";
4559 4560 4561 4562

     # Indicate the exe should not be started
     $$exe= undef;
     return;
unknown's avatar
unknown committed
4563 4564 4565 4566 4567 4568
  }

  $$args= [];
  mtr_add_arg($$args, "-title");
  mtr_add_arg($$args, "$type");
  mtr_add_arg($$args, "-e");
4569

4570
  if ( $exe_libtool )
unknown's avatar
unknown committed
4571
  {
4572
    mtr_add_arg($$args, $exe_libtool);
unknown's avatar
unknown committed
4573 4574 4575 4576 4577 4578 4579 4580 4581
    mtr_add_arg($$args, "--mode=execute");
  }

  mtr_add_arg($$args, "gdb");
  mtr_add_arg($$args, "-x");
  mtr_add_arg($$args, "$gdb_init_file");
  mtr_add_arg($$args, "$$exe");

  $$exe= "xterm";
unknown's avatar
unknown committed
4582
}
unknown's avatar
unknown committed
4583

unknown's avatar
unknown committed
4584

unknown's avatar
unknown committed
4585 4586 4587 4588 4589 4590 4591 4592 4593 4594
#
# Modify the exe and args so that program is run in ddd
#
sub ddd_arguments {
  my $args= shift;
  my $exe=  shift;
  my $type= shift;

  # Write $args to ddd init file
  my $str= join(" ", @$$args);
4595
  my $gdb_init_file= "$opt_vardir/tmp/gdbinit.$type";
unknown's avatar
unknown committed
4596

4597 4598 4599
  # Remove the old gdbinit file
  unlink($gdb_init_file);

unknown's avatar
unknown committed
4600 4601 4602 4603 4604
  if ( $type eq "client" )
  {
    # write init file for client
    mtr_tofile($gdb_init_file,
	       "set args $str\n" .
4605
	       "break main\n");
unknown's avatar
unknown committed
4606 4607 4608 4609 4610 4611 4612 4613 4614 4615
  }
  else
  {
    # write init file for mysqld
    mtr_tofile($gdb_init_file,
	       "file $$exe\n" .
	       "set args $str\n" .
	       "break mysql_parse\n" .
	       "commands 1\n" .
	       "disable 1\n" .
4616
	       "end");
4617 4618 4619 4620
  }

  if ( $opt_manual_ddd )
  {
4621
     print "\nTo start ddd for $type, type in another window:\n";
unknown's avatar
unknown committed
4622
     print "ddd -cd $glob_mysql_test_dir -x $gdb_init_file $$exe\n";
4623 4624 4625 4626

     # Indicate the exe should not be started
     $$exe= undef;
     return;
unknown's avatar
unknown committed
4627
  }
unknown's avatar
unknown committed
4628

unknown's avatar
unknown committed
4629 4630
  my $save_exe= $$exe;
  $$args= [];
4631
  if ( $exe_libtool )
unknown's avatar
unknown committed
4632
  {
4633
    $$exe= $exe_libtool;
unknown's avatar
unknown committed
4634 4635 4636 4637 4638 4639 4640 4641 4642 4643 4644
    mtr_add_arg($$args, "--mode=execute");
    mtr_add_arg($$args, "ddd");
  }
  else
  {
    $$exe= "ddd";
  }
  mtr_add_arg($$args, "--command=$gdb_init_file");
  mtr_add_arg($$args, "$save_exe");
}

4645 4646 4647 4648 4649 4650 4651 4652 4653

#
# Modify the exe and args so that program is run in the selected debugger
#
sub debugger_arguments {
  my $args= shift;
  my $exe=  shift;
  my $debugger= $opt_debugger || $opt_client_debugger;

4654
  if ( $debugger =~ /vcexpress|vc|devenv/ )
4655 4656 4657 4658 4659 4660 4661
  {
    # vc[express] /debugexe exe arg1 .. argn

    # Add /debugexe and name of the exe before args
    unshift(@$$args, "/debugexe");
    unshift(@$$args, "$$exe");

4662 4663 4664
    # Set exe to debuggername
    $$exe= $debugger;

4665
  }
4666
  elsif ( $debugger =~ /windbg/ )
4667 4668 4669 4670 4671 4672
  {
    # windbg exe arg1 .. argn

    # Add name of the exe before args
    unshift(@$$args, "$$exe");

4673 4674 4675 4676 4677 4678 4679 4680 4681 4682 4683 4684 4685 4686 4687
    # Set exe to debuggername
    $$exe= $debugger;

  }
  elsif ( $debugger eq "dbx" )
  {
    # xterm -e dbx -r exe arg1 .. argn

    unshift(@$$args, $$exe);
    unshift(@$$args, "-r");
    unshift(@$$args, $debugger);
    unshift(@$$args, "-e");

    $$exe= "xterm";

4688 4689 4690 4691 4692 4693 4694 4695
  }
  else
  {
    mtr_error("Unknown argument \"$debugger\" passed to --debugger");
  }
}


unknown's avatar
unknown committed
4696 4697 4698
#
# Modify the exe and args so that program is run in valgrind
#
unknown's avatar
unknown committed
4699 4700 4701 4702
sub valgrind_arguments {
  my $args= shift;
  my $exe=  shift;

4703 4704 4705 4706 4707 4708 4709 4710 4711 4712 4713 4714 4715 4716
  if ( $opt_callgrind)
  {
    mtr_add_arg($args, "--tool=callgrind");
    mtr_add_arg($args, "--base=$opt_vardir/log");
  }
  else
  {
    mtr_add_arg($args, "--tool=memcheck"); # From >= 2.1.2 needs this option
    mtr_add_arg($args, "--alignment=8");
    mtr_add_arg($args, "--leak-check=yes");
    mtr_add_arg($args, "--num-callers=16");
    mtr_add_arg($args, "--suppressions=%s/valgrind.supp", $glob_mysql_test_dir)
      if -f "$glob_mysql_test_dir/valgrind.supp";
  }
unknown's avatar
unknown committed
4717

4718
  # Add valgrind options, can be overriden by user
unknown's avatar
unknown committed
4719
  mtr_add_arg($args, '%s', $_) for (@valgrind_args);
4720

unknown's avatar
unknown committed
4721 4722
  mtr_add_arg($args, $$exe);

unknown's avatar
unknown committed
4723
  $$exe= $opt_valgrind_path || "valgrind";
4724 4725 4726 4727 4728 4729 4730 4731

  if ($exe_libtool)
  {
    # Add "libtool --mode-execute" before the test to execute
    # if running in valgrind(to avoid valgrinding bash)
    unshift(@$args, "--mode=execute", $$exe);
    $$exe= $exe_libtool;
  }
unknown's avatar
unknown committed
4732 4733 4734
}


unknown's avatar
unknown committed
4735
#
unknown's avatar
unknown committed
4736
# Usage
unknown's avatar
unknown committed
4737
#
unknown's avatar
unknown committed
4738
sub usage ($) {
Magnus Svensson's avatar
Magnus Svensson committed
4739
  my ($message)= @_;
4740 4741 4742

  if ( $message )
  {
unknown's avatar
unknown committed
4743
    print STDERR "$message\n";
4744 4745
  }

unknown's avatar
unknown committed
4746
  print <<HERE;
unknown's avatar
unknown committed
4747

unknown's avatar
unknown committed
4748
$0 [ OPTIONS ] [ TESTCASE ]
unknown's avatar
unknown committed
4749 4750 4751 4752 4753

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
4754 4755 4756 4757
  cursor-protocol       Use the cursor protocol between client and server
                        (implies --ps-protocol)
  view-protocol         Create a view to execute all non updating queries
  sp-protocol           Create a stored procedure to execute all queries
4758 4759
  compress              Use the compressed protocol between client and server
  ssl                   Use ssl protocol between client and server
4760
  skip-ssl              Dont start server with support for ssl connections
4761 4762
  vs-config             Visual Studio configuration used to create executables
                        (default: MTR_VS_CONFIG environment variable)
unknown's avatar
unknown committed
4763

unknown's avatar
unknown committed
4764 4765
  config|defaults-file=<config template> Use fixed config template for all
                        tests
4766
  defaults_extra_file=<config template> Extra config template to add to
unknown's avatar
unknown committed
4767 4768
                        all generated configs

4769 4770 4771
Options to control directories to use
  tmpdir=DIR            The directory where temporary files are stored
                        (default: ./var/tmp).
4772 4773 4774
  vardir=DIR            The directory where files generated from the test run
                        is stored (default: ./var). Specifying a ramdisk or
                        tmpfs will speed up tests.
4775 4776 4777
  mem                   Run testsuite in "memory" using tmpfs or ramdisk
                        Attempts to find a suitable location
                        using a builtin list of standard locations
4778 4779 4780
                        for tmpfs (/dev/shm)
                        The option can also be set using environment
                        variable MTR_MEM=[DIR]
unknown's avatar
unknown committed
4781 4782 4783
  client-bindir=PATH    Path to the directory where client binaries are located
  client-libdir=PATH    Path to the directory where client libraries are located

4784

unknown's avatar
unknown committed
4785 4786 4787
Options to control what test suites or cases to run

  force                 Continue to run the suite after failure
4788
  with-ndbcluster-only  Run only tests that include "ndb" in the filename
unknown's avatar
unknown committed
4789 4790
  skip-ndb[cluster]     Skip all tests that need cluster
  skip-ndb[cluster]-slave Skip all tests that need a slave cluster
4791 4792 4793 4794 4795 4796
  do-test=PREFIX or REGEX
                        Run test cases which name are prefixed with PREFIX
                        or fulfills REGEX
  skip-test=PREFIX or REGEX
                        Skip test cases which name are prefixed with PREFIX
                        or fulfills REGEX
4797 4798 4799 4800
  start-from=PREFIX     Run test cases starting test prefixed with PREFIX where
                        prefix may be suite.testname or just testname
  suite[s]=NAME1,..,NAMEN
                        Collect tests in suites from the comma separated
4801
                        list of suite names.
4802
                        The default is: "$DEFAULT_SUITES"
unknown's avatar
unknown committed
4803
  skip-rpl              Skip the replication test cases.
4804
  big-test              Also run tests marked as "big"
unknown's avatar
unknown committed
4805 4806 4807

Options that specify ports

unknown's avatar
unknown committed
4808
  mtr-build-thread=#    Specify unique number to calculate port number(s) from.
unknown's avatar
unknown committed
4809
  build-thread=#        Can be set in environment variable MTR_BUILD_THREAD.
unknown's avatar
unknown committed
4810 4811
                        Set  MTR_BUILD_THREAD="auto" to automatically aquire
                        a build thread id that is unique to current host
unknown's avatar
unknown committed
4812 4813 4814 4815

Options for test case authoring

  record TESTNAME       (Re)genereate the result file for TESTNAME
4816
  check-testcases       Check testcases for sideeffects
4817
  mark-progress         Log line number and elapsed time to <testname>.progress
unknown's avatar
unknown committed
4818 4819 4820 4821 4822 4823 4824

Options that pass on options

  mysqld=ARGS           Specify additional arguments to "mysqld"

Options to run test on running server

unknown's avatar
unknown committed
4825 4826 4827 4828 4829 4830
  extern option=value   Run only the tests against an already started server
                        the options to use for connection to the extern server
                        must be specified using name-value pair notation
                        For example:
                         ./$0 --extern socket=/tmp/mysqld.sock

unknown's avatar
unknown committed
4831 4832
Options for debugging the product

4833 4834
  client-ddd            Start mysqltest client in ddd
  client-debugger=NAME  Start mysqltest in the selected debugger
unknown's avatar
unknown committed
4835 4836
  client-gdb            Start mysqltest client in gdb
  ddd                   Start mysqld in ddd
4837
  debug                 Dump trace output for all servers and client programs
4838
  debugger=NAME         Start mysqld in the selected debugger
4839 4840 4841 4842 4843
  gdb                   Start the mysqld(s) in gdb
  manual-debug          Let user manually start mysqld in debugger, before
                        running test(s)
  manual-gdb            Let user manually start mysqld in gdb, before running
                        test(s)
unknown's avatar
unknown committed
4844 4845
  manual-ddd            Let user manually start mysqld in ddd, before running
                        test(s)
unknown's avatar
unknown committed
4846 4847 4848
  strace-client=[path]  Create strace output for mysqltest client, optionally
                        specifying name and path to the trace program to use.
                        Example: $0 --strace-client=ktrace
4849 4850
  max-save-core         Limit the number of core files saved (to avoid filling
                        up disks for heavily crashing server). Defaults to
4851 4852 4853 4854 4855 4856
                        $opt_max_save_core, set to 0 for no limit. Set
                        it's default with MTR_MAX_SAVE_CORE
  max-save-datadir      Limit the number of datadir saved (to avoid filling
                        up disks for heavily crashing server). Defaults to
                        $opt_max_save_datadir, set to 0 for no limit. Set
                        it's default with MTR_MAX_SAVE_DATDIR
4857 4858 4859 4860
  max-test-fail         Limit the number of test failurs before aborting
                        the current test run. Defaults to
                        $opt_max_test_fail, set to 0 for no limit. Set
                        it's default with MTR_MAX_TEST_FAIL
unknown's avatar
unknown committed
4861

unknown's avatar
unknown committed
4862
Options for valgrind
unknown's avatar
unknown committed
4863

4864
  valgrind              Run the "mysqltest" and "mysqld" executables using
unknown's avatar
unknown committed
4865
                        valgrind with default options
4866
  valgrind-all          Synonym for --valgrind
4867 4868
  valgrind-mysqltest    Run the "mysqltest" and "mysql_client_test" executable
                        with valgrind
unknown's avatar
unknown committed
4869
  valgrind-mysqld       Run the "mysqld" executable with valgrind
unknown's avatar
unknown committed
4870 4871 4872
  valgrind-options=ARGS Deprecated, use --valgrind-option
  valgrind-option=ARGS  Option to give valgrind, replaces default option(s),
                        can be specified more then once
unknown's avatar
unknown committed
4873
  valgrind-path=[EXE]   Path to the valgrind executable
4874
  callgrind             Instruct valgrind to use callgrind
unknown's avatar
unknown committed
4875 4876

Misc options
4877
  user=USER             User for connecting to mysqld(default: $opt_user)
4878
  comment=STR           Write STR to the output
4879
  notimer               Don't show test case execution time
unknown's avatar
unknown committed
4880 4881 4882 4883 4884
  verbose               More verbose output(use multiple times for even more)
  start                 Only initialize and start the servers, using the
                        startup settings for the first specified test case
                        Example:
                         $0 --start alias &
4885
  start-dirty           Only start the servers (without initialization) for
unknown's avatar
unknown committed
4886 4887 4888
                        the first specified test case
  fast                  Run as fast as possible, dont't wait for servers
                        to shutdown etc.
unknown's avatar
unknown committed
4889 4890
  repeat=N              Run each test N number of times
  retry=N               Retry tests that fail N times, limit number of failures
unknown's avatar
unknown committed
4891
                        to $opt_retry_failure
unknown's avatar
unknown committed
4892
  retry-failure=N       Limit number of retries for a failed test
4893
  reorder               Reorder tests to get fewer server restarts
unknown's avatar
unknown committed
4894 4895
  help                  Get this help text

unknown's avatar
unknown committed
4896 4897 4898 4899 4900 4901
  testcase-timeout=MINUTES Max test case run time (default $opt_testcase_timeout)
  suite-timeout=MINUTES Max test suite run time (default $opt_suite_timeout)
  shutdown-timeout=SECONDS Max number of seconds to wait for server shutdown
                        before killing servers (default $opt_shutdown_timeout)
  warnings              Scan the log files for warnings. Use --nowarnings
                        to turn off.
4902

4903
  sleep=SECONDS         Passed to mysqltest, will be used as fixed sleep time
unknown's avatar
unknown committed
4904

unknown's avatar
unknown committed
4905
HERE
unknown's avatar
unknown committed
4906
  exit(1);
4907

unknown's avatar
unknown committed
4908
}
unknown's avatar
unknown committed
4909