Added a generic way to disable test cases when "all" is run, and added the

FTP 3rd party transfers to that file for now until I have them sorted out.
This commit is contained in:
Daniel Stenberg
2006-09-13 10:16:36 +00:00
parent 4a24219a1a
commit c866771cd2
3 changed files with 25 additions and 1 deletions

View File

@@ -2123,6 +2123,18 @@ if ( $TESTCASES eq "all") {
my @cmds = grep { /^test([0-9]+)$/ && -f "$TESTDIR/$_" } readdir(DIR);
closedir DIR;
my %dis;
open(D, "$TESTDIR/DISABLED");
while(<D>) {
if(/^ *\#/) {
# allow comments
next;
}
if($_ =~ /(\d+)/) {
$dis{$1}=$1; # disable this test number
}
}
$TESTCASES=""; # start with no test cases
# cut off everything but the digits
@@ -2131,6 +2143,11 @@ if ( $TESTCASES eq "all") {
}
# the the numbers from low to high
for(sort { $a <=> $b } @cmds) {
if($dis{$_}) {
# skip disabled test cases
print STDERR "runtests.pl: disabling test $_\n";
next;
}
$TESTCASES .= " $_";
}
}