← Back to branch summary

~drizzle-trunk/drizzle/development

« back to all changes in this revision

Viewing changes to mysql-test/lib/mtr_cases.pl

  • Committer: brian
  • Date: 2008-06-25 05:29:13 UTC
  • Revision ID: brian@localhost.localdomain-20080625052913-6upwo0jsrl4lnapl
clean slate

Show diffs side-by-side

added added

removed removed

Lines of Context:
mysql-test/lib/mtr_cases.pl
 
1
# -*- cperl -*-
 
2
# Copyright (C) 2005-2006 MySQL AB
 
3
# 
 
4
# This program is free software; you can redistribute it and/or modify
 
5
# it under the terms of the GNU General Public License as published by
 
6
# the Free Software Foundation; version 2 of the License.
 
7
# 
 
8
# This program is distributed in the hope that it will be useful,
 
9
# but WITHOUT ANY WARRANTY; without even the implied warranty of
 
10
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 
11
# GNU General Public License for more details.
 
12
# 
 
13
# You should have received a copy of the GNU General Public License
 
14
# along with this program; if not, write to the Free Software
 
15
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 
16
 
 
17
# This is a library file used by the Perl version of mysql-test-run,
 
18
# and is part of the translation of the Bourne shell script with the
 
19
# same name.
 
20
 
 
21
use File::Basename;
 
22
use IO::File();
 
23
use strict;
 
24
 
 
25
use My::Config;
 
26
 
 
27
sub collect_test_cases ($);
 
28
sub collect_one_suite ($);
 
29
sub collect_one_test_case ($$$$$$$$$);
 
30
 
 
31
sub mtr_options_from_test_file($$);
 
32
 
 
33
my $do_test;
 
34
my $skip_test;
 
35
 
 
36
sub init_pattern {
 
37
  my ($from, $what)= @_;
 
38
  if ( $from =~ /^[a-z0-9]$/ ) {
 
39
    # Does not contain any regex, make the pattern match
 
40
    # beginning of string
 
41
    $from= "^$from";
 
42
  }
 
43
  # Check that pattern is a valid regex
 
44
  eval { "" =~/$from/; 1 } or
 
45
    mtr_error("Invalid regex '$from' passed to $what\nPerl says: $@");
 
46
  return $from;
 
47
}
 
48
 
 
49
 
 
50
 
 
51
##############################################################################
 
52
#
 
53
#  Collect information about test cases we are to run
 
54
#
 
55
##############################################################################
 
56
 
 
57
sub collect_test_cases ($) {
 
58
  $do_test= init_pattern($::opt_do_test, "--do-test");
 
59
  $skip_test= init_pattern($::opt_skip_test, "--skip-test");
 
60
 
 
61
  my $suites= shift; # Semicolon separated list of test suites
 
62
  my $cases = [];    # Array of hash
 
63
 
 
64
  foreach my $suite (split(",", $suites))
 
65
  {
 
66
    push(@$cases, collect_one_suite($suite));
 
67
  }
 
68
 
 
69
 
 
70
  if ( @::opt_cases )
 
71
  {
 
72
    # Check that the tests specified was found
 
73
    # in at least one suite
 
74
    foreach my $test_name_spec ( @::opt_cases )
 
75
    {
 
76
      my $found= 0;
 
77
      my ($sname, $tname, $extension)= split_testname($test_name_spec);
 
78
      foreach my $test ( @$cases )
 
79
      {
 
80
        # test->{name} is always in suite.name format
 
81
        if ( $test->{name} =~ /.*\.$tname/ )
 
82
        {
 
83
          $found= 1;
 
84
        }
 
85
      }
 
86
      if ( not $found )
 
87
      {
 
88
        mtr_error("Could not find $tname in any suite");
 
89
      }
 
90
    }
 
91
  }
 
92
 
 
93
  if ( $::opt_reorder )
 
94
  {
 
95
    # Reorder the test cases in an order that will make them faster to run
 
96
    my %sort_criteria;
 
97
 
 
98
    # Make a mapping of test name to a string that represents how that test
 
99
    # should be sorted among the other tests.  Put the most important criterion
 
100
    # first, then a sub-criterion, then sub-sub-criterion, et c.
 
101
    foreach my $tinfo (@$cases)
 
102
    {
 
103
      my @criteria = ();
 
104
 
 
105
      # Look for tests that muct be in run in a defined order
 
106
      # that is defined by test having the same name except for
 
107
      # the ending digit
 
108
 
 
109
      # Put variables into hash
 
110
      my $test_name= $tinfo->{'name'};
 
111
      my $depend_on_test_name;
 
112
      if ( $test_name =~ /^([\D]+)([0-9]{1})$/ )
 
113
      {
 
114
        my $base_name= $1;
 
115
        my $idx= $2;
 
116
        mtr_verbose("$test_name =>  $base_name idx=$idx");
 
117
        if ( $idx > 1 )
 
118
        {
 
119
          $idx-= 1;
 
120
          $base_name= "$base_name$idx";
 
121
          mtr_verbose("New basename $base_name");
 
122
        }
 
123
 
 
124
        foreach my $tinfo2 (@$cases)
 
125
        {
 
126
          if ( $tinfo2->{'name'} eq $base_name )
 
127
          {
 
128
            mtr_verbose("found dependent test $tinfo2->{'name'}");
 
129
            $depend_on_test_name=$base_name;
 
130
          }
 
131
        }
 
132
      }
 
133
 
 
134
      if ( defined $depend_on_test_name )
 
135
      {
 
136
        mtr_verbose("Giving $test_name same critera as $depend_on_test_name");
 
137
        $sort_criteria{$test_name} = $sort_criteria{$depend_on_test_name};
 
138
      }
 
139
      else
 
140
      {
 
141
        #
 
142
        # Append the criteria for sorting, in order of importance.
 
143
        #
 
144
        push(@criteria, "ndb=" . ($tinfo->{'ndb_test'} ? "1" : "0"));
 
145
        # Group test with equal options together.
 
146
        # Ending with "~" makes empty sort later than filled
 
147
        push(@criteria, join("!", sort @{$tinfo->{'master_opt'}}) . "~");
 
148
 
 
149
        $sort_criteria{$test_name} = join(" ", @criteria);
 
150
      }
 
151
    }
 
152
 
 
153
    @$cases = sort {
 
154
      $sort_criteria{$a->{'name'}} . $a->{'name'} cmp
 
155
        $sort_criteria{$b->{'name'}} . $b->{'name'}; } @$cases;
 
156
 
 
157
    if ( $::opt_script_debug )
 
158
    {
 
159
      # For debugging the sort-order
 
160
      foreach my $tinfo (@$cases)
 
161
      {
 
162
        print("$sort_criteria{$tinfo->{'name'}} -> \t$tinfo->{'name'}\n");
 
163
      }
 
164
    }
 
165
  }
 
166
 
 
167
  return $cases;
 
168
 
 
169
}
 
