← Back to branch summary

~drizzle-trunk/drizzle/development

« back to all changes in this revision

Viewing changes to tests/test-run.pl

  • Committer: Padraig O'Sullivan
  • Date: 2009-09-13 01:03:01 UTC
  • mto: (1126.9.2 captain-20090915-01)
  • mto: This revision was merged to the branch mainline in revision 1133.
  • Revision ID: osullivan.padraig@gmail.com-20090913010301-tcvvezipx1124acy
Added calls to the dtrace delete begin/end probes.

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/test-run.pl
98
98
##############################################################################
99
99
 
100
100
# Misc global variables
101
 
our $drizzle_version_id;
102
 
our $glob_suite_path=             undef;
 
101
our $mysql_version_id;
103
102
our $glob_mysql_test_dir=         undef;
104
103
our $glob_mysql_bench_dir=        undef;
105
104
our $glob_scriptname=             undef;
120
119
our $opt_vardir;                 # A path but set directly on cmd line
121
120
our $path_vardir_trace;          # unix formatted opt_vardir for trace files
122
121
our $opt_tmpdir;                 # A path but set directly on cmd line
123
 
our $opt_suitepath;
124
122
our $opt_testdir;
125
123
 
126
124
our $opt_subunit;
129
127
 
130
128
our $opt_usage;
131
129
our $opt_suites;
132
 
our $opt_suites_default= "main,jp"; # Default suites to run
 
130
our $opt_suites_default= "main"; # Default suites to run
133
131
our $opt_script_debug= 0;  # Script debugging, enable with --script-debug
134
132
our $opt_verbose= 0;  # Verbose output, enable with --verbose
135
133
 
151
149
our $lib_udf_example;
152
150
our $lib_example_plugin;
153
151
our $exe_libtool;
154
 
our $exe_schemawriter;
155
152
 
156
153
our $opt_bench= 0;
157
154
our $opt_small_bench= 0;
209
206
 
210
207
our $opt_master_myport;
211
208
our $opt_slave_myport;
212
 
our $opt_memc_myport;
213
209
our $opt_record;
214
210
my $opt_report_features;
215
211
our $opt_check_testcases;
245
241
my @valgrind_args;
246
242
my $opt_valgrind_path;
247
243
my $opt_callgrind;
248
 
my $opt_massif;
249
244
 
250
245
our $opt_stress=               "";
251
246
our $opt_stress_suite=     "main";
272
267
 
273
268
our $opt_max_save_core= 5;
274
269
my $num_saved_cores= 0;  # Number of core files saved in vardir/log/ so far.
275
 
our $secondary_port_offset= 50;
276
270
 
277
271
######################################################################
278
272
#
485
479
             # Specify ports
486
480
             'master_port=i'            => \$opt_master_myport,
487
481
             'slave_port=i'             => \$opt_slave_myport,
488
 
             'memc_port=i'              => \$opt_memc_myport,
489
482
             'mtr-build-thread=i'       => \$opt_mtr_build_thread,
490
483
 
491
484
             # Test case authoring
541
534
             'valgrind-option=s'        => \@valgrind_args,
542
535
             'valgrind-path=s'          => \$opt_valgrind_path,
543
536
             'callgrind'                => \$opt_callgrind,
544
 
             'massif'                   => \$opt_massif,
545
537
 
546
538
             # Stress testing 
547
539
             'stress'                   => \$opt_stress,
557
549
             # Directories
558
550
             'tmpdir=s'                 => \$opt_tmpdir,
559
551
             'vardir=s'                 => \$opt_vardir,
560
 
             'suitepath=s'              => \$opt_suitepath,
561
 
             'testdir=s'                => \$opt_testdir,
 
552
             'testdir=s'                => \$opt_testdir,
562
553
             'benchdir=s'               => \$glob_mysql_bench_dir,
563
554
             'mem'                      => \$opt_mem,
564
555
 
621
612
  }
