From 95f6b15a675c24cebc6cbc0cd2488a7b7a087815 Mon Sep 17 00:00:00 2001
From: Daniel Stenberg <daniel@haxx.se>
Date: Wed, 30 Apr 2003 20:28:49 +0000
Subject: [PATCH] no longer assume that the test number implies servers to run
---
tests/runtests.pl | 47 ++++++++++++-----------------------------------
1 file changed, 12 insertions(+), 35 deletions(-)
diff --git a/tests/runtests.pl b/tests/runtests.pl
index f31f5c688..ed1a619e5 100755
--- a/tests/runtests.pl
+++ b/tests/runtests.pl
@@ -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;
+ # 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";
}
- @what = getpart("client", "server");
+ return 100;
+ }
+ my @what = getpart("client", "server");
- if(!$what[0]) {
- warn "Test case $testnum has no server(s) specified!";
- return 100;
- }
+ if(!$what[0]) {
+ warn "Test case $testnum has no server(s) specified!";
+ return 100;
}
+
for(@what) {
my $what = lc($_);
$what =~ s/[^a-z]//g;
--
2.40.0