170
 
 
171
# Valid extensions and their corresonding component id
 
172
my %exts = ( 'test' => 'mysqld',
 
173
             'imtest' => 'im'
 
174
           );
 
175
 
 
176
 
 
177
# Returns (suitename, testname, extension)
 
178
sub split_testname {
 
179
  my ($test_name)= @_;
 
180
 
 
181
  # Get rid of directory part and split name on .'s
 
182
  my @parts= split(/\./, basename($test_name));
 
183
 
 
184
  if (@parts == 1){
 
185
    # Only testname given, ex: alias
 
186
    return (undef , $parts[0], undef);
 
187
  } elsif (@parts == 2) {
 
188
    # Either testname.test or suite.testname given
 
189
    # Ex. main.alias or alias.test
 
190
 
 
191
    if (defined $exts{$parts[1]})
 
192
    {
 
193
      return (undef , $parts[0], $parts[1]);
 
194
    }
 
195
    else
 
196
    {
 
197
      return ($parts[0], $parts[1], undef);
 
198
    }
 
199
 
 
200
  } elsif (@parts == 3) {
 
201
    # Fully specified suitename.testname.test
 
202
    # ex main.alias.test
 
203
    return ( $parts[0], $parts[1], $parts[2]);
 
204
  }
 
205
 
 
206
  mtr_error("Illegal format of test name: $test_name");
 
207
}
 
208
 
 
209
 
 
210
sub collect_one_suite($)
 
