diff --git a/S32-io/IO-Socket-INET-UNIX.t b/S32-io/IO-Socket-INET-UNIX.t index d1f036ad02..0a43dfa772 100644 --- a/S32-io/IO-Socket-INET-UNIX.t +++ b/S32-io/IO-Socket-INET-UNIX.t @@ -1,18 +1,21 @@ use v6; +use lib $?FILE.IO.parent.sibling: 'packages/Test-Helpers/lib'; use Test; +use Test::Util; plan 8; if $*DISTRO.is-win { skip-rest 'UNIX socket support on Windows NYI'; } else { + chdir $*TMPDIR; + my IO::Socket::INET:_ $server; my IO::Socket::INET:_ $client; my IO::Socket::INET:_ $accepted; - my Str:D $host = $*TMPDIR.add("test-$*PID.sock").Str; + my Str:D $host = ~make-temp-path.relative; my Str:D $sent = 'Hello, world!'; my Str:_ $received; - LEAVE $host.IO.unlink if $host.IO.e; lives-ok { $server = IO::Socket::INET.listen: $host, 0, family => PF_UNIX; @@ -38,6 +41,8 @@ if $*DISTRO.is-win { lives-ok { $server.close; }, 'can close TCP UNIX socket servers'; + + # Test::Util takes care of cleanup. } # vim: expandtab shiftwidth=4