← Back to branch summary

~drizzle-trunk/drizzle/development

« back to all changes in this revision

Viewing changes to runall.pl

  • Committer: Bernt M. Johnsen
  • Date: 2009-10-19 10:17:52 UTC
  • mto: (0.67.47 randgen)
  • mto: This revision was merged to the branch mainline in revision 2435.
  • Revision ID: bernt.johnsen@sun.com-20091019101752-5cp2anojf8ceubca
--mtr-build-thread and MTR_BUILD_THREAD semantics added to runall.pl

Show diffs side-by-side

added added

removed removed

Lines of Context:
runall.pl
33
33
use Cwd;
34
34
 
35
35
my $database = 'test';
36
 
my @master_ports = ('19306','19308');
37
 
my $slave_port = '19308';
38
36
my @master_dsns;
39
37
 
40
 
my ($gendata, @basedirs, @mysqld_options, @vardirs, $rpl_mode, $engine, $help, $debug, $validators, $reporters, $grammar_file, $seed, $mask, $mask_level, $mem, $rows, $varchar_len, $xml_output, $valgrind, $views, $start_dirty, $filter);
 
38
my ($gendata, @basedirs, @mysqld_options, @vardirs, $rpl_mode,
 
39
    $engine, $help, $debug, $validators, $reporters, $grammar_file,
 
40
    $seed, $mask, $mask_level, $mem, $rows, $varchar_len, $xml_output,
 
41
    $valgrind, $views, $start_dirty, $filter, $build_thread);
41
42
 
42
43
my $threads = my $default_threads = 10;
43
44
my $queries = my $default_queries = 1000;
76
77
        'valgrind'      => \$valgrind,
77
78
        'views'         => \$views,
78
79
        'start-dirty'   => \$start_dirty,
79
 
        'filter=s'      => \$filter
 
80
        'filter=s'      => \$filter,
 
81
    'mtr-build-thread=i' => \$build_thread
80
82
);
81
83
 
82
84
if (!$opt_result || $help || $basedirs[0] eq '' || not defined $grammar_file) {
89
91
say("Starting \n# $0 \\ \n# ".join(" \\ \n# ", @ARGV_saved));
90
92
 
91
93
#
92
 
# If the user has provided two vardirs and one basedir, start second server using the same basedir
93
 
#
 
94
# Calculate master and slave ports based on MTR_BUILD_THREAD (MTR
 
95
# Version 1 behaviour)
 
96
#
 
97
 
 
98
if (not defined $build_thread) {
 
99
    if (defined $ENV{MTR_BUILD_THREAD}) {
 
100
        $build_thread = $ENV{MTR_BUILD_THREAD}
 
101
    } else {
 
102
        $build_thread = 250;
 
103
    }
 
104
}
 
105
 
 
106
if ( $build_thread eq 'auto' ) {
 
107
    say ("Please set the environment variable MTR_BUILD_THREAD to a value <> 'auto' (recommended) or unset it (will take the value 250) ");
 
108
    exit 1;
 
109
}
 
110
 
 
111
my $master_port = 10000 + 10 * $build_thread;
 
112
my $slave_port = 10000 + 10 * $build_thread + 2;
 
113
my @master_ports = ($master_port,$slave_port);
 
114
 
 
115
say("master_port : $master_port slave_port : $slave_port master_ports : @master_ports MTR_BUILD_THREAD : $build_thread ");
 
116
 
 
117
$ENV{MTR_BUILD_THREAD} = $build_thread;
 
118
 
 
119
#
 
120
# If the user has provided two vardirs and one basedir, start second
 
121
# server using the same basedir
 
122
#
 
123
 
94
124
 
95
125
if (
96
126
        ($vardirs[1] ne '') && 
397
427
    --valgrind  : Passed to gentest.pl
398
428
    --filter    : Passed to gentest.pl
399
429
    --mem       : Passed to mtr.
 
430
    --build-thread: Value used for MTR_BUILD_THREAD when servers are started and accessed.
400
431
    --debug     : Debug mode
401
432
    --help      : This help message
402
433