summaryrefslogtreecommitdiff
path: root/tests/httpserver.pl
diff options
context:
space:
mode:
authorDaniel Stenberg <daniel@haxx.se>2001-05-23 15:02:58 +0000
committerDaniel Stenberg <daniel@haxx.se>2001-05-23 15:02:58 +0000
commitd3516810a784bd0005dd4c71bc5a3f7074c2da5c (patch)
tree7c643269e50a0fe5be3e93723489eaf6d8c7733c /tests/httpserver.pl
parent68af9a222e6336d1750980018afaf07a8cc7e491 (diff)
downloadcurl-d3516810a784bd0005dd4c71bc5a3f7074c2da5c.tar.gz
adjusted to the new test case formats
Diffstat (limited to 'tests/httpserver.pl')
-rwxr-xr-xtests/httpserver.pl8
1 files changed, 5 insertions, 3 deletions
diff --git a/tests/httpserver.pl b/tests/httpserver.pl
index 7bce3ec10..59a52fd18 100755
--- a/tests/httpserver.pl
+++ b/tests/httpserver.pl
@@ -5,6 +5,8 @@ use FileHandle;
use strict;
+require "getpart.pm";
+
sub spawn; # forward declaration
sub logmsg { #print "$0 $$: @_ at ", scalar localtime, "\n"
}
@@ -140,15 +142,15 @@ for ( $waitedpid = 0;
"You must enter a test number to get good data back\r\n";
}
else {
+ loadtest("data/test$testnum");
# send a custom reply to the client
- open(DATA, "<data/reply$testnum.txt");
- while(<DATA>) {
+ my @data = getpart("reply", "data");
+ for(@data) {
print $_;
if($verbose) {
print STDERR "OUT: $_";
}
}
- close(DATA);
}
}
# print "Hello there, $name, it's now ", scalar localtime, "\r\n";