← 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-12-18 20:21:19 UTC
  • mfrom: (713.1.11 devel)
  • Revision ID: brian@tangent.org-20081218202119-8ow39oux2x5vzywo
Merge from Monty

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/test-run.pl
186
186
our $opt_manual_gdb;
187
187
our $opt_manual_ddd;
188
188
our $opt_manual_debug;
189
 
our $opt_mtr_build_thread=0;
 
189
# Magic number -69.4 results in traditional test ports starting from 9306.
 
190
our $opt_mtr_build_thread=-69.4;
190
191
our $opt_debugger;
191
192
our $opt_client_debugger;
192
193
 
426
427
 
427
428
  my $opt_comment;
428
429
 
429
 
  # Magic number -69.4 results in traditional test ports starting from 9306.
430
 
  set_mtr_build_thread_ports(-69.4);
431
 
 
432
430
  # If so requested, we try to avail ourselves of a unique build thread number.
433
431
  if ( $ENV{'MTR_BUILD_THREAD'} ) {
434
432
    if ( lc($ENV{'MTR_BUILD_THREAD'}) eq 'auto' ) {
621
619
    $glob_basedir= dirname($glob_basedir);
622
620
  }
623
621
 
624
 
  if ( -d $opt_testdir and -d $opt_vardir
 
622
  if ( $opt_testdir and -d $opt_testdir and $opt_vardir and -d $opt_vardir
625
623
         and -f "$opt_vardir/../../drizzled/drizzled")
626
624
  {
627
625
    # probably in a VPATH build
1072
1070
 
1073
1071
sub set_mtr_build_thread_ports($) {
1074
1072
  my $mtr_build_thread= shift;
1075
 
  $mtr_build_thread= ($mtr_build_thread % 200) - 100;
1076
1073
 
1077
1074
  if ( lc($mtr_build_thread) eq 'auto' ) {
1078
1075
    print "Requesting build thread... ";
1080
1077
    print "got ".$mtr_build_thread."\n";
1081
1078
  }
1082
1079
 
 
1080
  $mtr_build_thread= (($mtr_build_thread * 10) % 2000) - 1000;
 
1081
 
1083
1082
  # Up to two masters, up to three slaves
1084
1083
  # A magic value in command_line_setup depends on these equations.
1085
 
  $opt_master_myport=         $mtr_build_thread * 10 + 10000; # and 1
 
1084
  $opt_master_myport=         $mtr_build_thread + 9000; # and 1
1086
1085
  $opt_slave_myport=          $opt_master_myport + 2;  # and 3 4
1087
1086
 
1088
1087
  if ( $opt_master_myport < 5001 or $opt_master_myport + 10 >= 32767 )