211
{
 
212
  my $suite= shift;  # Test suite name
 
213
  my @cases;  # Array of hash
 
214
 
 
215
  mtr_verbose("Collecting: $suite");
 
216
 
 
217
  my $suitedir= "$::glob_mysql_test_dir"; # Default
 
218
  if ( $suite ne "main" )
 
219
  {
 
220
    $suitedir= mtr_path_exists("$suitedir/suite/$suite",
 
221
                               "$suitedir/$suite");
 
222
    mtr_verbose("suitedir: $suitedir");
 
223
  }
 
224
 
 
225
  my $testdir= "$suitedir/t";
 
226
  my $resdir=  "$suitedir/r";
 
227
 
 
228
  # ----------------------------------------------------------------------
 
229
  # Build a hash of disabled testcases for this suite
 
230
  # ----------------------------------------------------------------------
 
231
  my %disabled;
 
232
  if ( open(DISABLED, "$testdir/disabled.def" ) )
 
233
  {
 
234
    while ( <DISABLED> )
 
235
      {
 
236
        chomp;
 
237
        if ( /^\s*(\S+)\s*:\s*(.*?)\s*$/ )
 
238
          {
 
239
            $disabled{$1}= $2;
 
240
          }
 
241
      }
 
242
    close DISABLED;
 
243
  }
 
244
 
 
245
  # Read suite.opt file
 
246
  my $suite_opt_file=  "$testdir/suite.opt";
 
247
  my $suite_opts= [];
 
248
  if ( -f $suite_opt_file )
 
249
  {
 
250
    $suite_opts= mtr_get_opts_from_file($suite_opt_file);
 
251
  }
 
252
 
 
253
  if ( @::opt_cases )
 
254
  {
 
255
    # Collect in specified order
 
256
    foreach my $test_name_spec ( @::opt_cases )
 
257
    {
 
258
      my ($sname, $tname, $extension)= split_testname($test_name_spec);
 
259
 
 
260
      # The test name parts have now been defined
 
261
      #print "  suite_name: $sname\n";
 
262
      #print "  tname:      $tname\n";
 
263
      #print "  extension:  $extension\n";
 
264
 
 
265
      # Check cirrect suite if suitename is defined
 
266
      next if (defined $sname and $suite ne $sname);
 
267
 
 
268
      my $component_id;
 
269
      if ( defined $extension )
 
270
      {
 
271
        my $full_name= "$testdir/$tname.$extension";
 
272
        # Extension was specified, check if the test exists
 
273
        if ( ! -f $full_name)
 
274
        {
 
275
          # This is only an error if suite was specified, otherwise it
 
276
          # could exist in another suite
 
277
          mtr_error("Test '$full_name' was not found in suite '$sname'")
 
278
            if $sname;
 
279
 
 
280
          next;
 
281
        }
 
282
        $component_id= $exts{$extension};
 
283
      }
 
284
      else
 
285
      {
 
286
        # No extension was specified
 
287
        my ($ext, $component);
 
288
        while (($ext, $component)= each %exts) {
 
289
          my $full_name= "$testdir/$tname.$ext";
 
290
 
 
291
          if ( ! -f $full_name ) {
 
292
            next;
 
293
          }
 
294
          $component_id= $component;
 
295
          $extension= $ext;
 
296
        }
 
297
        # Test not found here, could exist in other suite
 
298
        next unless $component_id;
 
299
      }
 
300
 
 
301
      collect_one_test_case($testdir,$resdir,$suite,$tname,
 
302
                            "$tname.$extension",\@cases,\%disabled,
 
303
                            $component_id,$suite_opts);
 
304
    }
 
305
  }
 
306
  else
 
307
  {
 
308
    opendir(TESTDIR, $testdir) or mtr_error("Can't open dir \"$testdir\": $!");
 
309
 
 
310
    foreach my $elem ( sort readdir(TESTDIR) )
 
311
    {
 
312
      my $component_id= undef;
 
313
      my $tname= undef;
 
314
 
 
315
      if ($tname= mtr_match_extension($elem, 'test'))
 
316
      {
 
317
        $component_id = 'mysqld';
 
318
      }
 
319
      elsif ($tname= mtr_match_extension($elem, 'imtest'))
 
320
      {
 
321
        $component_id = 'im';
 
322
      }
 
323
      else
 
324
      {
 
325
        next;
 
326
      }
 
327
 
 
328
      # Skip tests that does not match the --do-test= filter
 
329
      next if ($do_test and not $tname =~ /$do_test/o);
 
330
 
 
331
      collect_one_test_case($testdir,$resdir,$suite,$tname,
 
332
                            $elem,\@cases,\%disabled,$component_id,
 
333
                            $suite_opts);
 
334
    }
 
335
    closedir TESTDIR;
 
336
  }
 
337
 
 
338
 
 
339
  #  Return empty list if no testcases found
 
340
  return if (@cases == 0);
 
341
 
 
342
  # ----------------------------------------------------------------------
 
343
  # Read combinations for this suite and build testcases x combinations
 
344
  # if any combinations exists
 
345
  # ----------------------------------------------------------------------
 
346
  if ( ! $::opt_skip_combination )
 
347
  {
 
348
    my @combinations;
 
349
    my $combination_file= "$suitedir/combinations";
 
350
    #print "combination_file: $combination_file\n";
 
351
    if (@::opt_combinations)
 
352
    {
 
353
      # take the combination from command-line
 
354
      mtr_verbose("Take the combination from command line");
 
355
      foreach my $combination (@::opt_combinations) {
 
356
        my $comb= {};
 
357
        $comb->{name}= $combination;
 
358
        push(@{$comb->{comb_opt}}, $combination);
 
359
        push(@combinations, $comb);
 
360
      }
 
361
    }
 
362
    elsif (-f $combination_file )
 
363
    {
 
364
      # Read combinations file in my.cnf format
 
365
      mtr_verbose("Read combinations file");
 
366
      my $config= My::Config->new($combination_file);
 
367
 
 
368
      foreach my $group ($config->groups()) {
 
369
        my $comb= {};
 
370
        $comb->{name}= $group->name();
 
371
        foreach my $option ( $group->options() ) {
 
372
          push(@{$comb->{comb_opt}}, $option->name()."=".$option->value());
 
373
        }
 
374
        push(@combinations, $comb);
 
375
      }
 
376
    }
 
377
 
 
378
    if (@combinations)
 
379
    {
 
380
      print " - adding combinations\n";
 
381
      #print_testcases(@cases);
 
382
 
 
383
      my @new_cases;
 
384
      foreach my $comb (@combinations)
 
385
      {
 
386
        foreach my $test (@cases)
 
387
        {
 
388
          #print $test->{name}, " ", $comb, "\n";
 
389
          my $new_test= {};
 
390
 
 
391
          while (my ($key, $value) = each(%$test)) {
 
392
            if (ref $value eq "ARRAY") {
 
393
              push(@{$new_test->{$key}}, @$value);
 
394
            } else {
 
395
              $new_test->{$key}= $value;
 
396
            }
 
397
          }
 
398
 
 
399
          # Append the combination options to master_opt and slave_opt
 
400
          push(@{$new_test->{master_opt}}, @{$comb->{comb_opt}});
 
401
          push(@{$new_test->{slave_opt}}, @{$comb->{comb_opt}});
 
402
 
 
403
          # Add combination name shrt name
 
404
          $new_test->{combination}= $comb->{name};
 
405
 
 
406
          # Add the new test to new test cases list
 
407
          push(@new_cases, $new_test);
 
408
        }
 
409
      }
 
410
      #print_testcases(@new_cases);
 
411
      @cases= @new_cases;
 
412
      #print_testcases(@cases);
 
413
    }
 
414
  }
 
415
 
 
416
  optimize_cases(\@cases);
 
417
  #print_testcases(@cases);
 
418
 
 
419
  return @cases;
 
420
}
 
