now we retry 30 times (for total 30 sec) when the embedded TCP server…

… fails to listen on the specified port.
loveshell · Sep 5, 2012 · 6798ca9 · 6798ca9
1 parent e2a7b2f
commit 6798ca9
Showing 1 changed file with 30 additions and 8 deletions.
diff --git a/lib/Test/Nginx/Util.pm b/lib/Test/Nginx/Util.pm
@@ -1328,14 +1328,36 @@ request:
 
             #warn "Reply: ", $reply;
 
-            $tcp_socket = IO::Socket::INET->new(
-                LocalHost => '127.0.0.1',
-                LocalPort => $port,
-                Proto => 'tcp',
-                Reuse => 1,
-                Listen => 5,
-                Timeout => timeout(),
-            ) or bail_out("$name - failed to create the tcp listening socket: $!");
+            my $err;
+            for (my $i = 0; $i < 30; $i++) {
+                $tcp_socket = IO::Socket::INET->new(
+                    LocalHost => '127.0.0.1',
+                    LocalPort => $port,
+                    Proto => 'tcp',
+                    Reuse => 1,
+                    Listen => 5,
+                    Timeout => timeout(),
+                );
+
+                if ($tcp_socket) {
+                    last;
+                }
+
+                if ($!) {
+                    $err = $!;
+                    if ($err =~ /address already in use/i) {
+                        warn "WARNING: failed to create the tcp listening socket: $err\n";
+                        sleep 1;
+                        next;
+                    }
+                }
+
+                last;
+            }
+
+            if (!$tcp_socket && $err) {
+                bail_out("$name - failed to create the tcp listening socket: $err");
+            }
 
             if (defined $block->tcp_query || defined $req_len) {
                 my $tb = Test::More->builder;