622
613
  $default_vardir= "$glob_mysql_test_dir/var";
623
614
 
624
 
  if ( ! $opt_suitepath )
625
 
  {
626
 
    $glob_suite_path= "$glob_mysql_test_dir/../plugin";
627
 
  }
628
 
  else
629
 
  {
630
 
    $glob_suite_path= $opt_suitepath;
631
 
  }
632
615
  # In most cases, the base directory we find everything relative to,
633
616
  # is the parent directory of the "mysql-test" directory. For source
634
617
  # distributions, TAR binary distributions and some other packages.
870
853
      unless @valgrind_args;
871
854
  }
872
855
 
873
 
  if ( $opt_massif )
874
 
  {
875
 
    mtr_report("Valgrind with Massif tool for drizzled(s)");
876
 
    $opt_valgrind= 1;
877
 
    $opt_valgrind_mysqld= 1;
878
 
  }
879
 
 
880
856
  if ( $opt_valgrind )
881
857
  {
882
858
    # Set valgrind_options to default unless already defined
924
900
 
925
901
  $master->[0]=
926
902
  {
927
 
   pid            => 0,
928
 
   type           => "master",
929
 
   idx            => 0,
930
 
   path_myddir    => "$opt_vardir/master-data",
931
 
   path_myerr     => "$opt_vardir/log/master.err",
932
 
   path_pid       => "$opt_vardir/run/master.pid",
933
 
   path_sock      => "$sockdir/master.sock",
934
 
   port           =>  $opt_master_myport,
935
 
   secondary_port =>  $opt_master_myport + $secondary_port_offset,
936
 
   start_timeout  =>  400, # enough time create innodb tables
937
 
   cluster        =>  0, # index in clusters list
938
 
   start_opts     => [],
 
903
   pid           => 0,
 
904
   type          => "master",
 
905
   idx           => 0,
 
906
   path_myddir   => "$opt_vardir/master-data",
 
907
   path_myerr    => "$opt_vardir/log/master.err",
 
908
   path_pid      => "$opt_vardir/run/master.pid",
 
909
   path_sock     => "$sockdir/master.sock",
 
910
   port          =>  $opt_master_myport,
 
911
   start_timeout =>  400, # enough time create innodb tables
 
912
   cluster       =>  0, # index in clusters list
 
913
   start_opts    => [],
939
914
  };
940
915
 
941
916
  $master->[1]=
942
917
  {
943
 
   pid            => 0,
944
 
   type           => "master",
945
 
   idx            => 1,
946
 
   path_myddir    => "$opt_vardir/master1-data",
947
 
   path_myerr     => "$opt_vardir/log/master1.err",
948
 
   path_pid       => "$opt_vardir/run/master1.pid",
949
 
   path_sock      => "$sockdir/master1.sock",
950
 
   port           => $opt_master_myport + 1,
951
 
   secondary_port => $opt_master_myport + 1 + $secondary_port_offset,
952
 
   start_timeout  => 400, # enough time create innodb tables
953
 
   cluster        =>  0, # index in clusters list
954
 
   start_opts     => [],
 
918
   pid           => 0,
 
919
   type          => "master",
 
920
   idx           => 1,
 
921
   path_myddir   => "$opt_vardir/master1-data",
 
922
   path_myerr    => "$opt_vardir/log/master1.err",
 
923
   path_pid      => "$opt_vardir/run/master1.pid",
 
924
   path_sock     => "$sockdir/master1.sock",
 
925
   port          => $opt_master_myport + 1,
 
926
   start_timeout => 400, # enough time create innodb tables
 
927
   cluster       =>  0, # index in clusters list
 
928
   start_opts    => [],
955
929
  };
956
930
 
957
931
  $slave->[0]=
958
932
  {
959
 
   pid            => 0,
960
 
   type           => "slave",
961
 
   idx            => 0,
962
 
   path_myddir    => "$opt_vardir/slave-data",
963
 
   path_myerr     => "$opt_vardir/log/slave.err",
964
 
   path_pid       => "$opt_vardir/run/slave.pid",
965
 
   path_sock      => "$sockdir/slave.sock",
966
 
   port           => $opt_slave_myport,
967
 
   secondary_port => $opt_slave_myport + $secondary_port_offset,
968
 
   start_timeout  => 400,
969
 
   cluster        =>  1, # index in clusters list
970
 
   start_opts     => [],
 
933
   pid           => 0,
 
934
   type          => "slave",
 
935
   idx           => 0,
 
936
   path_myddir   => "$opt_vardir/slave-data",
 
937
   path_myerr    => "$opt_vardir/log/slave.err",
 
938
   path_pid    => "$opt_vardir/run/slave.pid",
 
939
   path_sock   => "$sockdir/slave.sock",
 
940
   port   => $opt_slave_myport,
 
941
   start_timeout => 400,
 
942
 
 
943
   cluster       =>  1, # index in clusters list
 
944
   start_opts    => [],
971
945
  };
972
946
 
973
947
  $slave->[1]=
974
948
  {
975
 
   pid            => 0,
976
 
   type           => "slave",
977
 
   idx            => 1,
978
 
   path_myddir    => "$opt_vardir/slave1-data",
979
 
   path_myerr     => "$opt_vardir/log/slave1.err",
980
 
   path_pid       => "$opt_vardir/run/slave1.pid",
981
 
   path_sock      => "$sockdir/slave1.sock",
982
 
   port           => $opt_slave_myport + 1,
983
 
   secondary_port => $opt_slave_myport + 1 + $secondary_port_offset,
984
 
   start_timeout  => 300,
985
 
   cluster        =>  -1, # index in clusters list
986
 
   start_opts     => [],
 
949
   pid           => 0,
 
950
   type          => "slave",
 
951
   idx           => 1,
 
952
   path_myddir   => "$opt_vardir/slave1-data",
 
953
   path_myerr    => "$opt_vardir/log/slave1.err",
 
954
   path_pid    => "$opt_vardir/run/slave1.pid",
 
955
   path_sock   => "$sockdir/slave1.sock",
 
956
   port   => $opt_slave_myport + 1,
 
957
   start_timeout => 300,
 
958
   cluster       =>  -1, # index in clusters list
 
959
   start_opts    => [],
987
960
  };
988
961
 
989
962
  $slave->[2]=
990
963
  {
991
 
   pid            => 0,
992
 
   type           => "slave",
993
 
   idx            => 2,
994
 
   path_myddir    => "$opt_vardir/slave2-data",
995
 
   path_myerr     => "$opt_vardir/log/slave2.err",
996
 
   path_pid       => "$opt_vardir/run/slave2.pid",
997
 
   path_sock      => "$sockdir/slave2.sock",
998
 
   port           => $opt_slave_myport + 2,
999
 
   secondary_port => $opt_slave_myport + 2 + $secondary_port_offset,
1000
 
   start_timeout  => 300,
1001
 
   cluster        =>  -1, # index in clusters list
1002
 
   start_opts     => [],
 
964
   pid           => 0,
 
965
   type          => "slave",
 
966
   idx           => 2,
 
967
   path_myddir   => "$opt_vardir/slave2-data",
 
968
   path_myerr    => "$opt_vardir/log/slave2.err",
 
969
   path_pid    => "$opt_vardir/run/slave2.pid",
 
970
   path_sock   => "$sockdir/slave2.sock",
 
971
   port   => $opt_slave_myport + 2,
 
972
   start_timeout => 300,
 
973
   cluster       =>  -1, # index in clusters list
 
974
   start_opts    => [],
1003
975
  };
1004
976
 
1005
977
 
1043
1015
  }
