~drizzle-trunk/drizzle/development

« back to all changes in this revision

Viewing changes to tests/test-run.pl

  • Committer: patrick crews
  • Date: 2010-09-16 14:38:00 UTC
  • mfrom: (1768 staging)
  • mto: (1771.1.1 pcrews)
  • mto: This revision was merged to the branch mainline in revision 1772.
  • Revision ID: gleebix@gmail.com-20100916143800-hyu1tcfnjcowfnpb
Merge with trunk

Show diffs side-by-side

added added

removed removed

Lines of Context:
149
149
our $exe_drizzle_fix_system_tables;
150
150
our $exe_drizzletest;
151
151
our $exe_slave_mysqld;
152
 
our $exe_my_print_defaults;
153
152
our $exe_perror;
154
153
our $lib_udf_example;
155
154
our $lib_example_plugin;
1169
1168
  my $tmpdir= tempdir(CLEANUP => 0); # Directory removed by this function
1170
1169
 
1171
1170
  #
1172
 
  # Execute "mysqld --help --verbose" to get a list
 
1171
  # Execute "drizzled --help" to get a list
1173
1172
  # list of all features and settings
1174
1173
  #
1175
 
  # --no-defaults and --skip-grant-tables are to avoid loading
 
1174
  # --no-defaults are to avoid loading
1176
1175
  # system-wide configs and plugins
1177
1176
  #
1178
 
  # --datadir must exist, mysqld will chdir into it
1179
 
  #
1180
 
  my $list= `$exe_drizzled --no-defaults --datadir=$tmpdir --skip-grant-tables --print-defaults`;
 
1177
  my $list= `$exe_drizzled --no-defaults --help`;
1181
1178
 
1182
1179
  foreach my $line (split('\n', $list))
1183
1180
  {
1195
1192
        mtr_report("Drizzle Version $1.$2.$3");
1196
1193
      }
1197
1194
    }
1198
 
    else
1199
 
    {
1200
 
      if (!$found_variable_list_start)
1201
 
      {
1202
 
        # Look for start of variables list
1203
 
        if ( $line =~ /[\-]+\s[\-]+/ )
1204
 
        {
1205
 
          $found_variable_list_start= 1;
1206
 
        }
1207
 
      }
1208
 
      else
1209
 
      {
1210
 
        # Put variables into hash
1211
 
        if ( $line =~ /^([\S]+)[ \t]+(.*?)\r?$/ )
1212
 
        {
1213
 
          # print "$1=\"$2\"\n";
1214
 
          $mysqld_variables{$1}= $2;
1215
 
        }
1216
 
        else
1217
 
        {
1218
 
          # The variable list is ended with a blank line
1219
 
          if ( $line =~ /^[\s]*$/ )
1220
 
          {
1221
 
            last;
1222
 
          }
1223
 
          else
1224
 
          {
1225
 
            # Send out a warning, we should fix the variables that has no
1226
 
            # space between variable name and it's value
1227
 
            # or should it be fixed width column parsing? It does not
1228
 
            # look like that in function my_print_variables in my_getopt.c
1229
 
            mtr_warning("Could not parse variable list line : $line");
1230
 
          }
1231
 
        }
1232
 
      }
1233
 
    }
1234
1195
  }
1235
1196
  rmtree($tmpdir);
1236
1197
  mtr_error("Could not find version of Drizzle") unless $drizzle_version_id;
1237
 
  mtr_error("Could not find variabes list") unless $found_variable_list_start;
1238
1198
 
1239
1199
}
1240
1200
 
1290
1250
    }
1291
1251
  }
1292
1252
 
1293
 
# Look for my_print_defaults
1294
 
  $exe_my_print_defaults=
1295
 
    mtr_exe_exists(
1296
 
        "$path_client_bindir/my_print_defaults",
1297
 
        "$glob_basedir/extra/my_print_defaults",
1298
 
        "$glob_builddir/extra/my_print_defaults");
1299
 
 
1300
1253
# Look for perror
1301
1254
  $exe_perror= "perror";
1302
1255
 
1626
1579
  }
1627
1580
 
1628
1581
  # ----------------------------------------------------
1629
 
  # Setup env so childs can execute my_print_defaults
1630
 
  # ----------------------------------------------------
1631
 
  $ENV{'DRIZZLE_MY_PRINT_DEFAULTS'}= mtr_native_path($exe_my_print_defaults);
1632
 
 
1633
 
  # ----------------------------------------------------
1634
1582
  # Setup env so childs can shutdown the server
1635
1583
  # ----------------------------------------------------
1636
1584
  $ENV{'DRIZZLED_SHUTDOWN'}= mtr_native_path($exe_drizzle);
2620
2568
                $prefix, $path_vardir_trace, $mysqld->{'type'}, $sidx);
2621
2569
  }
2622
2570
 
2623
 
  mtr_add_arg($args, "%s--sort_buffer=256K", $prefix);
2624
 
  mtr_add_arg($args, "%s--max_heap_table_size=1M", $prefix);
 
2571
  mtr_add_arg($args, "%s--sort-buffer=256K", $prefix);
 
2572
  mtr_add_arg($args, "%s--max-heap-table-size=1M", $prefix);
2625
2573
 
2626
2574
  if ( $opt_warnings )
2627
2575
  {