moparisthebest/curl
1
0
Fork 0
mirror of https://github.com/moparisthebest/curl synced 2024-12-21 15:48:49 -05:00
Code Issues Releases Wiki Activity

no longer assume that the test number implies servers to run

Browse Source
This commit is contained in:
Daniel Stenberg 2003-04-30 20:28:49 +00:00
parent ee29dbdb8f
commit 95f6b15a67
1 changed files with 13 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
tests/runtests.pl
View File

@ -899,45 +899,22 @@ sub singletest {
sub serverfortest {
my ($testnum)=@_;
my @what;
if($testnum< 100) {
# 0 - 99 is for HTTP
push @what, "http";
}
elsif($testnum< 200) {
# 100 - 199 is for FTP
push @what, "ftp";
}
elsif($testnum< 300) {
# 200 - 299 is for FILE, no server!
push @what, "file";
}
elsif($testnum< 400) {
# 300 - 399 is for HTTPS
push @what, "https";
}
elsif($testnum< 500) {
# 400 - 499 is for FTPS
push @what, "ftps";
}
if(!@what) {
# load the test case file definition
if(loadtest("${TESTDIR}/test${testnum}")) {
if($verbose) {
# this is not a test
print "$testnum doesn't look like a test case!\n";
}
return 100;
}
@what = getpart("client", "server");
if(!$what[0]) {
warn "Test case $testnum has no server(s) specified!";
return 100;
# load the test case file definition
if(loadtest("${TESTDIR}/test${testnum}")) {
if($verbose) {
# this is not a test
print "$testnum doesn't look like a test case!\n";
}
return 100;
}
my @what = getpart("client", "server");
if(!$what[0]) {
warn "Test case $testnum has no server(s) specified!";
return 100;
}
for(@what) {
my $what = lc($_);
$what =~ s/[^a-z]//g;