1044
1016
}
1045
1017
 
1046
 
sub gimme_a_good_port($)
1047
 
{
1048
 
  my $port_to_test= shift;
1049
 
  my $is_port_bad= 1;
1050
 
  while ($is_port_bad) {
1051
 
    my $sock = new IO::Socket::INET( PeerAddr => 'localhost',
1052
 
                                     PeerPort => $port_to_test,
1053
 
                                     Proto => 'tcp' );
1054
 
    if ($sock) {
1055
 
      close($sock);
1056
 
      $port_to_test += 1;
1057
 
      if ($port_to_test >= 32767) {
1058
 
        $port_to_test = 5001;
1059
 
      }
1060
 
 
1061
 
    } else {
1062
 
      $is_port_bad= 0;
1063
 
    }
1064
 
  }
1065
 
  return $port_to_test;
1066
 
 
1067
 
}
1068
1018
#
1069
1019
# To make it easier for different devs to work on the same host,
1070
1020
# an environment variable can be used to control all ports. A small
1094
1044
 
1095
1045
  # Up to two masters, up to three slaves
1096
1046
  # A magic value in command_line_setup depends on these equations.
1097
 
  $opt_master_myport=         gimme_a_good_port($mtr_build_thread + 9000); # and 1
1098
 
 
1099
 
 
1100
 
  $opt_slave_myport=          gimme_a_good_port($opt_master_myport + 2);  # and 3 4
