← Back to branch summary

~drizzle-trunk/drizzle/development

« back to all changes in this revision

Viewing changes to tests/test-run.pl

  • Committer: Mark Atwood
  • Date: 2011-08-17 01:03:12 UTC
  • mfrom: (2392.1.2 drizzle-autoconf)
  • Revision ID: me@mark.atwood.name-20110817010312-jcx21h48r4cce1z3
merge lp:~brianaker/drizzle/valgrind-fix

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/test-run.pl
1212
1212
    # First look for version
1213
1213
    if ( !$drizzle_version_id )
1214
1214
    {
1215
 
      # Look for version
1216
 
      my $exe_name= basename($exe_drizzled);
1217
 
      dtr_verbose("exe_name: $exe_name");
1218
 
      if ( $line =~ /^\S*$exe_name\s\sVer\s([0-9]*)\.([0-9]*)\.([0-9]*)/ )
1219
 
      {
1220
 
        #print "Major: $1 Minor: $2 Build: $3\n";
1221
 
        $drizzle_version_id= $1*10000 + $2*100 + $3;
1222
 
        #print "drizzle_version_id: $drizzle_version_id\n";
1223
 
        dtr_report("Drizzle Version $1.$2.$3");
1224
 
      }
 
1215
        # Look for version
 
1216
        my $exe_name= basename($exe_drizzled);
 
1217
        dtr_verbose("exe_name: $exe_name");
 
1218
        if ( $line =~ /^\S*$exe_name\s\sVer\s([0-9]*)\.([0-9]*)\.([0-9]*)/ )
 
1219
        {
 
1220
            #print "Major: $1 Minor: $2 Build: $3\n";
 
1221
            $drizzle_version_id= $1*10000 + $2*100 + $3;
 
1222
            #print "drizzle_version_id: $drizzle_version_id\n";
 
1223
            dtr_report("Drizzle Version $1.$2.$3");
 
1224
        }
1225
1225
    }
1226
1226
  }
1227
1227
  rmtree($tmpdir);
1280
1280
      dtr_report("Using \"$exe_libtool\" when running valgrind or debugger");
1281
1281
    }
1282
1282
  }
 
1283
  elsif ( -x "./libtool")
 
1284
  {
 
1285
    $exe_libtool= "./libtool";
 
1286
    if ($opt_valgrind or $glob_debugger)
 
1287
    {
 
1288
      dtr_report("Using \"$exe_libtool\" when running valgrind or debugger");
 
1289
    }
 
1290
  }
1283
1291
 
1284
1292
# Look for perror
1285
1293
  $exe_perror= "perror";
1355
1363
 
1356
1364
  my $args;
1357
1365
  dtr_init_args(\$args);
1358
 
  if ( $opt_valgrind_drizzletest )
 
1366
  if (0)
1359
1367
  {
1360
 
    valgrind_arguments($args, \$exe);
 
1368
      if ( $opt_valgrind_drizzletest )
 
1369
      {
 
1370
          valgrind_arguments($args, \$exe);
 
1371
      }
1361
1372
  }
1362
1373
 
1363
1374
  dtr_add_arg($args, "--no-defaults");
1596
1607
  # ----------------------------------------------------
1597
1608
  $ENV{'DRIZZLE_CLIENT_TEST'}=  drizzle_client_test_arguments();
1598
1609
 
1599
 
 
1600
 
  # ----------------------------------------------------
1601
 
  # Setup env so childs can execute drizzle_fix_system_tables
1602
 
  # ----------------------------------------------------
1603
 
  #if ( !$opt_extern)
1604
 
  if ( 0 )
1605
 
  {
1606
 
    my $cmdline_drizzle_fix_system_tables=
1607
 
      "$exe_drizzle_fix_system_tables --no-defaults --host=localhost " .
1608
 
      "--user=root --password= " .
1609
 
      "--basedir=$glob_basedir --bindir=$path_client_bindir --verbose " .
1610
 
      "--port=$master->[0]->{'port'} ";
1611
 
    $ENV{'DRIZZLE_FIX_SYSTEM_TABLES'}=  $cmdline_drizzle_fix_system_tables;
1612
 
 
1613
 
  }
1614
 
 
1615
1610
  # ----------------------------------------------------
1616
1611
  # Setup env so childs can shutdown the server
1617
1612
  # ----------------------------------------------------
3019
3014
 
3020
3015
    for ( my $idx= 0; $idx <  $tinfo->{'slave_num'}; $idx++ )
3021
3016
    {
3022
 
      if ( ! $slave->[$idx]->{'pid'} )
3023
 
      {
3024
 
        drizzled_start($slave->[$idx],$tinfo->{'slave_opt'},
3025
 
                     $tinfo->{'slave_mi'});
 
3017
        if ( ! $slave->[$idx]->{'pid'} )
 
3018
        {
 
3019
            drizzled_start($slave->[$idx],$tinfo->{'slave_opt'},
 
3020
                $tinfo->{'slave_mi'});
3026
3021
 
3027
 
      }
 
3022
        }
3028
3023
    }
3029
3024
 
3030
3025
    # Save this test case information, so next can examine it
3211
3206
  # Add arguments that should not go into the DRIZZLE_TEST env var
3212
3207
  # ----------------------------------------------------------------------
3213
3208
 
3214
 
  if ( $opt_valgrind_drizzletest )
 
3209
  if ( 0 )
3215
3210
  {
3216
3211
    # Prefix the Valgrind options to the argument list.
3217
3212
    # We do this here, since we do not want to Valgrind the nested invocations