adjusted to the new test case formats

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";