← Back to branch summary

~drizzle-trunk/drizzle/development

« back to all changes in this revision

Viewing changes to tests/test-run.pl

  • Committer: Brian Aker
  • Date: 2008-10-06 06:47:29 UTC
  • Revision ID: brian@tangent.org-20081006064729-2i9mhjkzyvow9xsm
Remove uint.

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/test-run.pl
1
1
#!/usr/bin/perl
2
2
# -*- cperl -*-
3
3
 
4
 
use utf8;
5
 
 
6
4
#
7
5
##############################################################################
8
6
#
65
63
use File::Basename;
66
64
use File::Copy;
67
65
use File::Temp qw /tempdir/;
68
 
use File::Spec::Functions qw /splitdir catpath catdir
69
 
                              updir curdir splitpath rel2abs/;
 
66
use File::Spec::Functions qw /splitdir/;
70
67
use Cwd;
71
68
use Getopt::Long;
72
69
use IO::Socket;
105
102
our $glob_timers=                 undef;
106
103
our @glob_test_mode;
107
104
 
108
 
our $glob_builddir;
109
 
 
110
105
our $glob_basedir;
111
106
 
112
107
our $path_client_bindir;
119
114
our $opt_vardir;                 # A path but set directly on cmd line
120
115
our $path_vardir_trace;          # unix formatted opt_vardir for trace files
121
116
our $opt_tmpdir;                 # A path but set directly on cmd line
122
 
our $opt_testdir;
123
117
 
124
 
our $opt_subunit;
125
118
 
126
119
our $default_vardir;
127
120
 
128
121
our $opt_usage;
129
122
our $opt_suites;
130
 
our $opt_suites_default= "main"; # Default suites to run
 
123
our $opt_suites_default= "main,binlog,rpl"; # Default suites to run
131
124
our $opt_script_debug= 0;  # Script debugging, enable with --script-debug
132
125
our $opt_verbose= 0;  # Verbose output, enable with --verbose
133
126
 
134
 
our $opt_repeat_test= 1;
135
 
 
136
127
our $exe_master_mysqld;
137
128
our $exe_drizzle;
 
129
our $exe_drizzleadmin;
138
130
our $exe_drizzle_client_test;
139
131
our $exe_bug25714;
140
132
our $exe_drizzled;
 
133
our $exe_drizzlecheck;
141
134
our $exe_drizzledump;
142
135
our $exe_drizzleslap;
143
136
our $exe_drizzleimport;
152
145
 
153
146
our $opt_bench= 0;
154
147
our $opt_small_bench= 0;
 
148
our $opt_big_test= 0;
155
149
 
156
150
our @opt_combinations;
157
151
our $opt_skip_combination;
163
157
our $opt_debug;
164
158
our $opt_do_test;
165
159
our @opt_cases;                  # The test cases names in argv
166
 
our $opt_engine;
167
160
 
168
161
our $opt_extern= 0;
169
162
our $opt_socket;
180
173
 
181
174
our $glob_debugger= 0;
182
175
our $opt_gdb;
183
 
our $opt_dbx;
184
176
our $opt_client_gdb;
185
 
our $opt_client_dbx;
186
 
our $opt_dbx_gdb;
187
177
our $opt_ddd;
188
178
our $opt_client_ddd;
189
179
our $opt_manual_gdb;
190
 
our $opt_manual_dbx;
191
180
our $opt_manual_ddd;
192
181
our $opt_manual_debug;
193
 
# Magic number -69.4 results in traditional test ports starting from 9306.
194
 
our $opt_mtr_build_thread=-69.4;
 
182
our $opt_mtr_build_thread=0;
195
183
our $opt_debugger;
196
184
our $opt_client_debugger;
197
185
 
211
199
our $opt_check_testcases;
212
200
our $opt_mark_progress;
213
201
 
214
 
our $opt_skip_rpl= 1;
 
202
our $opt_skip_rpl;
215
203
our $max_slave_num= 0;
216
204
our $max_master_num= 1;
217
205
our $use_innodb;
254
242
 
255
243
our $opt_warnings;
256
244
 
 
245
our $opt_skip_master_binlog= 0;
 
246
our $opt_skip_slave_binlog= 0;
 
247
 
257
248
our $path_sql_dir;
258
249
 
259
250
our @data_dir_lst;
260
251
 
 
252
our $used_binlog_format;
261
253
our $used_default_engine;
262
254
our $debug_compiled_binaries;
263
255
 
301
293
sub mysqld_arguments ($$$$);
302
294
sub stop_all_servers ();
303
295
sub run_drizzletest ($);
304
 
sub collapse_path ($);
305
296
sub usage ($);
306
297
 
307
298
 
427
418
 
428
419
  my $opt_comment;
429
420
 
 
421
  # Magic number -69.4 results in traditional test ports starting from 9306.
 
422
  set_mtr_build_thread_ports(-69.4);
 
423
 
430
424
  # If so requested, we try to avail ourselves of a unique build thread number.
