-# Copyright (C) 2019-2020 all contributors <meta@public-inbox.org>
+# Copyright (C) 2019-2021 all contributors <meta@public-inbox.org>
use strict;
use Test::More;
use IO::Handle;
use POSIX qw(:signal_h);
use Errno qw(ENOSYS);
-use PublicInbox::Syscall qw($SFD_NONBLOCK);
+use PublicInbox::Syscall qw(SFD_NONBLOCK);
require_ok 'PublicInbox::Sigfd';
+use PublicInbox::DS;
SKIP: {
if ($^O ne 'linux' && !eval { require IO::KQueue }) {
skip 'signalfd requires Linux or IO::KQueue to emulate', 10;
}
- my $new = POSIX::SigSet->new;
- $new->fillset or die "sigfillset: $!";
- my $old = POSIX::SigSet->new;
- sigprocmask(SIG_SETMASK, $new, $old) or die "sigprocmask $!";
+
+ my $old = PublicInbox::DS::block_signals();
my $hit = {};
my $sig = {};
local $SIG{HUP} = sub { $hit->{HUP}->{normal}++ };
}
my $sigfd = PublicInbox::Sigfd->new($sig, 0);
if ($sigfd) {
- require PublicInbox::DS;
ok($sigfd, 'Sigfd->new works');
kill('HUP', $$) or die "kill $!";
kill('INT', $$) or die "kill $!";
}
$sigfd = undef;
- my $nbsig = PublicInbox::Sigfd->new($sig, $SFD_NONBLOCK);
- ok($nbsig, 'Sigfd->new $SFD_NONBLOCK works');
+ my $nbsig = PublicInbox::Sigfd->new($sig, SFD_NONBLOCK);
+ ok($nbsig, 'Sigfd->new SFD_NONBLOCK works');
is($nbsig->wait_once, undef, 'nonblocking ->wait_once');
ok($! == Errno::EAGAIN, 'got EAGAIN');
kill('HUP', $$) or die "kill $!";
PublicInbox::DS->SetPostLoopCallback(sub {}); # loop once
PublicInbox::DS->EventLoop;
- is($hit->{HUP}->{sigfd}, 2, 'HUP sigfd fired in event loop');
+ is($hit->{HUP}->{sigfd}, 2, 'HUP sigfd fired in event loop') or
+ diag explain($hit); # sometimes fails on FreeBSD 11.x
kill('TERM', $$) or die "kill $!";
kill('HUP', $$) or die "kill $!";
PublicInbox::DS->EventLoop;