improved functionality for new timeout tests

1 files changed, 20 insertions, 0 deletions

diff --git a/tests/httpserver.pl b/tests/httpserver.pl
index 9b409a9ed..2bbf839dd 100755
--- a/tests/httpserver.pl
+++ b/tests/httpserver.pl
@@ -50,6 +50,16 @@ sub REAPER {
     logmsg "reaped $waitedpid" . ($? ? " with exit $?" : '');
 }
 
+sub performcmd {
+    my @cmd = @_;
+    for(@cmd) {
+        if($_ =~ /^ *wait *(\d*)/) {
+            # instructed to sleep!
+            sleep($1);
+        }
+    }
+}
+
 $SIG{CHLD} = \&REAPER;
 
 for ( $waitedpid = 0;
@@ -164,6 +174,14 @@ for ( $waitedpid = 0;
                 }
 
                 loadtest("data/test$testnum");
+
+
+                my @cmd = getpart("reply", "cmd");
+                performcmd(@cmd);
+
+                # flush data:
+                $| = 1;
+
                 # send a custom reply to the client
                 my @data = getpart("reply", "data$part");
                 for(@data) {
@@ -172,6 +190,8 @@ for ( $waitedpid = 0;
                         print STDERR "OUT: $_";
                     }
                 }
+                my @postcmd = getpart("reply", "postcmd");
+                performcmd(@postcmd);
             }
         }
      #   print "Hello there, $name, it's now ", scalar localtime, "\r\n";