431
425
  if ( $ENV{'MTR_BUILD_THREAD'} ) {
432
426
    if ( lc($ENV{'MTR_BUILD_THREAD'}) eq 'auto' ) {
468
462
 
469
463
             # Control what test suites or cases to run
470
464
             'force'                    => \$opt_force,
 
465
             'skip-master-binlog'       => \$opt_skip_master_binlog,
 
466
             'skip-slave-binlog'        => \$opt_skip_slave_binlog,
471
467
             'do-test=s'                => \$opt_do_test,
472
468
             'start-from=s'             => \$opt_start_from,
473
469
             'suite|suites=s'           => \$opt_suites,
474
470
             'skip-rpl'                 => \$opt_skip_rpl,
475
471
             'skip-test=s'              => \$opt_skip_test,
 
472
             'big-test'                 => \$opt_big_test,
476
473
             'combination=s'            => \@opt_combinations,
477
474
             'skip-combination'         => \$opt_skip_combination,
478
475
 
488
485
 
489
486
             # Extra options used when starting mysqld
490
487
             'mysqld=s'                 => \@opt_extra_mysqld_opt,
491
 
             'engine=s'                 => \$opt_engine,
492
488
 
493
489
             # Run test on running server
494
490
             'extern'                   => \$opt_extern,
495
491
 
496
 
             # Output format
497
 
             'subunit'                  => \$opt_subunit,
498
 
 
499
492
             # Debugging
500
493
             'gdb'                      => \$opt_gdb,
501
 
             'dbx'                      => \$opt_dbx,
502
494
             'client-gdb'               => \$opt_client_gdb,
503
 
             'client-dbx'               => \$opt_client_dbx,
504
495
             'manual-gdb'               => \$opt_manual_gdb,
505
 
             'manual-dbx'               => \$opt_manual_dbx,
506
496
             'manual-debug'             => \$opt_manual_debug,
507
497
             'ddd'                      => \$opt_ddd,
508
498
             'client-ddd'               => \$opt_client_ddd,
549
539
             # Directories
550
540
             'tmpdir=s'                 => \$opt_tmpdir,
551
541
             'vardir=s'                 => \$opt_vardir,
552
 
             'testdir=s'                => \$opt_testdir,
553
542
             'benchdir=s'               => \$glob_mysql_bench_dir,
554
543
             'mem'                      => \$opt_mem,
555
544
 
571
560
             'testcase-timeout=i'       => \$opt_testcase_timeout,
572
561
             'suite-timeout=i'          => \$opt_suite_timeout,
573
562
             'warnings|log-warnings'    => \$opt_warnings,
574
 
             'repeat-test=i'            => \$opt_repeat_test,
575
563
 
576
564
             # Options which are no longer used
577
565
             (map { $_ => \&warn_about_removed_option } @removed_options),
581
569
 
582
570
  usage("") if $opt_usage;
583
571
 
584
 
  usage("you cannot specify --gdb and --dbx both!") if 
585
 
        ($opt_gdb && $opt_dbx) ||
586
 
        ($opt_manual_gdb && $opt_manual_dbx);
587
 
 
588
572
  $glob_scriptname=  basename($0);
589
573
 
590
574
  if ($opt_mtr_build_thread != 0)
596
580
    $opt_mtr_build_thread= $ENV{'MTR_BUILD_THREAD'};
597
581
  }
598
582
 
 
583
  # We require that we are in the "mysql-test" directory
 
584
  # to run drizzle-test-run
 
585
  if (! -f $glob_scriptname)
 
586
  {
 
587
    mtr_error("Can't find the location for the drizzle-test-run script\n" .
 
588
              "Go to to the mysql-test directory and execute the script " .
 
589
              "as follows:\n./$glob_scriptname");
 
590
  }
 
591
 
599
592
  if ( -d "../drizzled" )
600
593
  {
601
594
    $source_dist=  1;
602
595
  }
603
596
 
604
597
  # Find the absolute path to the test directory
605
 
  if ( ! $opt_testdir )
606
 
  {
607
 
    $glob_mysql_test_dir=  cwd();
608
 
  } 
609
 
  else
610
 
  {
611
 
    $glob_mysql_test_dir= $opt_testdir;
612
 
  }
 
598
  $glob_mysql_test_dir=  cwd();
613
599
  $default_vardir= "$glob_mysql_test_dir/var";
614
600
 
615
601
  # In most cases, the base directory we find everything relative to,
627
613
    $glob_basedir= dirname($glob_basedir);
628
614
  }
629
615
 
630
 
  if ( $opt_testdir and -d $opt_testdir and $opt_vardir and -d $opt_vardir
631
 
         and -f "$opt_vardir/../../drizzled/drizzled")
632
 
  {
633
 
    # probably in a VPATH build
634
 
    $glob_builddir= "$opt_vardir/../..";
635
 
  }
636
 
  else
637
 
  {
638
 
    $glob_builddir="..";
639
 
  }
640
 
 
641
616
  # Expect mysql-bench to be located adjacent to the source tree, by default
642
617
  $glob_mysql_bench_dir= "$glob_basedir/../mysql-bench"
643
618
    unless defined $glob_mysql_bench_dir;
655
630
  #
656
631
 
657
632
  # Look for the client binaries directory
658
 
  $path_client_bindir= mtr_path_exists("$glob_builddir/client",
659
 
                                       "$glob_basedir/client",
 
633
  $path_client_bindir= mtr_path_exists("$glob_basedir/client",
660
634
                                       "$glob_basedir/bin");
661
635
 
662
636
  if (!$opt_extern)
665
639
                                       "$path_client_bindir/drizzled",
666
640
                                       "$glob_basedir/libexec/drizzled",
667
641
                                       "$glob_basedir/bin/drizzled",
668
 
                                       "$glob_basedir/sbin/drizzled",
669
 
                                       "$glob_builddir/drizzled/drizzled");
 