421
 
 
422
 
 
423
#
 
424
# Loop through all test cases
 
425
# - optimize which test to run by skipping unnecessary ones
 
426
# - update settings if necessary
 
427
#
 
428
sub optimize_cases {
 
429
  my ($cases)= @_;
 
430
 
 
431
  foreach my $tinfo ( @$cases )
 
432
  {
 
433
    # Skip processing if already marked as skipped
 
434
    next if $tinfo->{skip};
 
435
 
 
436
    # Replication test needs an adjustment of binlog format
 
437
    if (mtr_match_prefix($tinfo->{'name'}, "rpl"))
 
438
    {
 
439
 
 
440
      # =======================================================
 
441
      # Get binlog-format used by this test from master_opt
 
442
      # =======================================================
 
443
      my $test_binlog_format;
 
444
      foreach my $opt ( @{$tinfo->{master_opt}} ) {
 
445
        $test_binlog_format= $test_binlog_format ||
 
446
          mtr_match_prefix($opt, "--binlog-format=");
 
447
      }
 
448
      # print $tinfo->{name}." uses ".$test_binlog_format."\n";
 
449
 
 
450
      # =======================================================
 
451
      # If a special binlog format was selected with
 
452
      # --mysqld=--binlog-format=x, skip all test with different
 
453
      # binlog-format
 
454
      # =======================================================
 
455
      if (defined $::used_binlog_format and
 
456
          $test_binlog_format and
 
457
          $::used_binlog_format ne $test_binlog_format)
 
458
      {
 
459
        $tinfo->{'skip'}= 1;
 
460
        $tinfo->{'comment'}= "Requires --binlog-format='$test_binlog_format'";
 
461
        next;
 
462
      }
 
463
 
 
464
      # =======================================================
 
465
      # Check that testcase supports the designated binlog-format
 
466
      # =======================================================
 
467
      if ($test_binlog_format and defined $tinfo->{'sup_binlog_formats'} )
 
468
      {
 
469
        my $supported=
 
470
          grep { $_ eq $test_binlog_format } @{$tinfo->{'sup_binlog_formats'}};
 
471
        if ( !$supported )
 
472
        {
 
473
          $tinfo->{'skip'}= 1;
 
474
          $tinfo->{'comment'}=
 
475
            "Doesn't support --binlog-format='$test_binlog_format'";
 
476
          next;
 
477
        }
 
478
      }
 
479
 
 
480
      # =======================================================
 
481
      # Use dynamic switching of binlog-format if mtr started
 
482
      # w/o --mysqld=--binlog-format=xxx and combinations.
 
483
      # =======================================================
 
484
      if (!defined $tinfo->{'combination'} and
 
485
          !defined $::used_binlog_format)
 
486
      {
 
487
        $test_binlog_format= $tinfo->{'sup_binlog_formats'}->[0];
 
488
      }
 
489
 
 
490
      # Save binlog format for dynamic switching
 
491
      $tinfo->{binlog_format}= $test_binlog_format;
 
492
    }
 
493
  }
 
494
}
 
