~drizzle-trunk/drizzle/development

« back to all changes in this revision

Viewing changes to tests/test-run.pl

• browse files at revision 748
• compare with another revision
• download diff
• download tarball
• view history from revision 748

• reverse the comparison (748 to 815.1.1)
• stop comparing with revision 815.1.1

Show diffs side-by-side

added

removed

tests/test-run.pl

126

126

 

127

127

our $opt_usage;

128

128

our $opt_suites;

129

 

our $opt_suites_default= "main"; # Default suites to run

 

129

our $opt_suites_default= "main,binlog,rpl"; # Default suites to run

130

130

our $opt_script_debug= 0;  # Script debugging, enable with --script-debug

131

131

our $opt_verbose= 0;  # Verbose output, enable with --verbose

132

132

 

207

207

our $opt_check_testcases;

208

208

our $opt_mark_progress;

209

209

 

210

 

our $opt_skip_rpl= 1;

 

210

our $opt_skip_rpl;

211

211

our $max_slave_num= 0;

212

212

our $max_master_num= 1;

213

213

our $use_innodb;

250

250

 

251

251

our $opt_warnings;

252

252

 

 

253

our $opt_skip_master_binlog= 0;

 

254

our $opt_skip_slave_binlog= 0;

 

255

 

253

256

our $path_sql_dir;

254

257

 

255

258

our @data_dir_lst;

256

259

 

 

260

our $used_binlog_format;

257

261

our $used_default_engine;

258

262

our $debug_compiled_binaries;

259

263

 

464

468

 

465

469

             # Control what test suites or cases to run

466

470

             'force'                    => \$opt_force,

 

471

             'skip-master-binlog'       => \$opt_skip_master_binlog,

 

472

             'skip-slave-binlog'        => \$opt_skip_slave_binlog,

467

473

             'do-test=s'                => \$opt_do_test,

468

474

             'start-from=s'             => \$opt_start_from,

469

475

             'suite|suites=s'           => \$opt_suites,

698

704

  }

699

705

 

700

706

  # --------------------------------------------------------------------------

 

707

  # Find out type of logging that are being used

 

708

  # --------------------------------------------------------------------------

 

709

  if (!$opt_extern && $mysql_version_id >= 50100 )

 

710

  {

 

711

    foreach my $arg ( @opt_extra_mysqld_opt )

 

712

    {

 

713

      if ( $arg =~ /binlog[-_]format=(\S+)/ )

 

714

      {

 

715

        $used_binlog_format= $1;

 

716

      }

 

717

    }

 

718

    if (defined $used_binlog_format) 

 

719

    {

 

720

      mtr_report("Using binlog format '$used_binlog_format'");

 

721

    }

 

722

    else

 

723

    {

 

724

      mtr_report("Using dynamic switching of binlog format");

 

725

    }

 

726

  }

 

727

 

 

728

 

 

729

  # --------------------------------------------------------------------------

701

730

  # Find out default storage engine being used(if any)

702

731

  # --------------------------------------------------------------------------

703

732

  foreach my $arg ( @opt_extra_mysqld_opt )

744

773

  {

745

774

    $opt_vardir= $default_vardir;

746

775

  }

 

776

  elsif ( $mysql_version_id < 50000 and

 

777

          $opt_vardir ne $default_vardir)

 

778

  {

 

779

    # Version 4.1 and --vardir was specified

 

780

    # Only supported as a symlink from var/

 

781

    # by setting up $opt_mem that symlink will be created

 

782

    {

 

783

      # Only platforms that have native symlinks can use the vardir trick

 

784

      $opt_mem= $opt_vardir;

 

785

      mtr_report("Using 4.1 vardir trick");

 

786

    }

 

787

 

 

788

    $opt_vardir= $default_vardir;

 

789

  }

747

790

 

748

791

  $path_vardir_trace= $opt_vardir;

749

792

  # Chop off any "c:", DBUG likes a unix path ex: c:/src/... => /src/...

2042

2085

  unlink("$base_file.log");

2043

2086

  unlink("$base_file.warnings");

2044

2087

 

 

2088

  if (!$opt_extern)

 

2089

  {

 

2090

    if (defined $tinfo->{binlog_format} and  $mysql_version_id > 50100 )

 

2091

    {

 

2092

      # Dynamically switch binlog format of

 

2093

      # master, slave is always restarted

 

2094

      foreach my $server ( @$master )

 

2095

      {

 

2096

        next unless ($server->{'pid'});

 

2097

 

 

2098

        mtr_init_args(\$args);

 

2099

        mtr_add_arg($args, "--no-defaults");

 

2100

        mtr_add_arg($args, "--user=root");

 

2101

        mtr_add_arg($args, "--port=$server->{'port'}");

 

2102

 

 

2103

        my $sql= "include/set_binlog_format_".$tinfo->{binlog_format}.".sql";

 

2104

        mtr_verbose("Setting binlog format:", $tinfo->{binlog_format});

 

2105

        if (mtr_run($exe_drizzle, $args, $sql, "", "", "") != 0)

 

2106

        {

 

2107

          mtr_error("Failed to switch binlog format");

 

2108

        }

 

2109

      }

 

2110

    }

 

2111

  }