642
                                       "$glob_basedir/sbin/drizzled");
670
643
 
671
644
    # Use the mysqld found above to find out what features are available
672
645
    collect_mysqld_features();
676
649
    $mysqld_variables{'port'}= 4427;
677
650
  }
678
651
 
679
 
  if (!$opt_engine)
680
 
  {
681
 
    $opt_engine= "innodb";
682
 
  }
683
 
 
684
652
  if ( $opt_comment )
685
653
  {
686
654
    print "\n";
712
680
  }
713
681
 
714
682
  # --------------------------------------------------------------------------
 
683
  # Find out type of logging that are being used
 
684
  # --------------------------------------------------------------------------
 
685
  if (!$opt_extern && $mysql_version_id >= 50100 )
 
686
  {
 
687
    foreach my $arg ( @opt_extra_mysqld_opt )
 
688
    {
 
689
      if ( $arg =~ /binlog[-_]format=(\S+)/ )
 
690
      {
 
691
        $used_binlog_format= $1;
 
692
      }
 
693
    }
 
694
    if (defined $used_binlog_format) 
 
695
    {
 
696
      mtr_report("Using binlog format '$used_binlog_format'");
 
697
    }
 
698
    else
 
699
    {
 
700
      mtr_report("Using dynamic switching of binlog format");
 
701
    }
 
702
  }
 
703
 
 
704
 
 
705
  # --------------------------------------------------------------------------
715
706
  # Find out default storage engine being used(if any)
716
707
  # --------------------------------------------------------------------------
717
708
  foreach my $arg ( @opt_extra_mysqld_opt )
758
749
  {
759
750
    $opt_vardir= $default_vardir;
760
751
  }
 
752
  elsif ( $mysql_version_id < 50000 and
 
753
          $opt_vardir ne $default_vardir)
 
754
  {
 
755
    # Version 4.1 and --vardir was specified
 
756
    # Only supported as a symlink from var/
 
757
    # by setting up $opt_mem that symlink will be created
 
758
    {
 
759
      # Only platforms that have native symlinks can use the vardir trick
 
760
      $opt_mem= $opt_vardir;
 
761
      mtr_report("Using 4.1 vardir trick");
 
762
    }
 
763
 
 
764
    $opt_vardir= $default_vardir;
 
765
  }
761
766
 
762
767
  $path_vardir_trace= $opt_vardir;
763
768
  # Chop off any "c:", DBUG likes a unix path ex: c:/src/... => /src/...
764
769
  $path_vardir_trace=~ s/^\w://;
765
770
 
766
 
  $opt_vardir= collapse_path($opt_vardir);
 
771
  # We make the path absolute, as the server will do a chdir() before usage
 
772
  unless ( $opt_vardir =~ m,^/,)
 
773
  {
 
774
    # Make absolute path, relative test dir
 
775
    $opt_vardir= "$glob_mysql_test_dir/$opt_vardir";
 
776
  }
767
777
 
768
778
  # --------------------------------------------------------------------------
769
779
  # Set tmpdir
793
803
  }
794
804
 
795
805
  # --------------------------------------------------------------------------
 
806
  # Big test flags
 
807
  # --------------------------------------------------------------------------
 
808
   if ( $opt_big_test )
 
809
   {
 
810
     $ENV{'BIG_TEST'}= 1;
 
811
   }
 
812
 
 
813
  # --------------------------------------------------------------------------
796
814
  # Gcov flag
797
815
  # --------------------------------------------------------------------------
798
816
  if ( $opt_gcov and ! $source_dist )
805
823
  # --------------------------------------------------------------------------
806
824
  if ( $opt_gdb || $opt_client_gdb || $opt_ddd || $opt_client_ddd ||
807
825
       $opt_manual_gdb || $opt_manual_ddd || $opt_manual_debug ||
808
 
       $opt_debugger || $opt_client_debugger || $opt_gdb || $opt_manual_gdb)
 
826
       $opt_debugger || $opt_client_debugger )
809
827
  {
810
828
    # Indicate that we are using debugger
811
829
    $glob_debugger= 1;
1040
1058
    print "got ".$mtr_build_thread."\n";
1041
1059
  }
1042
1060
 
1043
 
  $mtr_build_thread= (($mtr_build_thread * 10) % 2000) - 1000;
1044
 
 
1045
1061
  # Up to two masters, up to three slaves
1046
1062
  # A magic value in command_line_setup depends on these equations.
1047
 
  $opt_master_myport=         $mtr_build_thread + 9000; # and 1
 
1063
  $opt_master_myport=         $mtr_build_thread * 10 + 10000; # and 1
1048
1064
  $opt_slave_myport=          $opt_master_myport + 2;  # and 3 4
1049
1065
 
1050
1066
  if ( $opt_master_myport < 5001 or $opt_master_myport + 10 >= 32767 )
1160
1176
  mtr_init_args(\$args);
1161
1177
 
1162
1178
  mtr_add_arg($args, "--no-defaults");
1163
 
  mtr_add_arg($args, "--skip-stack-trace");
1164
1179
  mtr_add_arg($args, "--user=%s", $opt_user);
1165
1180
  mtr_add_arg($args, "--port=%d", $mysqld->{'port'});
1166
1181
  mtr_add_arg($args, "--silent"); # Tab separated output
1208
1223
  $exe_my_print_defaults=