495
 
 
496
 
 
497
##############################################################################
 
498
#
 
499
#  Collect information about a single test case
 
500
#
 
501
##############################################################################
 
502
 
 
503
 
 
504
sub collect_one_test_case($$$$$$$$$) {
 
505
  my $testdir= shift;
 
506
  my $resdir=  shift;
 
507
  my $suite=   shift;
 
508
  my $tname=   shift;
 
509
  my $elem=    shift;
 
510
  my $cases=   shift;
 
511
  my $disabled=shift;
 
512
  my $component_id= shift;
 
513
  my $suite_opts= shift;
 
514
 
 
515
  my $path= "$testdir/$elem";
 
516
 
 
517
  # ----------------------------------------------------------------------
 
518
  # Skip some tests silently
 
519
  # ----------------------------------------------------------------------
 
520
 
 
521
  if ( $::opt_start_from and $tname lt $::opt_start_from )
 
522
  {
 
523
    return;
 
524
  }
 
525
 
 
526
 
 
527
  my $tinfo= {};
 
528
  $tinfo->{'name'}= basename($suite) . ".$tname";
 
529
  $tinfo->{'result_file'}= "$resdir/$tname.result";
 
530
  $tinfo->{'component_id'} = $component_id;
 
531
  push(@$cases, $tinfo);
 
532
 
 
533
  # ----------------------------------------------------------------------
 
534
  # Skip some tests but include in list, just mark them to skip
 
535
  # ----------------------------------------------------------------------
 
536
 
 
537
  if ( $skip_test and $tname =~ /$skip_test/o )
 
538
  {
 
539
    $tinfo->{'skip'}= 1;
 
540
    return;
 
541
  }
 
542
 
 
543
  # ----------------------------------------------------------------------
 
544
  # Collect information about test case
 
545
  # ----------------------------------------------------------------------
 
546
 
 
547
  $tinfo->{'path'}= $path;
 
548
  $tinfo->{'timezone'}= "GMT-3"; # for UNIX_TIMESTAMP tests to work
 
549
 
 
550
  $tinfo->{'slave_num'}= 0; # Default, no slave
 
551
  $tinfo->{'master_num'}= 1; # Default, 1 master
 
552
  if ( defined mtr_match_prefix($tname,"rpl") )
 
553
  {
 
554
    if ( $::opt_skip_rpl )
 
555
    {
 
556
      $tinfo->{'skip'}= 1;
 
557
      $tinfo->{'comment'}= "No replication tests(--skip-rpl)";
 
558
      return;
 
559
    }
 
560
 
 
561
    $tinfo->{'slave_num'}= 1; # Default for rpl* tests, use one slave
 
562
 
 
563
  }
 
564
 
 
565
  if ( defined mtr_match_prefix($tname,"federated") )
 
566
  {
 
567
    # Default, federated uses the first slave as it's federated database
 
568
    $tinfo->{'slave_num'}= 1;
 
569
  }
 
570
 
 
571
  my $master_opt_file= "$testdir/$tname-master.opt";
 
572
  my $slave_opt_file=  "$testdir/$tname-slave.opt";
 
573
  my $slave_mi_file=   "$testdir/$tname.slave-mi";
 
574
  my $master_sh=       "$testdir/$tname-master.sh";
 
575
  my $slave_sh=        "$testdir/$tname-slave.sh";
 
576
  my $disabled_file=   "$testdir/$tname.disabled";
 
577
  my $im_opt_file=     "$testdir/$tname-im.opt";
 
578
 
 
579
  $tinfo->{'master_opt'}= [];
 
580
  $tinfo->{'slave_opt'}=  [];
 
581
  $tinfo->{'slave_mi'}=   [];
 
582
 
 
583
 
 
584
  # Add suite opts
 
585
  foreach my $opt ( @$suite_opts )
 
586
  {
 
587
    mtr_verbose($opt);
 
588
    push(@{$tinfo->{'master_opt'}}, $opt);
 
589
    push(@{$tinfo->{'slave_opt'}}, $opt);
 
590
  }
 
591
 
 
592
  # Add master opts
 
593
  if ( -f $master_opt_file )
 
594
  {
 
595
 
 
596
    my $master_opt= mtr_get_opts_from_file($master_opt_file);
 
597
 
 
598
    foreach my $opt ( @$master_opt )
 
599
    {
 
600
      my $value;
 
601
 
 
602
      # The opt file is used both to send special options to the mysqld
 
603
      # as well as pass special test case specific options to this
 
604
      # script
 
605
 
 
606
      $value= mtr_match_prefix($opt, "--timezone=");
 
607
      if ( defined $value )
 
608
      {
 
609
        $tinfo->{'timezone'}= $value;
 
610
        next;
 
611
      }
 
612
 
 
613
      $value= mtr_match_prefix($opt, "--slave-num=");
 
614
      if ( defined $value )
 
615
      {
 
616
        $tinfo->{'slave_num'}= $value;
 
617
        next;
 
618
      }
 
619
 
 
620
      $value= mtr_match_prefix($opt, "--result-file=");
 
621
      if ( defined $value )
 
622
      {
 
623
        # Specifies the file mysqltest should compare
 
624
        # output against
 
625
        $tinfo->{'result_file'}= "r/$value.result";
 
626
        next;
 
627
      }
 
628
 
 
629
      # If we set default time zone, remove the one we have
 
630
      $value= mtr_match_prefix($opt, "--default-time-zone=");
 
631
      if ( defined $value )
 
632
      {
 
633
        # Set timezone for this test case to something different
 
634
        $tinfo->{'timezone'}= "GMT-8";
 
635
        # Fallthrough, add the --default-time-zone option
 
636
      }
 
637
 
 
638
      # The --restart option forces a restart even if no special
 
639
      # option is set. If the options are the same as next testcase
 
640
      # there is no need to restart after the testcase
 
641
      # has completed
 
642
      if ( $opt eq "--force-restart" )
 
643
      {
 
644
        $tinfo->{'force_restart'}= 1;
 
645
        next;
 
646
      }
 
647
 
 
648
      # Ok, this was a real option, add it
 
649
      push(@{$tinfo->{'master_opt'}}, $opt);
 
650
    }
 
651
  }
 
652
 
 
653
  # Add slave opts
 
654
  if ( -f $slave_opt_file )
 
655
  {
 
656
    my $slave_opt= mtr_get_opts_from_file($slave_opt_file);
 
657
 
 
658
    foreach my $opt ( @$slave_opt )
 
659
    {
 
660
      # If we set default time zone, remove the one we have
 
661
      my $value= mtr_match_prefix($opt, "--default-time-zone=");
 
662
      $tinfo->{'slave_opt'}= [] if defined $value;
 
663
    }
 
664
    push(@{$tinfo->{'slave_opt'}}, @$slave_opt);
 
665
  }
 
666
 
 
667
  if ( -f $slave_mi_file )
 
668
  {
 
669
    $tinfo->{'slave_mi'}= mtr_get_opts_from_file($slave_mi_file);
 
670
  }
 
671
 
 
672
  if ( -f $master_sh )
 
673
  {
 
674
    if ( $::glob_win32_perl )
 
675
    {
 
676
      $tinfo->{'skip'}= 1;
 
677
      $tinfo->{'comment'}= "No tests with sh scripts on Windows";
 
678
      return;
 
679
    }
 
680
    else
 
681
    {
 
682
      $tinfo->{'master_sh'}= $master_sh;
 
683
    }
 
684
  }
 
685
 
 
686
  if ( -f $slave_sh )
 
687
  {
 
688
    if ( $::glob_win32_perl )
 
689
    {
 
690
      $tinfo->{'skip'}= 1;
 
691
      $tinfo->{'comment'}= "No tests with sh scripts on Windows";
 
692
      return;
 
693
    }
 
694
    else
 
695
    {
 
696
      $tinfo->{'slave_sh'}= $slave_sh;
 
697
    }
 
698
  }
 
699
 
 
700
  if ( -f $im_opt_file )
 
701
  {
 
702
    $tinfo->{'im_opts'} = mtr_get_opts_from_file($im_opt_file);
 
703
  }
 
704
  else
 
705
  {
 
706
    $tinfo->{'im_opts'} = [];
 
707
  }
 
708
 
 
709
  # FIXME why this late?
 
710
  my $marked_as_disabled= 0;
 
711
  if ( $disabled->{$tname} )
 
712
  {
 
713
    $marked_as_disabled= 1;
 
714
    $tinfo->{'comment'}= $disabled->{$tname};
 
715
  }
 
716
 
 
717
  if ( -f $disabled_file )
 
718
  {
 
719
    $marked_as_disabled= 1;
 
720
    $tinfo->{'comment'}= mtr_fromfile($disabled_file);
 
721
  }
 
722
 
 
723
  # If test was marked as disabled, either opt_enable_disabled is off and then
 
724
  # we skip this test, or it is on and then we run this test but warn
 
725
 
 
726
  if ( $marked_as_disabled )
 
727
  {
 
728
    if ( $::opt_enable_disabled )
 
729
    {
 
730
      $tinfo->{'dont_skip_though_disabled'}= 1;
 
731
    }
 
732
    else
 
733
    {
 
734
      $tinfo->{'skip'}= 1;
 
735
      $tinfo->{'disable'}= 1;   # Sub type of 'skip'
 
736
      return;
 
737
    }
 
738
  }
 
739
 
 
740
  if ( $component_id eq 'im' )
 
741
  {
 
742
    if ( $::glob_use_embedded_server )
 
743
    {
 
744
      $tinfo->{'skip'}= 1;
 
745
      $tinfo->{'comment'}= "No IM with embedded server";
 
746
      return;
 
747
    }
 
748
    elsif ( $::opt_ps_protocol )
 
749
    {
 
750
      $tinfo->{'skip'}= 1;
 
751
      $tinfo->{'comment'}= "No IM with --ps-protocol";
 
752
      return;
 
753
    }
 
754
    elsif ( $::opt_skip_im )
 
755
    {
 
756
      $tinfo->{'skip'}= 1;
 
757
      $tinfo->{'comment'}= "No IM tests(--skip-im)";
 
758
      return;
 
759
    }
 
760
  }
 
761
  else
 
762
  {
 
763
    mtr_options_from_test_file($tinfo,"$testdir/${tname}.test");
 
764
 
 
765
    if ( defined $::used_default_engine )
 
766
    {
 
767
      # Different default engine is used
 
768
      # tag test to require that engine
 
769
      $tinfo->{'ndb_test'}= 1
 
770
        if ( $::used_default_engine =~ /^ndb/i );
 
771
 
 
772
      $tinfo->{'innodb_test'}= 1
 
773
        if ( $::used_default_engine =~ /^innodb/i );
 
774
    }
 
775
 
 
776
    if ( $tinfo->{'big_test'} and ! $::opt_big_test )
 
777
    {
 
778
      $tinfo->{'skip'}= 1;
 
779
      $tinfo->{'comment'}= "Test need 'big-test' option";
 
780
      return;
 
781
    }
 
782
 
 
783
    if ( $tinfo->{'ndb_extra'} and ! $::opt_ndb_extra_test )
 
784
    {
 
785
      $tinfo->{'skip'}= 1;
 
786
      $tinfo->{'comment'}= "Test need 'ndb_extra' option";
 
787
      return;
 
788
    }
 
789
 
 
790
    if ( $tinfo->{'require_manager'} )
 
791
    {
 
792
      $tinfo->{'skip'}= 1;
 
793
      $tinfo->{'comment'}= "Test need the _old_ manager(to be removed)";
 
794
      return;
 
795
    }
 
796
 
 
797
    if ( $tinfo->{'need_debug'} && ! $::debug_compiled_binaries )
 
798
    {
 
799
      $tinfo->{'skip'}= 1;
 
800
      $tinfo->{'comment'}= "Test need debug binaries";
 
801
      return;
 
802
    }
 
803
 
 
804
    if ( $tinfo->{'ndb_test'} )
 
805
    {
 
806
      # This is a NDB test
 
807
      if ( ! $::glob_ndbcluster_supported )
 
808
      {
 
809
        # Ndb is not supported, skip it
 
810
        $tinfo->{'skip'}= 1;
 
811
        $tinfo->{'comment'}= "No ndbcluster support";
 
812
        return;
 
813
      }
 
814
      elsif ( $::opt_skip_ndbcluster )
 
815
      {
 
816
        # All ndb test's should be skipped
 
817
        $tinfo->{'skip'}= 1;
 
818
        $tinfo->{'comment'}= "No ndbcluster tests(--skip-ndbcluster)";
 
819
        return;
 
820
      }
 
821
      # Ndb tests run with two mysqld masters
 
822
      $tinfo->{'master_num'}= 2;
 
823
    }
 
824
    else
 
825
    {
 
826
      # This is not a ndb test
 
827
      if ( $::opt_with_ndbcluster_only )
 
828
      {
 
829
        # Only the ndb test should be run, all other should be skipped
 
830
        $tinfo->{'skip'}= 1;
 
831
        $tinfo->{'comment'}= "Only ndbcluster tests(--with-ndbcluster-only)";
 
832
        return;
 
833
      }
 
834
    }
 
835
 
 
836
    if ( $tinfo->{'innodb_test'} )
 
837
    {
 
838
      # This is a test that need innodb
 
839
      if ( $::mysqld_variables{'innodb'} ne "TRUE" )
 
840
      {
 
841
        # innodb is not supported, skip it
 
842
        $tinfo->{'skip'}= 1;
 
843
        $tinfo->{'comment'}= "No innodb support";
 
844
        return;
 
845
      }
 
846
    }
 
847
 
 
848
    if ( $tinfo->{'need_binlog'} )
 
849
    {
 
850
      if (grep(/^--skip-log-bin/,  @::opt_extra_mysqld_opt) )
 
851
      {
 
852
        $tinfo->{'skip'}= 1;
 
853
        $tinfo->{'comment'}= "Test need binlog";
 
854
        return;
 
855
      }
 
856
    }
 
857
    else
 
858
    {
 
859
      if ( $::mysql_version_id >= 50100 )
 
860
      {
 
861
        # Test does not need binlog, add --skip-binlog to
 
862
        # the options used when starting it
 
863
        push(@{$tinfo->{'master_opt'}}, "--skip-log-bin");
 
864
      }
 
865
    }
 
866
 
 
867
  }
 
868
}
 
