From: Daniel Stenberg <daniel@haxx.se>
Date: Tue, 22 Jun 2004 07:09:47 +0000 (+0000)
Subject: retry to read the sent request a few times if it doesn't exist the first time
X-Git-Tag: curl-7_12_1~237
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=38dc548a87534b9b3e0c862e39716d3188b70f88;p=thirdparty%2Fcurl.git

retry to read the sent request a few times if it doesn't exist the first time
---

diff --git a/tests/runtests.pl b/tests/runtests.pl
index 4c32df7b4c..de7e6088cd 100755
--- a/tests/runtests.pl
+++ b/tests/runtests.pl
@@ -1161,8 +1161,22 @@ sub singletest {
     }
 
     if(@protocol) {
-        # verify the sent request
-        my @out = loadarray($SERVERIN);
+        my @out;
+        my $retry = 5;
+
+        # Verify the sent request. Sometimes, like in test 513 on some hosts,
+        # curl will return back faster than the server writes down the request
+        # to its file, so we might need to wait here for a while to see if the
+        # file gets written a bit later.
+
+        while($retry--) {
+            @out = loadarray($SERVERIN);
+
+            if(!$out[0]) {
+                # nothing there yet, wait a while and try again
+                sleep(1);
+            }
+        }
 
         # what to cut off from the live protocol sent by curl
         my @strip = getpart("verify", "strip");