2045

2112

}

2046

2113

 

2047

2114

sub do_after_run_drizzletest($)

2456

2523

  mtr_add_arg($args, "%s--log=%s.log", $prefix, $log_base_path);

2457

2524

 

2458

2525

  # Check if "extra_opt" contains --skip-log-bin

 

2526

  my $skip_binlog= grep(/^--skip-log-bin/, @$extra_opt, @opt_extra_mysqld_opt);

2459

2527

  if ( $mysqld->{'type'} eq 'master' )

2460

2528

  {

 

2529

    if (! ($opt_skip_master_binlog || $skip_binlog) )

 

2530

    {

 

2531

      mtr_add_arg($args, "%s--log-bin=%s/log/master-bin%s", $prefix,

 

2532

                  $opt_vardir, $sidx);

 

2533

    }

 

2534

 

2461

2535

    mtr_add_arg($args, "%s--server-id=%d", $prefix,

2462

2536

               $idx > 0 ? $idx + 101 : 1);

2463

2537

 

2478

2552

    mtr_error("unknown mysqld type")

2479

2553

      unless $mysqld->{'type'} eq 'slave';

2480

2554

 

 

2555

    #mtr_add_arg($args, "%s--init-rpl-role=slave", $prefix);

 

2556

    if (! ( $opt_skip_slave_binlog || $skip_binlog ))

 

2557

    {

 

2558

      mtr_add_arg($args, "%s--log-bin=%s/log/slave%s-bin", $prefix,

 

2559

                  $opt_vardir, $sidx); # FIXME use own dir for binlogs

 

2560

      mtr_add_arg($args, "%s--log-slave-updates", $prefix);

 

2561

    }

 

2562

 

 

2563

    mtr_add_arg($args, "%s--master-retry-count=10", $prefix);

 

2564

 

 

2565

    mtr_add_arg($args, "%s--relay-log=%s/log/slave%s-relay-bin", $prefix,

 

2566

                $opt_vardir, $sidx);

 

2567

    mtr_add_arg($args, "%s--report-host=127.0.0.1", $prefix);

 

2568

    mtr_add_arg($args, "%s--loose-skip-innodb", $prefix);

 

2569

    mtr_add_arg($args, "%s--skip-slave-start", $prefix);

 

2570

 

2481

2571

    # Directory where slaves find the dumps generated by "load data"

2482

2572

    # on the server. The path need to have constant length otherwise

2483

2573

    # test results will vary, thus a relative path is used.

2484

2574

    my $slave_load_path= "../tmp";

 

2575

    mtr_add_arg($args, "%s--slave-load-tmpdir=%s", $prefix,

 

2576

                $slave_load_path);

 

2577

    mtr_add_arg($args, "%s--set-variable=slave_net_timeout=120", $prefix);

2485

2578

 

2486

2579

    if ( @$slave_master_info )

2487

2580

    {

2495

2588

      my $slave_server_id=  2 + $idx;

2496

2589

      my $slave_rpl_rank= $slave_server_id;

2497

2590

      mtr_add_arg($args, "%s--server-id=%d", $prefix, $slave_server_id);

 

2591

#      mtr_add_arg($args, "%s--rpl-recovery-rank=%d", $prefix, $slave_rpl_rank);

2498

2592

    }

2499

2593

  } # end slave

2500

2594

 

2527

2621

    {

2528

2622

      $found_skip_core= 1;

2529

2623

    }

 

2624

    elsif ($skip_binlog and mtr_match_prefix($arg, "--binlog-format"))

 

2625

    {

 

2626

      ; # Dont add --binlog-format when running without binlog

 

2627

    }

2530

2628

    else

2531

2629

    {

2532

2630

      mtr_add_arg($args, "%s%s", $prefix, $arg);

2730

2828

    my $diff_opts= mtr_diff_opts($master->[0]->{'start_opts'},$tinfo->{'master_opt'});

2731

2829

    if (scalar(@$diff_opts) eq 2) 

2732

2830

    {

2733

 

      $do_restart= 1;

 

2831

      $do_restart= 1 unless ($diff_opts->[0] =~/^--binlog-format=/ and $diff_opts->[1] =~/^--binlog-format=/);

2734

2832

    }

2735

2833

    else

2736

2834

    {

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1