1101
 
  $opt_memc_myport= gimme_a_good_port($opt_master_myport + 10);
 
1047
  $opt_master_myport=         $mtr_build_thread + 9000; # and 1
 
1048
  $opt_slave_myport=          $opt_master_myport + 2;  # and 3 4
1102
1049
 
1103
1050
  if ( $opt_master_myport < 5001 or $opt_master_myport + 10 >= 32767 )
1104
1051
  {
1149
1096
  foreach my $line (split('\n', $list))
1150
1097
  {
1151
1098
    # First look for version
1152
 
    if ( !$drizzle_version_id )
 
1099
    if ( !$mysql_version_id )
1153
1100
    {
1154
1101
      # Look for version
1155
1102
      my $exe_name= basename($exe_drizzled);
1157
1104
      if ( $line =~ /^\S*$exe_name\s\sVer\s([0-9]*)\.([0-9]*)\.([0-9]*)/ )
1158
1105
      {
1159
1106
        #print "Major: $1 Minor: $2 Build: $3\n";
1160
 
        $drizzle_version_id= $1*10000 + $2*100 + $3;
1161
 
        #print "drizzle_version_id: $drizzle_version_id\n";
1162
 
        mtr_report("Drizzle Version $1.$2.$3");
 
1107
        $mysql_version_id= $1*10000 + $2*100 + $3;
 
1108
        #print "mysql_version_id: $mysql_version_id\n";
 
1109
        mtr_report("MySQL Version $1.$2.$3");
1163
1110
      }
1164
1111
    }
1165
1112
    else
1200
1147
    }
1201
1148
  }
1202
1149
  rmtree($tmpdir);
1203
 
  mtr_error("Could not find version of Drizzle") unless $drizzle_version_id;
 
1150
  mtr_error("Could not find version of MySQL") unless $mysql_version_id;
1204
1151
  mtr_error("Could not find variabes list") unless $found_variable_list_start;
1205
1152
 
1206
1153
}
1275
1222
  if (!$opt_extern)
1276
1223
  {
1277
1224
# Look for SQL scripts directory
1278
 
     if ( $drizzle_version_id >= 50100 )
 
1225
     if ( $mysql_version_id >= 50100 )
1279
1226
     {
1280
1227
         $exe_drizzleslap= mtr_exe_exists("$path_client_bindir/drizzleslap");
1281
1228
     }
1282
1229
  }
1283
1230
 
1284
 
# Look for schema_writer
1285
 
  {
1286
 
    $exe_schemawriter= mtr_exe_exists("$glob_basedir/drizzled/message/schema_writer",
1287
 
                                      "$glob_builddir/drizzled/message/schema_writer");
1288
 
  }
