1berry/MariaDB-server
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

making more use of My::Suite object

Browse Source
This commit is contained in:
Sergei Golubchik 2012-02-07 18:53:33 +01:00
parent 98ae512014
commit ae0a7cfd5f
3 changed files with 93 additions and 104 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
mysql-test/README.suites
View File

@ -29,8 +29,7 @@ Usually, using my.cnf template (see below) is preferrable.
But command line options (.opt files and combinations file) get special But command line options (.opt files and combinations file) get special
treatment - they can have special options that affect mtr behavior. cnf treatment - they can have special options that affect mtr behavior. cnf
files cannot. Special options are files cannot. Special options are
--timezone, --plugin-load, --result-file, --config-file-template, --timezone, --plugin-load, --default-time-zone,
--default-time-zone, --force-restart
In particular, all --plugin-load instances on the command line (on the In particular, all --plugin-load instances on the command line (on the
combined command line, assembled from different .opt and combinations combined command line, assembled from different .opt and combinations

196
mysql-test/lib/mtr_cases.pm
View File

@ -57,6 +57,7 @@ use My::Config;
use My::Platform; use My::Platform;
use My::Test; use My::Test;
use My::Find; use My::Find;
use My::Suite;
require "mtr_misc.pl"; require "mtr_misc.pl";
@ -65,7 +66,6 @@ my $do_test_reg;
my $skip_test_reg; my $skip_test_reg;
my %suites; my %suites;
my $default_suite_object = do 'My/Suite.pm';
sub init_pattern { sub init_pattern {
my ($from, $what)= @_; my ($from, $what)= @_;
@ -100,6 +100,8 @@ sub collect_test_cases ($$$$) {
$do_test_reg= init_pattern($do_test, "--do-test"); $do_test_reg= init_pattern($do_test, "--do-test");
$skip_test_reg= init_pattern($skip_test, "--skip-test"); $skip_test_reg= init_pattern($skip_test, "--skip-test");
parse_disabled($_) for @$opt_skip_test_list;
# If not reordering, we also shouldn't group by suites, unless # If not reordering, we also shouldn't group by suites, unless
# no test cases were named. # no test cases were named.
# This also effects some logic in the loop following this. # This also effects some logic in the loop following this.
@ -212,26 +214,37 @@ sub split_testname {
mtr_error("Illegal format of test name: $test_name"); mtr_error("Illegal format of test name: $test_name");
} }
my %suite_combinations;
my %skip_combinations; my %skip_combinations;
my %file_combinations; my %file_combinations;
sub load_suite_object { sub load_suite_object {
my ($suite, $suitedir) = @_; my ($suitename, $suitedir) = @_;
unless ($suites{$suite}) { my $suite;
unless (defined $suites{$suitename}) {
if (-f "$suitedir/suite.pm") { if (-f "$suitedir/suite.pm") {
$suites{$suite} = do "$suitedir/suite.pm"; $suite= do "$suitedir/suite.pm";
return unless ref $suites{$suite}; unless (ref $suite) {
} else { my $comment = $suite;
$suites{$suite} = $default_suite_object; $suite = do 'My/Suite.pm';
$suite->{skip} = $comment;
} }
my %suite_skiplist = $suites{$suite}->skip_combinations(); } else {
$suite = do 'My/Suite.pm';
}
$suites{$suitename} = $suite;
# add suite skiplist to a global hash, so that we can check it
# with only one lookup
my %suite_skiplist = $suite->skip_combinations();
while (my ($file, $skiplist) = each %suite_skiplist) { while (my ($file, $skiplist) = each %suite_skiplist) {
$skip_combinations{"$suitedir/$file => $_"} = 1 for (@$skiplist); $skip_combinations{"$suitedir/$file => $_"} = 1 for (@$skiplist);
} }
} }
return $suites{$suitename};
} }
# returns a pair of (suite, suitedir) # returns a pair of (suite, suitedir)
sub find_suite_of_file($) { sub find_suite_of_file($) {
my ($file) = @_; my ($file) = @_;
@ -247,7 +260,9 @@ sub combinations_from_file($)
my ($filename) = @_; my ($filename) = @_;
return () if @::opt_combinations or not -f $filename; return () if @::opt_combinations or not -f $filename;
load_suite_object(find_suite_of_file($filename)); # check the suite object, and load its %skip_combinations
my $suite = load_suite_object(find_suite_of_file($filename));
return () if $suite->{skip}; # XXX
# Read combinations file in my.cnf format # Read combinations file in my.cnf format
mtr_verbose("Read combinations file"); mtr_verbose("Read combinations file");
@ -256,7 +271,7 @@ sub combinations_from_file($)
foreach my $group ($config->groups()) { foreach my $group ($config->groups()) {
next if $group->auto(); next if $group->auto();
my $comb= { name => $group->name() }; my $comb= { name => $group->name() };
next if $skip_combinations{"$filename => $comb->{name}"}; next if $skip_combinations{"$filename => $comb->{name}"}; # XXX
foreach my $option ( $group->options() ) { foreach my $option ( $group->options() ) {
push(@{$comb->{comb_opt}}, $option->option()); push(@{$comb->{comb_opt}}, $option->option());
} }
@ -265,22 +280,40 @@ sub combinations_from_file($)
@combs; @combs;
} }
our %disabled;
sub parse_disabled {
my ($filename, $suitename) = @_;
if (open(DISABLED, $filename)) {
while (<DISABLED>) {
chomp;
next if /^\s*#/ or /^\s*$/;
mtr_error("Syntax error in $filename line $.")
unless /^\s*(?:([-0-9A-Za-z_]+)\.)?([-0-9A-Za-z_]+)\s*:\s*(.*?)\s*$/;
mtr_error("Wrong suite name in $filename line $.")
if defined $1 and defined $suitename and $1 ne $suitename;
$disabled{($1 || $suitename || '') . ".$2"} = $3;
}
close DISABLED;
}
}
sub collect_one_suite sub collect_one_suite
{ {
my $suite= shift; # Test suite name my $suitename= shift; # Test suite name
my $opt_cases= shift; my $opt_cases= shift;
my $opt_skip_test_list= shift; my $opt_skip_test_list= shift;
my @cases; # Array of hash my @cases; # Array of hash
mtr_verbose("Collecting: $suite"); mtr_verbose("Collecting: $suitename");
my $suitedir= "$::glob_mysql_test_dir"; # Default my $suitedir= "$::glob_mysql_test_dir"; # Default
if ( $suite ne "main" ) if ( $suitename ne "main" )
{ {
# Allow suite to be path to "some dir" if $suite has at least # Allow suite to be path to "some dir" if $suitename has at least
# one directory part # one directory part
if ( -d $suite and splitdir($suite) > 1 ){ if ( -d $suitename and splitdir($suitename) > 1 ){
$suitedir= $suite; $suitedir= $suitename;
mtr_report(" - from '$suitedir'"); mtr_report(" - from '$suitedir'");
} }
@ -294,9 +327,9 @@ sub collect_one_suite
# Look in storage engine specific suite dirs # Look in storage engine specific suite dirs
"storage/*/mtr", "storage/*/mtr",
# Look in plugin specific suite dir # Look in plugin specific suite dir
"plugin/$suite/tests", "plugin/$suitename/tests",
], ],
[$suite, "mtr"]); [$suitename]);
} }
mtr_verbose("suitedir: $suitedir"); mtr_verbose("suitedir: $suitedir");
} }
@ -330,35 +363,20 @@ sub collect_one_suite
mtr_verbose("testdir: $testdir"); mtr_verbose("testdir: $testdir");
mtr_verbose("resdir: $resdir"); mtr_verbose("resdir: $resdir");
load_suite_object($suite, $suitedir); my $suite = load_suite_object($suitename, $suitedir);
# ---------------------------------------------------------------------- #
# Build a hash of disabled testcases for this suite # Read suite config files, unless it was done aleady
# ---------------------------------------------------------------------- #
my %disabled; unless (defined $suite->{dir}) {
my @disabled_collection= @{$opt_skip_test_list} if defined @{$opt_skip_test_list}; $suite->{dir} = $suitedir;
push (@disabled_collection, "$testdir/disabled.def"); $suite->{tdir} = $testdir;
for my $skip (@disabled_collection) $suite->{rdir} = $resdir;
{
if ( open(DISABLED, $skip ) )
{
while ( <DISABLED> )
{
chomp;
next if /^\s*#/ or /^\s*$/;
mtr_error("Syntax error in $skip line $.")
unless /^\s*([-0-9A-Za-z_]+\.)?([-0-9A-Za-z_]+)\s*:\s*(.*?)\s*$/;
next if defined $1 and $1 ne "$suite.";
$disabled{$2}= $3;
}
close DISABLED;
}
}
# ---------------------------------------------------------------------- # disabled.def
# Read combinations for this suite parse_disabled("$testdir/disabled.def", $suitename);
# ----------------------------------------------------------------------
{ # combinations
if (@::opt_combinations) if (@::opt_combinations)
{ {
# take the combination from command-line # take the combination from command-line
@ -367,27 +385,21 @@ sub collect_one_suite
my $comb= {}; my $comb= {};
$comb->{name}= $combination; $comb->{name}= $combination;
push(@{$comb->{comb_opt}}, $combination); push(@{$comb->{comb_opt}}, $combination);
push @{$suite_combinations{$suite}}, $comb; push @{$suite->{combinations}}, $comb;
} }
} }
else else
{ {
my @combs = combinations_from_file("$suitedir/combinations"); my @combs = combinations_from_file("$suitedir/combinations");
$suite_combinations{$suite} = [ @combs ]; $suite->{combinations} = [ @combs ];
}
} }
# Read suite.opt file # suite.opt
my $suite_opts= [ opts_from_file("$testdir/suite.opt") ]; $suite->{opts} = [ opts_from_file("$suitedir/suite.opt") ];
$suite_opts = [ opts_from_file("$suitedir/suite.opt") ] unless @$suite_opts;
my @case_names;
{
my $s= $suites{$suite};
$s = 'My::Suite' unless ref $s;
@case_names= $s->list_cases($testdir);
} }
my @case_names= $suite->list_cases($testdir);
if ( @$opt_cases ) if ( @$opt_cases )
{ {
my (%case_names)= map { $_ => 1 } @case_names; my (%case_names)= map { $_ => 1 } @case_names;
@ -399,10 +411,9 @@ sub collect_one_suite
my ($sname, $tname)= split_testname($test_name_spec); my ($sname, $tname)= split_testname($test_name_spec);
# Check correct suite if suitename is defined # Check correct suite if suitename is defined
next if (defined $sname and $suite ne $sname); next if (defined $sname and $suitename ne $sname);
# Extension was specified, check if the test exists if (not $case_names{$tname})
if ( ! $case_names{$tname})
{ {
# This is only an error if suite was specified, otherwise it # This is only an error if suite was specified, otherwise it
# could exist in another suite # could exist in another suite
@ -420,8 +431,7 @@ sub collect_one_suite
# Skip tests that do not match the --do-test= filter # Skip tests that do not match the --do-test= filter
next if ($do_test_reg and not $_ =~ /$do_test_reg/o); next if ($do_test_reg and not $_ =~ /$do_test_reg/o);
push(@cases, collect_one_test_case($suitedir, $testdir, $resdir, push @cases, collect_one_test_case($suitename, $_);
$suite, $_, \%disabled, $suite_opts));
} }
# Return empty list if no testcases found # Return empty list if no testcases found
@ -582,34 +592,32 @@ sub make_combinations($@)
############################################################################## ##############################################################################
sub collect_one_test_case { sub collect_one_test_case {
my $suitedir= shift;
my $testdir= shift;
my $resdir= shift;
my $suitename= shift; my $suitename= shift;
my $tname= shift; my $tname= shift;
my $disabled= shift;
my $suite_opts= shift;
my $local_default_storage_engine= $default_storage_engine; my $name = "$suitename.$tname";
my $filename= "$testdir/$tname.test"; my $suite = $suites{$suitename};
my $suitedir = $suite->{dir};
my $testdir = $suite->{tdir};
my $resdir = $suite->{rdir};
my $filename = "$testdir/${tname}.test";
# ---------------------------------------------------------------------- # ----------------------------------------------------------------------
# Set defaults # Set defaults
# ---------------------------------------------------------------------- # ----------------------------------------------------------------------
my $tinfo= My::Test->new my $tinfo= My::Test->new
( (
name => "$suitename.$tname", name => $name,
shortname => $tname, shortname => $tname,
path => $filename, path => $filename,
suite => $suites{$suitename}, suite => $suite,
master_opt => [ @$suite_opts ], master_opt => [ @{$suite->{opts}} ],
slave_opt => [ @$suite_opts ], slave_opt => [ @{$suite->{opts}} ],
); );
# ---------------------------------------------------------------------- # ----------------------------------------------------------------------
# Skip some tests but include in list, just mark them as skipped # Skip some tests but include in list, just mark them as skipped
# ---------------------------------------------------------------------- # ----------------------------------------------------------------------
my $name= $suitename . ".$tname";
if ( $skip_test_reg and ($tname =~ /$skip_test_reg/o || if ( $skip_test_reg and ($tname =~ /$skip_test_reg/o ||
$name =~ /$skip_test/o)) $name =~ /$skip_test/o))
{ {
@ -620,9 +628,10 @@ sub collect_one_test_case {
# ---------------------------------------------------------------------- # ----------------------------------------------------------------------
# Check for disabled tests # Check for disabled tests
# ---------------------------------------------------------------------- # ----------------------------------------------------------------------
if ($disabled->{$tname}) my $disable = $disabled{".$tname"} || $disabled{$name};
if ($disable)
{ {
$tinfo->{'comment'}= $disabled->{$tname}; $tinfo->{comment}= $disable;
if ( $enable_disabled ) if ( $enable_disabled )
{ {
# User has selected to run all disabled tests # User has selected to run all disabled tests
@ -637,6 +646,12 @@ sub collect_one_test_case {
} }
} }
if ($suite->{skip}) {
$tinfo->{skip}= 1;
$tinfo->{comment}= $suite->{skip};
return $tinfo;
}
# ---------------------------------------------------------------------- # ----------------------------------------------------------------------
# Check for test specific config file # Check for test specific config file
# ---------------------------------------------------------------------- # ----------------------------------------------------------------------
@ -685,23 +700,6 @@ sub collect_one_test_case {
my ($master_opts, $slave_opts)= my ($master_opts, $slave_opts)=
tags_from_test_file($tinfo, $filename, $suitedir); tags_from_test_file($tinfo, $filename, $suitedir);
# Get default storage engine from suite.opt file
if (defined $suite_opts &&
"@$suite_opts" =~ "default-storage-engine=\s*([^\s]*)")
{
$local_default_storage_engine= $1;
}
if ( defined $local_default_storage_engine )
{
# Different default engine is used
# tag test to require that engine
$tinfo->{'ndb_test'}= 1
if ( $local_default_storage_engine =~ /^ndb/i );
}
if ( $tinfo->{'big_test'} and ! $::opt_big_test ) if ( $tinfo->{'big_test'} and ! $::opt_big_test )
{ {
$tinfo->{'skip'}= 1; $tinfo->{'skip'}= 1;
@ -802,13 +800,6 @@ sub collect_one_test_case {
$tinfo->{template_path}= $config; $tinfo->{template_path}= $config;
} }
if (not ref $suites{$suitename})
{
$tinfo->{'skip'}= 1;
$tinfo->{'comment'}= $suites{$suitename};
return $tinfo;
}
# ---------------------------------------------------------------------- # ----------------------------------------------------------------------
# Append mysqld extra options to master and slave, as appropriate # Append mysqld extra options to master and slave, as appropriate
# ---------------------------------------------------------------------- # ----------------------------------------------------------------------
@ -819,8 +810,7 @@ sub collect_one_test_case {
process_opts($tinfo, 'slave_opt'); process_opts($tinfo, 'slave_opt');
my @cases = ($tinfo); my @cases = ($tinfo);
for my $comb ($suite_combinations{$suitename}, for my $comb ($suite->{combinations}, @{$file_combinations{$filename}})
@{$file_combinations{$filename}})
{ {
@cases = map make_combinations($_, @{$comb}), @cases; @cases = map make_combinations($_, @{$comb}), @cases;
} }

0
mysql-test/suite/funcs_2/t/suite.opt → mysql-test/suite/funcs_2/suite.opt
View File