From d3516810a784bd0005dd4c71bc5a3f7074c2da5c Mon Sep 17 00:00:00 2001
From: Daniel Stenberg <daniel@haxx.se>
Date: Wed, 23 May 2001 15:02:58 +0000
Subject: adjusted to the new test case formats

---
 tests/httpserver.pl | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'tests/httpserver.pl')

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";
-- 
cgit v1.2.3