1289
 
 
1290
1231
# Look for drizzletest executable
1291
1232
  {
1292
1233
    $exe_drizzletest= mtr_exe_exists("$path_client_bindir/drizzletest");
1314
1255
  my($mysqld) = @_;
1315
1256
  return
1316
1257
    mtr_native_path($exe_drizzledump) .
1317
 
      " --no-defaults -uroot " .
 
1258
      " --no-defaults -uroot --debug-check " .
1318
1259
      "--port=$mysqld->{'port'} ";
1319
1260
}
1320
1261
 
1342
1283
  mtr_add_arg($args, "--user=root");
1343
1284
  mtr_add_arg($args, "--port=$master->[0]->{'port'}");
1344
1285
 
1345
 
  if ( $opt_extern || $drizzle_version_id >= 50000 )
 
1286
  if ( $opt_extern || $mysql_version_id >= 50000 )
1346
1287
  {
1347
1288
    mtr_add_arg($args, "--vardir=$opt_vardir")
1348
1289
  }
1457
1398
  $ENV{'SLAVE_MYPORT'}=       $slave->[0]->{'port'};
1458
1399
  $ENV{'SLAVE_MYPORT1'}=      $slave->[1]->{'port'};
1459
1400
  $ENV{'SLAVE_MYPORT2'}=      $slave->[2]->{'port'};
1460
 
  $ENV{'MC_PORT'}=            $opt_memc_myport;
1461
 
  $ENV{'DRIZZLE_TCP_PORT'}=     $mysqld_variables{'drizzle-protocol-port'};
 
1401
  $ENV{'DRIZZLE_TCP_PORT'}=     $mysqld_variables{'port'};
1462
1402
 
1463
1403
  $ENV{'MTR_BUILD_THREAD'}=      $opt_mtr_build_thread;
1464
1404
 
1470
1410
  # ----------------------------------------------------
1471
1411
  my $cmdline_mysqldump= generate_cmdline_mysqldump($master->[0]);
1472
1412
  my $cmdline_mysqldumpslave= generate_cmdline_mysqldump($slave->[0]);
1473
 
  my $cmdline_mysqldump_secondary= mtr_native_path($exe_drizzledump) .
1474
 
       " --no-defaults -uroot " .
1475
 
       " --port=$master->[0]->{'secondary_port'} ";
1476
1413
 
1477
1414
  if ( $opt_debug )
1478
1415
  {
1480
1417
      " --debug=d:t:A,$path_vardir_trace/log/mysqldump-master.trace";
1481
1418
    $cmdline_mysqldumpslave .=
1482
1419
      " --debug=d:t:A,$path_vardir_trace/log/mysqldump-slave.trace";
1483
 
    $cmdline_mysqldump_secondary .=
1484
 
      " --debug=d:t:A,$path_vardir_trace/log/mysqldump-mysql.trace";
1485
1420
  }
1486
1421
  $ENV{'DRIZZLE_DUMP'}= $cmdline_mysqldump;
1487
1422
  $ENV{'DRIZZLE_DUMP_SLAVE'}= $cmdline_mysqldumpslave;
1488
 
  $ENV{'DRIZZLE_DUMP_SECONDARY'}= $cmdline_mysqldump_secondary;
1489
1423
 
1490
1424
  # ----------------------------------------------------
1491
1425
  # Setup env so childs can execute mysqlslap
1496
1430
      mtr_native_path($exe_drizzleslap) .
1497
1431
      " -uroot " .
1498
1432
      "--port=$master->[0]->{'port'} ";
1499
 
    my $cmdline_drizzleslap_secondary=
1500
 
      mtr_native_path($exe_drizzleslap) .
1501
 
      " -uroot " .
1502
 
      " --port=$master->[0]->{'secondary_port'} ";
1503
1433
 
1504
1434
    if ( $opt_debug )