869
 
 
870
 
 
871
# List of tags in the .test files that if found should set
 
872
# the specified value in "tinfo"
 
873
our @tags=
 
874
(
 
875
 ["include/have_innodb.inc", "innodb_test", 1],
 
876
 ["include/have_binlog_format_row.inc", "sup_binlog_formats", ["row"]],
 
877
 ["include/have_log_bin.inc", "need_binlog", 1],
 
878
 ["include/have_binlog_format_statement.inc",
 
879
  "sup_binlog_formats", ["statement"]],
 
880
 ["include/have_binlog_format_mixed.inc", "sup_binlog_formats", ["mixed"]],
 
881
 ["include/have_binlog_format_mixed_or_row.inc",
 
882
  "sup_binlog_formats", ["mixed","row"]],
 
883
 ["include/have_binlog_format_mixed_or_statement.inc",
 
884
  "sup_binlog_formats", ["mixed","statement"]],
 
885
 ["include/have_binlog_format_row_or_statement.inc",
 
886
  "sup_binlog_formats", ["row","statement"]],
 
887
 ["include/big_test.inc", "big_test", 1],
 
888
 ["include/have_debug.inc", "need_debug", 1],
 
889
 ["include/have_ndb.inc", "ndb_test", 1],
 
890
 ["include/have_multi_ndb.inc", "ndb_test", 1],
 
891
 ["include/have_ndb_extra.inc", "ndb_extra", 1],
 
892
 ["include/ndb_master-slave.inc", "ndb_test", 1],
 
893
 ["require_manager", "require_manager", 1],
 
894
);
 