1209
1224
    mtr_exe_exists(
1210
1225
        "$path_client_bindir/my_print_defaults",
1211
 
        "$glob_basedir/extra/my_print_defaults",
1212
 
        "$glob_builddir/extra/my_print_defaults");
 
1226
        "$glob_basedir/extra/my_print_defaults");
1213
1227
 
1214
1228
# Look for perror
1215
1229
  $exe_perror= "perror";
1216
1230
 
1217
1231
# Look for the client binaries
 
1232
  $exe_drizzlecheck= mtr_exe_exists("$path_client_bindir/drizzlecheck");
1218
1233
  $exe_drizzledump= mtr_exe_exists("$path_client_bindir/drizzledump");
1219
1234
  $exe_drizzleimport= mtr_exe_exists("$path_client_bindir/drizzleimport");
 
1235
  $exe_drizzleadmin= mtr_exe_exists("$path_client_bindir/drizzleadmin");
1220
1236
  $exe_drizzle=          mtr_exe_exists("$path_client_bindir/drizzle");
1221
1237
 
1222
1238
  if (!$opt_extern)
1312
1328
  # --------------------------------------------------------------------------
1313
1329
  if ( $source_dist )
1314
1330
  {
1315
 
    push(@ld_library_paths, "$glob_basedir/libdrizzleclient/.libs/",
1316
 
                            "$glob_basedir/mysys/.libs/",
1317
 
                            "$glob_basedir/mystrings/.libs/",
1318
 
                            "$glob_basedir/drizzled/.libs/",
1319
 
                            "/usr/local/lib");
 
1331
    push(@ld_library_paths, "$glob_basedir/libmysql/.libs/",
 
1332
                            "$glob_basedir/libmysql_r/.libs/",
 
1333
                            "$glob_basedir/zlib.libs/");
1320
1334
  }
1321
1335
  else
1322
1336
  {
1343
1357
    push(@ld_library_paths, $debug_libraries_path);
1344
1358
  }
1345
1359
 
1346
 
  $ENV{'LD_LIBRARY_PATH'}= join(":", 
 
1360
  $ENV{'LD_LIBRARY_PATH'}= join(":", @ld_library_paths,
1347
1361
                                $ENV{'LD_LIBRARY_PATH'} ?
1348
 
                                split(':', $ENV{'LD_LIBRARY_PATH'}) : (),
1349
 
                                @ld_library_paths);
 
1362
                                split(':', $ENV{'LD_LIBRARY_PATH'}) : ());
1350
1363
  mtr_debug("LD_LIBRARY_PATH: $ENV{'LD_LIBRARY_PATH'}");
1351
1364
 
1352
1365
  $ENV{'DYLD_LIBRARY_PATH'}= join(":", @ld_library_paths,
1387
1400
  
1388
1401
  $ENV{'LC_COLLATE'}=         "C";
1389
1402
  $ENV{'USE_RUNNING_SERVER'}= $opt_extern;
1390
 
  $ENV{'DRIZZLE_TEST_DIR'}=     collapse_path($glob_mysql_test_dir);
 
1403
  $ENV{'DRIZZLE_TEST_DIR'}=     $glob_mysql_test_dir;
1391
1404
  $ENV{'MYSQLTEST_VARDIR'}=   $opt_vardir;
1392
1405
  $ENV{'DRIZZLE_TMP_DIR'}=      $opt_tmpdir;
1393
1406
  $ENV{'MASTER_MYSOCK'}=      $master->[0]->{'path_sock'};
1400
1413
  $ENV{'SLAVE_MYPORT2'}=      $slave->[2]->{'port'};
1401
1414
  $ENV{'DRIZZLE_TCP_PORT'}=     $mysqld_variables{'port'};
1402
1415
 
1403
 
  $ENV{'MTR_BUILD_THREAD'}=      $opt_mtr_build_thread;
 
1416
  $ENV{MTR_BUILD_THREAD}=      $opt_mtr_build_thread;
1404
1417
 
1405
1418
  $ENV{'EXE_MYSQL'}=          $exe_drizzle;
1406
1419
 
 
1420
  # ----------------------------------------------------
 
1421
  # Setup env so childs can execute mysqlcheck
 
1422
  # ----------------------------------------------------
 
1423
  my $cmdline_mysqlcheck=
 
1424
    mtr_native_path($exe_drizzlecheck) .
 
1425
    " --no-defaults --debug-check -uroot " .
 
1426
    "--port=$master->[0]->{'port'} ";
 
1427
 
 
1428
  if ( $opt_debug )
 
1429
  {
 
1430
    $cmdline_mysqlcheck .=
 
1431
      " --debug=d:t:A,$path_vardir_trace/log/mysqlcheck.trace";
 
1432
  }
 
1433
  $ENV{'DRIZZLE_CHECK'}=              $cmdline_mysqlcheck;
1407
1434
 
1408
1435
  # ----------------------------------------------------
1409
1436
  # Setup env to childs can execute myqldump
1499
1526
  $ENV{'DRIZZLE_MY_PRINT_DEFAULTS'}= mtr_native_path($exe_my_print_defaults);
1500
1527
 
1501
1528
  # ----------------------------------------------------
1502
 
  # Setup env so childs can shutdown the server
 
1529
  # Setup env so childs can execute mysqladmin
1503
1530
  # ----------------------------------------------------
1504
 
  $ENV{'DRIZZLED_SHUTDOWN'}= mtr_native_path($exe_drizzle);
 
1531
  $ENV{'MYSQLADMIN'}= mtr_native_path($exe_drizzleadmin);
1505
1532
 
1506
1533
  # ----------------------------------------------------
1507
1534
  # Setup env so childs can execute perror  
1732
1759
  }
