Commit be0f9165 authored by kent@mysql.com's avatar kent@mysql.com

Merge mysql.com:/Users/kent/mysql/bk/mysql-4.1-gca

into mysql.com:/Users/kent/mysql/bk/mysql-4.1
parents a8efd33a 922f2faa
...@@ -8,7 +8,7 @@ use File::Basename; ...@@ -8,7 +8,7 @@ use File::Basename;
use strict; use strict;
sub collect_test_cases ($); sub collect_test_cases ($);
sub collect_one_test_case ($$$$$); sub collect_one_test_case ($$$$$$);
############################################################################## ##############################################################################
# #
...@@ -46,18 +46,36 @@ sub collect_test_cases ($) { ...@@ -46,18 +46,36 @@ sub collect_test_cases ($) {
{ {
mtr_error("Test case $tname ($testdir/$elem) is not found"); mtr_error("Test case $tname ($testdir/$elem) is not found");
} }
collect_one_test_case($testdir,$resdir,$tname,$elem,$cases); collect_one_test_case($testdir,$resdir,$tname,$elem,$cases,{});
} }
closedir TESTDIR; closedir TESTDIR;
} }
else else
{ {
# ----------------------------------------------------------------------
# Skip some tests listed in disabled.def
# ----------------------------------------------------------------------
my %skiplist;
my $skipfile= "$testdir/disabled.def";
if ( open(SKIPFILE, $skipfile) )
{
while ( <SKIPFILE> )
{
chomp;
if ( /^\s*(\S+)\s*:\s*(.*?)\s*$/ )
{
$skiplist{$1}= $2;
}
}
close SKIPFILE;
}
foreach my $elem ( sort readdir(TESTDIR) ) { foreach my $elem ( sort readdir(TESTDIR) ) {
my $tname= mtr_match_extension($elem,"test"); my $tname= mtr_match_extension($elem,"test");
next if ! defined $tname; next if ! defined $tname;
next if $::opt_do_test and ! defined mtr_match_prefix($elem,$::opt_do_test); next if $::opt_do_test and ! defined mtr_match_prefix($elem,$::opt_do_test);
collect_one_test_case($testdir,$resdir,$tname,$elem,$cases); collect_one_test_case($testdir,$resdir,$tname,$elem,$cases,\%skiplist);
} }
closedir TESTDIR; closedir TESTDIR;
} }
...@@ -95,12 +113,13 @@ sub collect_test_cases ($) { ...@@ -95,12 +113,13 @@ sub collect_test_cases ($) {
############################################################################## ##############################################################################
sub collect_one_test_case($$$$$) { sub collect_one_test_case($$$$$$) {
my $testdir= shift; my $testdir= shift;
my $resdir= shift; my $resdir= shift;
my $tname= shift; my $tname= shift;
my $elem= shift; my $elem= shift;
my $cases= shift; my $cases= shift;
my $skiplist=shift;
my $path= "$testdir/$elem"; my $path= "$testdir/$elem";
...@@ -154,6 +173,14 @@ sub collect_one_test_case($$$$$) { ...@@ -154,6 +173,14 @@ sub collect_one_test_case($$$$$) {
} }
} }
if ( defined mtr_match_prefix($tname,"federated") )
{
$tinfo->{'slave_num'}= 1; # Default, use one slave
# FIXME currently we always restart slaves
$tinfo->{'slave_restart'}= 1;
}
# FIXME what about embedded_server + ndbcluster, skip ?! # FIXME what about embedded_server + ndbcluster, skip ?!
my $master_opt_file= "$testdir/$tname-master.opt"; my $master_opt_file= "$testdir/$tname-master.opt";
...@@ -264,6 +291,14 @@ sub collect_one_test_case($$$$$) { ...@@ -264,6 +291,14 @@ sub collect_one_test_case($$$$$) {
} }
} }
# FIXME why this late?
if ( $skiplist->{$tname} )
{
$tinfo->{'skip'}= 1;
$tinfo->{'disable'}= 1; # Sub type of 'skip'
$tinfo->{'comment'}= $skiplist->{$tname} if $skiplist->{$tname};
}
if ( -f $disabled ) if ( -f $disabled )
{ {
$tinfo->{'skip'}= 1; $tinfo->{'skip'}= 1;
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment