summaryrefslogtreecommitdiff
path: root/tests/httpserver.pl
diff options
context:
space:
mode:
authorDaniel Stenberg <daniel@haxx.se>2001-05-28 21:49:45 +0000
committerDaniel Stenberg <daniel@haxx.se>2001-05-28 21:49:45 +0000
commit7bb7550e23e70528f8c138d7e65275ac970a0351 (patch)
tree33b9529790820840843ed896f982177baae59a6f /tests/httpserver.pl
parentadf00f5b2e662241316fca8428c560a778974dbe (diff)
downloadcurl-7bb7550e23e70528f8c138d7e65275ac970a0351.tar.gz
fixes
Diffstat (limited to 'tests/httpserver.pl')
-rwxr-xr-xtests/httpserver.pl15
1 files changed, 10 insertions, 5 deletions
diff --git a/tests/httpserver.pl b/tests/httpserver.pl
index 59a52fd18..64d9d2100 100755
--- a/tests/httpserver.pl
+++ b/tests/httpserver.pl
@@ -121,10 +121,6 @@ for ( $waitedpid = 0;
my $testnum;
if($path =~ /.*\/(\d*)/) {
$testnum=$1;
-
- if($verbose) {
- print STDERR "OUT: sending reply $testnum\n";
- }
}
else {
$testnum=0;
@@ -142,9 +138,18 @@ for ( $waitedpid = 0;
"You must enter a test number to get good data back\r\n";
}
else {
+ my $part="";
+ if($testnum > 10000) {
+ $part = $testnum % 10000;
+ $testnum = sprintf("%d", $testnum/10000);
+ }
+ if($verbose) {
+ print STDERR "OUT: sending reply $testnum (part $part)\n";
+ }
+
loadtest("data/test$testnum");
# send a custom reply to the client
- my @data = getpart("reply", "data");
+ my @data = getpart("reply", "data$part");
for(@data) {
print $_;
if($verbose) {