vndb/fu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

FU: Implement --monitor, add some docs; FU::Util: add fdpass functions

Browse source
This commit is contained in:
Yorhel 2025-02-15 14:58:00 +01:00
parent 09fe50d2a2
commit 3e84a4f4d3
8 changed files with 480 additions and 99 deletions
Download patch file Download diff file Expand all files Collapse all files

39
t/fdpass.t Normal file
View file

@ -0,0 +1,39 @@
use v5.36;
use Test::More;
use IO::Socket qw/AF_UNIX SOCK_STREAM PF_UNSPEC/;
BEGIN { use_ok 'FU::Util', qw/fdpass_send fdpass_recv/ }
my ($rd, $wr) = IO::Socket->socketpair(AF_UNIX, SOCK_STREAM, PF_UNSPEC);
is $wr->syswrite("abc", 3), 3;
my ($fd, $buf) = fdpass_recv fileno($rd), 10;
ok !defined $fd;
is $buf, 'abc';
is fdpass_send(fileno($wr), fileno($wr), 'def'), 3;
($fd, $buf) = fdpass_recv fileno($rd), 50;
ok $fd > 0;
is $buf, 'def';
# Check that $fd is indeed an alias for $wr
my $nwr = IO::Socket->new_from_fd($fd, 'w');
is $nwr->syswrite('hij'), 3;
is $rd->sysread($buf, 20), 3;
is $buf, 'hij';
$nwr->close;
$wr->close;
($fd, $buf) = fdpass_recv fileno($rd), 10;
ok !defined $fd;
is $buf, '';
($fd, $buf) = fdpass_recv -1, 10;
ok !defined $fd;
ok !defined $buf;
is fdpass_send(-1, 3, 'x'), -1;
done_testing;