1505
1435
   {
1506
1436
      $cmdline_drizzleslap .=
1507
1437
        " --debug=d:t:A,$path_vardir_trace/log/drizzleslap.trace";
1508
 
      $cmdline_drizzleslap_secondary .=
1509
 
        " --debug=d:t:A,$path_vardir_trace/log/drizzleslap.trace";
1510
1438
    }
1511
1439
    $ENV{'DRIZZLE_SLAP'}= $cmdline_drizzleslap;
1512
 
    $ENV{'DRIZZLE_SLAP_SECONDARY'}= $cmdline_drizzleslap_secondary;
1513
1440
  }
1514
1441
 
1515
1442
 
1519
1446
  # ----------------------------------------------------
1520
1447
  my $cmdline_mysqlimport=
1521
1448
    mtr_native_path($exe_drizzleimport) .
1522
 
    " -uroot " .
 
1449
    " -uroot --debug-check " .
1523
1450
    "--port=$master->[0]->{'port'} ";
1524
1451
 
1525
1452
  if ( $opt_debug )
1535
1462
  # ----------------------------------------------------
1536
1463
  my $cmdline_mysql=
1537
1464
    mtr_native_path($exe_drizzle) .
1538
 
    " --no-defaults --host=localhost  --user=root --password= " .
 
1465
    " --no-defaults --debug-check --host=localhost  --user=root --password= " .
1539
1466
    "--port=$master->[0]->{'port'} ";
1540
 
  my $cmdline_drizzle_secondary=
1541
 
    mtr_native_path($exe_drizzle) .
1542
 
    " --no-defaults --host=localhost  --user=root --password= " .
1543
 
    " --port=$master->[0]->{'secondary_port'} ";
1544
1467
 
1545
1468
  $ENV{'MYSQL'}= $cmdline_mysql;
1546
 
  $ENV{'DRIZZLE_SECONDARY'}= $cmdline_drizzle_secondary;
1547
1469
 
1548
1470
  # ----------------------------------------------------
1549
1471
  # Setup env so childs can execute bug25714
1617
1539
    print "Using SLAVE_MYPORT          = $ENV{SLAVE_MYPORT}\n";
1618
1540
    print "Using SLAVE_MYPORT1         = $ENV{SLAVE_MYPORT1}\n";
1619
1541
    print "Using SLAVE_MYPORT2         = $ENV{SLAVE_MYPORT2}\n";
1620
 
    print "Using MC_PORT               = $ENV{MC_PORT}\n";
1621
1542
  }
1622
1543
 
1623
1544
  # Create an environment variable to make it possible
1807
1728
  foreach my $data_dir (@data_dir_lst)
1808
1729
  {
1809
1730
    mkpath("$data_dir/mysql");
1810
 
    system("$exe_schemawriter mysql $data_dir/mysql/db.opt");
1811
 
 
1812
1731
    mkpath("$data_dir/test");
1813
 
    system("$exe_schemawriter test $data_dir/test/db.opt");
1814
1732
  }
1815
1733
 
1816
1734
  # Make a link std_data_ln in var/ that points to std_data
2502
2420
    mtr_add_arg($args, "%s--default-storage-engine=%s", $prefix, $opt_engine);
2503
2421
  }
2504
2422
 
2505
 
  if ( $drizzle_version_id >= 50036)
 
2423
  if ( $mysql_version_id >= 50036)
