Ensure UNIX socket paths do not already exist in $*TMPDIR before testing

Otherwise tests will explode if they do.
Raku · Apr 10, 2021 · b94756d · b94756d
1 parent 9390d06
commit b94756d
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/S32-io/IO-Socket-INET-UNIX.t b/S32-io/IO-Socket-INET-UNIX.t
@@ -11,10 +11,12 @@ if $*DISTRO.is-win {
     my IO::Socket::INET:_ $server;
     my IO::Socket::INET:_ $client;
     my IO::Socket::INET:_ $accepted;
-    my Str:D              $host      = "./test-$*PID.sock";
+    my Str:_              $host;
     my Str:D              $sent      = 'Hello, world!';
     my Str:_              $received;
-    LEAVE $host.IO.unlink if $host.IO.e;
+
+    repeat { $host = "./test-$*PID" ~ $++ ~ ".sock" } while $host.IO.e;
+    LEAVE $host.IO.unlink if $host andthen .IO.e;
 
     lives-ok {
         $server = IO::Socket::INET.listen: $host, 0, family => PF_UNIX;