895
 
 
896
sub mtr_options_from_test_file($$) {
 
897
  my $tinfo= shift;
 
898
  my $file= shift;
 
899
  #mtr_verbose("$file");
 
900
  my $F= IO::File->new($file) or mtr_error("can't open file \"$file\": $!");
 
901
 
 
902
  while ( my $line= <$F> )
 
903
  {
 
904
 
 
905
    # Skip line if it start's with #
 
906
    next if ( $line =~ /^#/ );
 
907
 
 
908
    # Match this line against tag in "tags" array
 
909
    foreach my $tag (@tags)
 
910
    {
 
911
      if ( index($line, $tag->[0]) >= 0 )
 
912
      {
 
913
          # Tag matched, assign value to "tinfo"
 
914
        $tinfo->{"$tag->[1]"}= $tag->[2];
 
915
      }
 
916
    }
 
917
 
 
918
    # If test sources another file, open it as well
 
919
    if ( $line =~ /^\-\-([[:space:]]*)source(.*)$/ or
 
920
         $line =~ /^([[:space:]]*)source(.*);$/ )
 
921
    {
 
922
      my $value= $2;
 
923
      $value =~ s/^\s+//;  # Remove leading space
 
924
      $value =~ s/[[:space:]]+$//;  # Remove ending space
 
925
 
 
926
      my $sourced_file= "$::glob_mysql_test_dir/$value";
 
927
      if ( -f $sourced_file )
 
928
      {
 
929
        # Only source the file if it exists, we may get
 
930
        # false positives in the regexes above if someone
 
931
        # writes "source nnnn;" in a test case(such as mysqltest.test)
 
932
        mtr_options_from_test_file($tinfo, $sourced_file);
 
933
      }
 
934
    }
 
935
  }
 
936
}
 
937
 
 
938
 
 
939
sub print_testcases {
 
940
  my (@cases)= @_;
 
941
 
 
942
  print "=" x 60, "\n";
 
943
  foreach my $test (@cases){
 
944
    print "[", $test->{name}, "]", "\n";
 
945
    while ((my ($key, $value)) = each(%$test)) {
 
946
      print " ", $key, "=";
 
947
      if (ref $value eq "ARRAY") {
 
948
        print join(", ", @$value);
 
949
      } else {
 
950
        print $value;
 
951
      }
 
952
      print "\n";
 
953
    }
 
954
    print "\n";
 
955
  }
 
956
  print "=" x 60, "\n";
 
957
}
 
958
 
 
959
 
 
960
1;