2506
2424
  {
2507
2425
    # By default, prevent the started mysqld to access files outside of vardir
2508
2426
    mtr_add_arg($args, "%s--secure-file-priv=%s", $prefix, $opt_vardir);
2513
2431
  # Increase default connect_timeout to avoid intermittent
2514
2432
  # disconnects when test servers are put under load
2515
2433
  # see BUG#28359
2516
 
  mtr_add_arg($args, "%s--mysql-protocol-connect-timeout=60", $prefix);
 
2434
  mtr_add_arg($args, "%s--oldlibdrizzle-connect-timeout=60", $prefix);
2517
2435
 
2518
2436
 
2519
2437
  # When mysqld is run by a root user(euid is 0), it will fail
2526
2444
  mtr_add_arg($args, "%s--pid-file=%s", $prefix,
2527
2445
              $mysqld->{'path_pid'});
2528
2446
 
2529
 
  mtr_add_arg($args, "%s--mysql-protocol-port=%d", $prefix,
2530
 
              $mysqld->{'port'});
2531
 
 
2532
 
  mtr_add_arg($args, "%s--drizzle-protocol-port=%d", $prefix,
2533
 
              $mysqld->{'secondary_port'});
 
2447
  mtr_add_arg($args, "%s--port=%d", $prefix,
 
2448
                $mysqld->{'port'});
2534
2449
 
2535
2450
  mtr_add_arg($args, "%s--datadir=%s", $prefix,
2536
2451
              $mysqld->{'path_myddir'});
2546
2461
 
2547
2462
    mtr_add_arg($args, "%s--loose-innodb-lock-wait-timeout=5", $prefix);
2548
2463
 
 
2464
    if ( $idx > 0 or !$use_innodb)
 
2465
    {
 
2466
      mtr_add_arg($args, "%s--loose-skip-innodb", $prefix);
 
2467
    }
2549
2468
  }
2550
2469
  else
2551
2470
  {
2578
2497
                $prefix, $path_vardir_trace, $mysqld->{'type'}, $sidx);
2579
2498
  }
2580
2499
 
2581
 
  mtr_add_arg($args, "%s--myisam_key_cache_size=1M", $prefix);
 
2500
  mtr_add_arg($args, "%s--key_buffer_size=1M", $prefix);
2582
2501
  mtr_add_arg($args, "%s--sort_buffer=256K", $prefix);
2583
2502
  mtr_add_arg($args, "%s--max_heap_table_size=1M", $prefix);
2584
2503
 
3281
3200
  {
3282
3201
    # write init file for drizzled
3283
3202
    mtr_tofile($dbx_init_file,
3284
 
               "stop in __1cIdrizzledLmysql_parse6Fpn0AHSession_pkcI_v_\n" .
 
3203
               "stop in mysql_parse\n" .
3285
3204
               "runargs $str\n" .
3286
3205
               "run\n" .
3287
3206
               "\n");
3337
3256
    # write init file for mysqld
3338
3257
    mtr_tofile($gdb_init_file,
3339
3258
               "set args $str\n" .
3340
 
               "break drizzled::mysql_parse\n" .
 
3259
               "break mysql_parse\n" .
3341
3260
               "commands 1\n" .
3342
3261
               "disable 1\n" .
3343
3262
               "end\n" .
3402
3321
    mtr_tofile($gdb_init_file,
3403
3322
               "file $$exe\n" .
3404
3323
               "set args $str\n" .
3405
 
               "break drizzled::mysql_parse\n" .
 
3324
               "break mysql_parse\n" .
3406
3325
               "commands 1\n" .
3407
3326
               "disable 1\n" .
3408
3327
               "end");
3486
3405
    mtr_add_arg($args, "--tool=callgrind");
3487
3406
    mtr_add_arg($args, "--base=$opt_vardir/log");
3488
3407
  }
3489
 
  elsif ($opt_massif)
3490
 
  {
3491
 
    mtr_add_arg($args, "--tool=massif");
3492
 
  }
3493
3408
  else
3494
3409
  {
3495
3410
    mtr_add_arg($args, "--tool=memcheck"); # From >= 2.1.2 needs this option
3679
3594
                        can be specified more then once
3680
3595
  valgrind-path=[EXE]   Path to the valgrind executable
3681
3596
  callgrind             Instruct valgrind to use callgrind
3682
 
  massif                Instruct valgrind to use massif
3683
3597
 
3684
3598
Misc options
3685
3599