database/mariadb
1
0
Fork 0
mirror of https://github.com/MariaDB/server.git synced 2025-07-29 05:21:33 +03:00
Code Activity

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

Browse Source 
into mysql.com:/Users/kent/mysql/bk/mysql-5.0-release


mysql-test/lib/mtr_cases.pl:
  Auto merged
This commit is contained in:
unknown
2005-07-07 18:54:57 +02:00
parent c7efc37f4c ce5f68cfa0
commit 49fc6635c6
1 changed files with 31 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
mysql-test/lib/mtr_cases.pl
View File

@ -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 ($) {
{ {
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 ($) {
############################################################################## ##############################################################################
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";
@ -272,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;