1733
1760
 
1734
1761
  # Make a link std_data_ln in var/ that points to std_data
1735
 
  symlink(collapse_path("$glob_mysql_test_dir/std_data"),
1736
 
          "$opt_vardir/std_data_ln");
 
1762
  symlink("$glob_mysql_test_dir/std_data", "$opt_vardir/std_data_ln");
1737
1763
 
1738
1764
  # Remove old log files
1739
1765
  foreach my $name (glob("r/*.progress r/*.log r/*.warnings"))
1740
1766
  {
1741
1767
    unlink($name);
1742
1768
  }
1743
 
  system("chmod -R ugo+r $opt_vardir");
1744
 
  system("chmod -R ugo+r $opt_vardir/std_data_ln/*");
1745
1769
}
1746
1770
 
1747
1771
 
1832
1856
 
1833
1857
  if ( ! $benchmark )
1834
1858
  {
 
1859
    mtr_add_arg($args, "--log");
1835
1860
    mtr_run("$glob_mysql_bench_dir/run-all-tests", $args, "", "", "", "");
1836
1861
    # FIXME check result code?!
1837
1862
  }
1872
1897
 
1873
1898
  foreach my $tinfo ( @$tests )
1874
1899
  {
1875
 
    foreach(1..$opt_repeat_test)
 
1900
    if (run_testcase_check_skip_test($tinfo))
1876
1901
    {
1877
 
      if (run_testcase_check_skip_test($tinfo))
1878
 
        {
1879
 
          next;
1880
 
        }
1881
 
 
1882
 
      mtr_timer_start($glob_timers,"testcase", 60 * $opt_testcase_timeout);
1883
 
      run_testcase($tinfo);
1884
 
      mtr_timer_stop($glob_timers,"testcase");
 
1902
      next;
1885
1903
    }
 
1904
 
 
1905
    mtr_timer_start($glob_timers,"testcase", 60 * $opt_testcase_timeout);
 
1906
    run_testcase($tinfo);
 
1907
    mtr_timer_stop($glob_timers,"testcase");
1886
1908
  }
1887
1909
 
1888
1910
  mtr_print_line();
2040
2062
  unlink("$base_file.log");
2041
2063
  unlink("$base_file.warnings");
2042
2064
 
 
2065
  if (!$opt_extern)
 
2066
  {
 
2067
    if (defined $tinfo->{binlog_format} and  $mysql_version_id > 50100 )
 
2068
    {
 
2069
      # Dynamically switch binlog format of
 
2070
      # master, slave is always restarted
 
2071
      foreach my $server ( @$master )
 
2072
      {
 
2073
        next unless ($server->{'pid'});
 
2074
 
 
2075
        mtr_init_args(\$args);
 
2076
        mtr_add_arg($args, "--no-defaults");
 
2077
        mtr_add_arg($args, "--user=root");
 
2078
        mtr_add_arg($args, "--port=$server->{'port'}");
 
2079
 
 
2080
        my $sql= "include/set_binlog_format_".$tinfo->{binlog_format}.".sql";
 
2081
        mtr_verbose("Setting binlog format:", $tinfo->{binlog_format});
 
2082
        if (mtr_run($exe_drizzle, $args, $sql, "", "", "") != 0)
 
2083
        {
 
2084
          mtr_error("Failed to switch binlog format");
 
2085
        }
 
2086
      }
 
2087
    }
 
2088
  }
2043
2089
}
2044
2090
 
2045
2091
sub do_after_run_drizzletest($)
2412
2458
 
2413
2459
  mtr_add_arg($args, "%s--no-defaults", $prefix);
2414
2460
 
2415
 
  $path_my_basedir= collapse_path($path_my_basedir);
2416
2461
  mtr_add_arg($args, "%s--basedir=%s", $prefix, $path_my_basedir);
2417
2462
 
2418
 
  if ($opt_engine)
2419
 
  {
2420
 
    mtr_add_arg($args, "%s--default-storage-engine=%s", $prefix, $opt_engine);
2421
 
  }
2422
 
 
2423
2463
  if ( $mysql_version_id >= 50036)
2424
2464
  {
2425
2465
    # By default, prevent the started mysqld to access files outside of vardir
2431
2471
  # Increase default connect_timeout to avoid intermittent
2432
2472
  # disconnects when test servers are put under load
2433
2473
  # see BUG#28359
2434
 
  mtr_add_arg($args, "%s--oldlibdrizzle-connect-timeout=60", $prefix);
 
2474
  mtr_add_arg($args, "%s--connect-timeout=60", $prefix);
2435
2475
 
2436
2476
 
2437
2477
  # When mysqld is run by a root user(euid is 0), it will fail
2450
2490
  mtr_add_arg($args, "%s--datadir=%s", $prefix,
2451
2491
              $mysqld->{'path_myddir'});
2452
2492
 
 
2493
  my $log_base_path= "$opt_vardir/log/$mysqld->{'type'}$sidx";
 
2494
  mtr_add_arg($args, "%s--log=%s.log", $prefix, $log_base_path);
 
2495
 
2453
2496
  # Check if "extra_opt" contains --skip-log-bin
 
2497
  my $skip_binlog= grep(/^--skip-log-bin/, @$extra_opt, @opt_extra_mysqld_opt);
2454
2498
  if ( $mysqld->{'type'} eq 'master' )
2455
2499
  {
 
2500
    if (! ($opt_skip_master_binlog || $skip_binlog) )
 
2501
    {
 
2502
      mtr_add_arg($args, "%s--log-bin=%s/log/master-bin%s", $prefix,
 
2503
                  $opt_vardir, $sidx);
 
2504
    }
 
2505
 
2456
2506
    mtr_add_arg($args, "%s--server-id=%d", $prefix,
2457
2507
               $idx > 0 ? $idx + 101 : 1);
2458
2508
 
2459
2509
    mtr_add_arg($args, "%s--loose-innodb_data_file_path=ibdata1:10M:autoextend",
2460
2510
                $prefix);
2461
2511
 
2462
 
    mtr_add_arg($args, "%s--loose-innodb-lock-wait-timeout=5", $prefix);
 
2512
    mtr_add_arg($args, "%s--local-infile", $prefix);
2463
2513
 
2464
2514
    if ( $idx > 0 or !$use_innodb)
2465
2515
    {
2471
2521
    mtr_error("unknown mysqld type")
2472
2522
      unless $mysqld->{'type'} eq 'slave';
2473
2523
 
 
2524
    #mtr_add_arg($args, "%s--init-rpl-role=slave", $prefix);
 
2525
    if (! ( $opt_skip_slave_binlog || $skip_binlog ))
 
2526
    {
 
2527
      mtr_add_arg($args, "%s--log-bin=%s/log/slave%s-bin", $prefix,
 
2528
                  $opt_vardir, $sidx); # FIXME use own dir for binlogs
 
2529
      mtr_add_arg($args, "%s--log-slave-updates", $prefix);
 
2530
    }
 
2531
 
 
2532
    mtr_add_arg($args, "%s--master-retry-count=10", $prefix);
 
2533
 
 
2534
    mtr_add_arg($args, "%s--relay-log=%s/log/slave%s-relay-bin", $prefix,
 
2535
                $opt_vardir, $sidx);
 
2536
    mtr_add_arg($args, "%s--report-host=127.0.0.1", $prefix);
 
2537
    mtr_add_arg($args, "%s--report-port=%d", $prefix,
 
2538
                $mysqld->{'port'});
 
2539
#    mtr_add_arg($args, "%s--report-user=root", $prefix);
 
2540
    mtr_add_arg($args, "%s--loose-skip-innodb", $prefix);
 
2541
    mtr_add_arg($args, "%s--skip-slave-start", $prefix);
 
2542
 
2474
2543
    # Directory where slaves find the dumps generated by "load data"
2475
2544
    # on the server. The path need to have constant length otherwise
2476
2545
    # test results will vary, thus a relative path is used.
2477
2546
    my $slave_load_path= "../tmp";
 
2547
    mtr_add_arg($args, "%s--slave-load-tmpdir=%s", $prefix,
 
2548
                $slave_load_path);
 
2549
    mtr_add_arg($args, "%s--set-variable=slave_net_timeout=120", $prefix);
2478
2550
 
2479
2551
    if ( @$slave_master_info )
2480
2552
    {
2488
2560
      my $slave_server_id=  2 + $idx;
2489
2561
      my $slave_rpl_rank= $slave_server_id;
2490
2562
      mtr_add_arg($args, "%s--server-id=%d", $prefix, $slave_server_id);
 
2563
#      mtr_add_arg($args, "%s--rpl-recovery-rank=%d", $prefix, $slave_rpl_rank);
2491
2564
    }
2492
2565
  } # end slave
2493
2566
 
2520
2593
    {
2521
2594
      $found_skip_core= 1;
2522
2595
    }
 
2596
    elsif ($skip_binlog and mtr_match_prefix($arg, "--binlog-format"))
 
2597
    {
 
2598
      ; # Dont add --binlog-format when running without binlog
 
2599
    }
2523
2600
    else
2524
2601
    {
2525
2602
      mtr_add_arg($args, "%s%s", $prefix, $arg);
2530
2607
    mtr_add_arg($args, "%s%s", $prefix, "--core-file");
2531
2608
  }
2532
2609
 
 
2610
  if ( $opt_bench )
 
2611
  {
 
2612
    #mtr_add_arg($args, "%s--rpl-recovery-rank=1", $prefix);
 
2613
    #mtr_add_arg($args, "%s--init-rpl-role=master", $prefix);
 
2614
  }
 
2615
  elsif ( $mysqld->{'type'} eq 'master' )
 
2616
  {
 
2617
    mtr_add_arg($args, "%s--open-files-limit=1024", $prefix);
 
2618
  }
 
2619
 
2533
2620
  return $args;
2534
2621
}
2535
2622
 
2583
2670
  {
2584
2671
    ddd_arguments(\$args, \$exe, "$type"."_$idx");
2585
2672
  }
2586
 
  if ( $opt_dbx || $opt_manual_dbx)
2587
 
  {
2588
 
    dbx_arguments(\$args, \$exe, "$type"."_$idx");
2589
 
  }
2590
2673
  elsif ( $opt_debugger )
2591
2674
  {
2592
2675
    debugger_arguments(\$args, \$exe, "$type"."_$idx");
2655
2738
  {
2656
2739
    if ( $mysqld->{'pid'} )
2657
2740
    {
2658
 
      $pid= mtr_server_shutdown($mysqld);
 
2741
      $pid= mtr_mysqladmin_start($mysqld, "shutdown", 70);
2659
2742
      $admin_pids{$pid}= 1;
2660
2743
 
2661
2744
      push(@kill_pids,{
2717
2800
    my $diff_opts= mtr_diff_opts($master->[0]->{'start_opts'},$tinfo->{'master_opt'});
2718
2801
    if (scalar(@$diff_opts) eq 2) 
2719
2802
    {
2720
 
      $do_restart= 1;
 
2803
      $do_restart= 1 unless ($diff_opts->[0] =~/^--binlog-format=/ and $diff_opts->[1] =~/^--binlog-format=/);
2721
2804
    }
2722
2805
    else
2723
2806
    {
2813
2896
    {
2814
2897
      if ( $mysqld->{'pid'} )
2815
2898
      {
2816
 
        $pid= mtr_server_shutdown($mysqld);
2817
 
 
2818
 
        $admin_pids{$pid}= 1;
2819
 
 
2820
 
        push(@kill_pids,{
2821
 
              pid      => $mysqld->{'pid'},
2822
 
              real_pid => $mysqld->{'real_pid'},
2823
 
              pidfile  => $mysqld->{'path_pid'},
2824
 
              sockfile => $mysqld->{'path_sock'},
2825
 
              port     => $mysqld->{'port'},
2826
 
              errfile   => $mysqld->{'path_myerr'},
2827
 
        });
2828
 
 
2829
 
        $mysqld->{'pid'}= 0; # Assume we are done with it
 
2899
        $pid= mtr_mysqladmin_start($mysqld, "shutdown", 20);
 
2900
 
 
2901
        $admin_pids{$pid}= 1;
 
2902
 
 
2903
        push(@kill_pids,{
 
2904
                         pid      => $mysqld->{'pid'},
 
2905
                         real_pid => $mysqld->{'real_pid'},
 
2906
                         pidfile  => $mysqld->{'path_pid'},
 
2907
                         sockfile => $mysqld->{'path_sock'},
 
2908
                         port     => $mysqld->{'port'},
 
2909
                         errfile   => $mysqld->{'path_myerr'},
 
2910
                        });
 
2911
 
 
2912
        $mysqld->{'pid'}= 0; # Assume we are done with it
2830
2913
      }
2831
2914
    }
2832
2915
  }
2841
2924
    {
2842
2925
      if ( $mysqld->{'pid'} )
2843
2926
      {
2844
 
        $pid= mtr_server_shutdown($mysqld);
2845
 
 
2846
 
        $admin_pids{$pid}= 1;
2847
 
 
2848
 
        push(@kill_pids,{
2849
 
              pid      => $mysqld->{'pid'},
2850
 
              real_pid => $mysqld->{'real_pid'},
2851
 
              pidfile  => $mysqld->{'path_pid'},
2852
 
              sockfile => $mysqld->{'path_sock'},
2853
 
              port     => $mysqld->{'port'},
2854
 
              errfile  => $mysqld->{'path_myerr'},
2855
 
        });
2856
 
 
2857
 
        $mysqld->{'pid'}= 0; # Assume we are done with it
 
2927
        $pid= mtr_mysqladmin_start($mysqld, "shutdown", 20);
 
2928
 
 
2929
        $admin_pids{$pid}= 1;
 
2930
 
 
2931
        push(@kill_pids,{
 
2932
                         pid      => $mysqld->{'pid'},
 
2933
                         real_pid => $mysqld->{'real_pid'},
 
2934
                         pidfile  => $mysqld->{'path_pid'},
 
2935
                         sockfile => $mysqld->{'path_sock'},
 
2936
                         port     => $mysqld->{'port'},
 
2937
                         errfile   => $mysqld->{'path_myerr'},
 
2938
                        });
 
2939
 
 
2940
 
 
2941
        $mysqld->{'pid'}= 0; # Assume we are done with it
2858
2942
      }
2859
2943
    }
2860
2944
  }
2978
3062
    mtr_add_arg($args, "--record");
2979
3063
  }
2980
3064
 
2981
 
  if ( $opt_testdir )
2982
 
  {
2983
 
    mtr_add_arg($args, "--testdir=%s", $opt_testdir);
2984
 
  }
2985
 
 
2986
3065
  my $res = mtr_run_test($exe_drizzletest,$args,
2987
3066
                "include/check-testcase.test", "", "", "");
2988
3067
 
3089
3168
                $path_vardir_trace);
3090
3169
  }
3091
3170
 
3092
 
  if ( $opt_testdir )
3093
 
  {
3094
 
    mtr_add_arg($args, "--testdir=%s", $opt_testdir);
3095
 
  }
3096
 
 
3097
 
 
3098
3171
  # ----------------------------------------------------------------------
3099
3172
  # export DRIZZLE_TEST variable containing <path>/drizzletest <args>
3100
3173
  # ----------------------------------------------------------------------
3175
3248
 
3176
3249
}
3177
3250
 
3178
 
#
3179
 
# Modify the exe and args so that program is run in gdb in xterm
3180
 
#
3181
 
sub dbx_arguments {
3182
 
  my $args= shift;
3183
 
  my $exe=  shift;
3184
 
  my $type= shift;
3185
 
 
3186
 
  # Write $args to gdb init file
3187
 
  my $str= join(" ", @$$args);
3188
 
  my $dbx_init_file= "$opt_tmpdir/dbxinit.$type";
3189
 
 
3190
 
  # Remove the old gdbinit file
3191
 
  unlink($dbx_init_file);
3192
 
  if ( $type eq "client" )
3193
 
  {
3194
 
    # write init file for client
3195
 
    mtr_tofile($dbx_init_file,
3196
 
               "runargs $str\n" .
3197
 
               "run\n");
3198
 
  }
3199
 
  else
3200
 
  {
3201
 
    # write init file for drizzled
3202
 
    mtr_tofile($dbx_init_file,
3203
 
               "stop in mysql_parse\n" .
3204
 
               "runargs $str\n" .
3205
 
               "run\n" .
3206
 
               "\n");
3207
 
  }
3208
 
 
3209
 
  if ( $opt_manual_dbx )
3210
 
  {
3211
 
     print "\nTo start dbx for $type, type in another window:\n";
3212
 
     print "dbx -c 'source $dbx_init_file' $$exe\n";
3213
 
 
3214
 
     # Indicate the exe should not be started
3215
 
     $$exe= undef;
3216
 
     return;
3217
 
  }
3218
 
 
3219
 
  $$args= [];
3220
 
  mtr_add_arg($$args, "-title");
3221
 
  mtr_add_arg($$args, "$type");
3222
 
  mtr_add_arg($$args, "-e");
3223
 
 
3224
 
  mtr_add_arg($$args, "dbx");
3225
 
  mtr_add_arg($$args, "-c");
3226
 
  mtr_add_arg($$args, "source $dbx_init_file");
3227
 
  mtr_add_arg($$args, "$$exe");
3228
 
 
3229
 
  $$exe= "xterm";
3230
 
}
3231
3251
 
3232
3252
#
3233
3253
# Modify the exe and args so that program is run in gdb in xterm
3374
3394
    $$exe= $debugger;
3375
3395
 
3376
3396
  }
