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:
parent
4a24219a1a
commit
c866771cd2
7
tests/data/DISABLED
Normal file
7
tests/data/DISABLED
Normal file
@ -0,0 +1,7 @@
|
|||||||
|
# This file can be used to specify test cases that should not run when all
|
||||||
|
# test cases are run by runtests.pl. Just add the plain test case numbers, one
|
||||||
|
# per line.
|
||||||
|
# Comments starting with '#' letters are fine.
|
||||||
|
230
|
||||||
|
231
|
||||||
|
232
|
@ -35,5 +35,5 @@ EXTRA_DIST = test1 test108 test117 test127 test20 test27 test34 test46 \
|
|||||||
test256 test257 test258 test259 test260 test261 test262 test263 test264 \
|
test256 test257 test258 test259 test260 test261 test262 test263 test264 \
|
||||||
test265 test266 test267 test268 test269 test270 test271 test272 test273 \
|
test265 test266 test267 test268 test269 test270 test271 test272 test273 \
|
||||||
test274 test275 test524 test525 test276 test277 test526 test527 test528 \
|
test274 test275 test524 test525 test276 test277 test526 test527 test528 \
|
||||||
test530
|
test530 DISABLED
|
||||||
|
|
||||||
|
@ -2123,6 +2123,18 @@ if ( $TESTCASES eq "all") {
|
|||||||
my @cmds = grep { /^test([0-9]+)$/ && -f "$TESTDIR/$_" } readdir(DIR);
|
my @cmds = grep { /^test([0-9]+)$/ && -f "$TESTDIR/$_" } readdir(DIR);
|
||||||
closedir 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
|
$TESTCASES=""; # start with no test cases
|
||||||
|
|
||||||
# cut off everything but the digits
|
# cut off everything but the digits
|
||||||
@ -2131,6 +2143,11 @@ if ( $TESTCASES eq "all") {
|
|||||||
}
|
}
|
||||||
# the the numbers from low to high
|
# the the numbers from low to high
|
||||||
for(sort { $a <=> $b } @cmds) {
|
for(sort { $a <=> $b } @cmds) {
|
||||||
|
if($dis{$_}) {
|
||||||
|
# skip disabled test cases
|
||||||
|
print STDERR "runtests.pl: disabling test $_\n";
|
||||||
|
next;
|
||||||
|
}
|
||||||
$TESTCASES .= " $_";
|
$TESTCASES .= " $_";
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
Loading…
x
Reference in New Issue
Block a user