1
0
mirror of https://github.com/MariaDB/server.git synced 2025-07-30 16:24:05 +03:00

address review comments

This commit is contained in:
Daniel Fischer
2009-02-25 15:00:17 +01:00
parent b466018cda
commit fff57e9dfc
3 changed files with 34 additions and 22 deletions

View File

@ -11,7 +11,7 @@ The syntax is as follows:
2) Empty lines and lines starting with a hash (#) are ignored. 2) Empty lines and lines starting with a hash (#) are ignored.
3) If any other line contains a black followed by a hash (#), the hash 3) If any other line contains a blank followed by a hash (#), the hash
and any subsequent characters are ignored. and any subsequent characters are ignored.
4) The full test case name including the suite and execution mode 4) The full test case name including the suite and execution mode

View File

@ -123,14 +123,20 @@ sub mtr_report_test ($) {
{ {
# Find out if this test case is an experimental one, so we can treat # Find out if this test case is an experimental one, so we can treat
# the failure as an expected failure instead of a regression. # the failure as an expected failure instead of a regression.
for my $exp ( @$::opt_experimental ) { for my $exp ( @$::experimental_test_cases ) {
if ( $exp ne $test_name ) { if ( $exp ne $test_name ) {
# if the expression is not the name of this test case, but has
# an asterisk at the end, determine if the characters up to
# but excluding the asterisk are the same
if ( $exp ne "" && substr($exp, -1, 1) eq "*" ) { if ( $exp ne "" && substr($exp, -1, 1) eq "*" ) {
$exp = substr($exp, 0, length($exp) - 1); $exp = substr($exp, 0, length($exp) - 1);
if ( substr($test_name, 0, length($exp)) ne $exp ) { if ( substr($test_name, 0, length($exp)) ne $exp ) {
# no match, try next entry
next; next;
} }
# if yes, fall through to set the exp-fail status
} else { } else {
# no match, try next entry
next; next;
} }
} }

View File

@ -170,6 +170,7 @@ my $config; # The currently running config
my $current_config_name; # The currently running config file template my $current_config_name; # The currently running config file template
our $opt_experimental; our $opt_experimental;
our $experimental_test_cases;
my $baseport; my $baseport;
my $opt_build_thread= $ENV{'MTR_BUILD_THREAD'} || "auto"; my $opt_build_thread= $ENV{'MTR_BUILD_THREAD'} || "auto";
@ -963,24 +964,29 @@ sub command_line_setup {
if ( $opt_experimental ) if ( $opt_experimental )
{ {
if ( open(FILE, "<", $opt_experimental) ) { # read the list of experimental test cases from the file specified on
# the command line
open(FILE, "<", $opt_experimental) or mtr_error("Can't read experimental file: $opt_experimental");
mtr_report("Using experimental file: $opt_experimental"); mtr_report("Using experimental file: $opt_experimental");
$opt_experimental = []; $experimental_test_cases = [];
while(<FILE>) { while(<FILE>) {
chomp; chomp;
# remove comments (# foo) at the beginning of the line, or after a
# blank at the end of the line
s/( +|^)#.*$//; s/( +|^)#.*$//;
# remove whitespace
s/^ +//; s/^ +//;
s/ +$//; s/ +$//;
# if nothing left, don't need to remember this line
if ( $_ eq "" ) { if ( $_ eq "" ) {
next; next;
} }
# remember what is left as the name of another test case that should be
# treated as experimental
print " - $_\n"; print " - $_\n";
push @$opt_experimental, $_; push @$experimental_test_cases, $_;
} }
close FILE; close FILE;
} else {
mtr_error("Can't read experimental file: $opt_experimental");
}
} }
foreach my $arg ( @ARGV ) foreach my $arg ( @ARGV )