Skip to content

Commit

Permalink
Use Test::Util's &make-temp-path in UNIX socket tests
Browse files Browse the repository at this point in the history
This deduplicates some temporary file logic. Basenames generated by this
routine are rather long (around 70 characters), but being in $*TMPDIR,
we can use a relative path to give us more wiggle room.
  • Loading branch information
Kaiepi committed Apr 12, 2021
1 parent da7067f commit 247c2af
Showing 1 changed file with 5 additions and 2 deletions.
7 changes: 5 additions & 2 deletions S32-io/IO-Socket-INET-UNIX.t
Original file line number Diff line number Diff line change
@@ -1,5 +1,7 @@
use v6;
use lib $?FILE.IO.parent.sibling: 'packages/Test-Helpers/lib';
use Test;
use Test::Util;

plan 8;

Expand All @@ -11,10 +13,9 @@ 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-{(1..1_000).pick}.sock";
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;
Expand All @@ -40,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

0 comments on commit 247c2af

Please sign in to comment.