3377
 
  #elsif ( $debugger eq "dbx" )
3378
 
  #{
3379
 
  #  # xterm -e dbx -r exe arg1 .. argn
3380
 
#
3381
 
#    unshift(@$$args, $$exe);
3382
 
#    unshift(@$$args, "-r");
3383
 
#    unshift(@$$args, $debugger);
3384
 
#    unshift(@$$args, "-e");
3385
 
#
3386
 
#    $$exe= "xterm";
3387
 
#
3388
 
#  }
 
3397
  elsif ( $debugger eq "dbx" )
 
3398
  {
 
3399
    # xterm -e dbx -r exe arg1 .. argn
 
3400
 
 
3401
    unshift(@$$args, $$exe);
 
3402
    unshift(@$$args, "-r");
 
3403
    unshift(@$$args, $debugger);
 
3404
    unshift(@$$args, "-e");
 
3405
 
 
3406
    $$exe= "xterm";
 
3407
 
 
3408
  }
3389
3409
  else
3390
3410
  {
3391
3411
    mtr_error("Unknown argument \"$debugger\" passed to --debugger");
3408
3428
  else
3409
3429
  {
3410
3430
    mtr_add_arg($args, "--tool=memcheck"); # From >= 2.1.2 needs this option
 
3431
    mtr_add_arg($args, "--alignment=8");
3411
3432
    mtr_add_arg($args, "--leak-check=yes");
3412
3433
    mtr_add_arg($args, "--num-callers=16");
3413
3434
    mtr_add_arg($args, "--suppressions=%s/valgrind.supp", $glob_mysql_test_dir)
3449
3470
  return 0;
3450
3471
}
3451
3472
 
3452
 
sub collapse_path ($) {
3453
 
 
3454
 
    my $c_path= rel2abs(shift);
3455
 
    my $updir  = updir($c_path);
3456
 
    my $curdir = curdir($c_path);
3457
 
 
3458
 
    my($vol, $dirs, $file) = splitpath($c_path);
3459
 
    my @dirs = splitdir($dirs);
3460
 
 
3461
 
    my @collapsed;
3462
 
    foreach my $dir (@dirs) {
3463
 
        if( $dir eq $updir              and   # if we have an updir
3464
 
            @collapsed                  and   # and something to collapse
3465
 
            length $collapsed[-1]       and   # and its not the rootdir
3466
 
            $collapsed[-1] ne $updir    and   # nor another updir
3467
 
            $collapsed[-1] ne $curdir         # nor the curdir
3468
 
          )
3469
 
        {                                     # then
3470
 
            pop @collapsed;                   # collapse
3471
 
        }
3472
 
        else {                                # else
3473
 
            push @collapsed, $dir;            # just hang onto it
3474
 
        }
3475
 
    }
3476
 
 
3477
 
    return catpath($vol, catdir(@collapsed), $file);
3478
 
}
3479
3473
 
3480
3474
##############################################################################
3481
3475
#
3530
3524
                        list of suite names.
3531
3525
                        The default is: "$opt_suites_default"
3532
3526
  skip-rpl              Skip the replication test cases.
 
3527
  big-test              Set the environment variable BIG_TEST, which can be
 
3528
                        checked from test cases.
3533
3529
  combination="ARG1 .. ARG2" Specify a set of "mysqld" arguments for one
3534
3530
                        combination.
3535
3531
  skip-combination      Skip any combination options and combinations files
3536
 
  repeat-test=n         How many times to repeat each test (default: 1)
3537
3532
 
3538
3533
Options that specify ports
3539
3534