aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Stenberg <daniel@haxx.se>2003-04-30 20:28:49 +0000
committerDaniel Stenberg <daniel@haxx.se>2003-04-30 20:28:49 +0000
commit95f6b15a675c24cebc6cbc0cd2488a7b7a087815 (patch)
treebfe90a2ebaefcfc4ac0cc89c5f344914e2df0ed4
parentee29dbdb8fc46d2d238b7c0aac135d2ad09c323e (diff)
no longer assume that the test number implies servers to run
-rwxr-xr-xtests/runtests.pl47
1 files 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;