Harden test against race.

Raku · Dec 16, 2015 · b2394b1 · b2394b1
1 parent ad0164f
commit b2394b1
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/S32-io/socket-recv-vs-read.t b/S32-io/socket-recv-vs-read.t
@@ -19,7 +19,11 @@ IO::Socket::Async.listen($hostname, $port).tap(-> $conn {
 });
 
 $send-rest = Promise.new;
-$client = IO::Socket::INET.new(:host("$hostname:$port"));
+for ^10 {
+    $client = IO::Socket::INET.new(:host("$hostname:$port"));
+    last;
+    CATCH { default { sleep 0.2; } }
+}
 is $client.recv, 'first thing', 'can recv immediately with recv (chars)';
 $send-rest.keep(True);
 is $client.recv, 'another thing', 'can recv rest afterwards (chars)';