X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fepoll.t;h=f346b3871fd682c462752717e202fa4290847cba;hb=refs%2Fheads%2Fmaster;hp=b47650e34bb21b472349048e0f3843cdb1fbd88d;hpb=90ea51959df8076870bd5e9efdf1e433eca9f55c;p=public-inbox.git

diff --git a/t/epoll.t b/t/epoll.t
index b47650e3..f346b387 100644
--- a/t/epoll.t
+++ b/t/epoll.t
@@ -1,22 +1,25 @@
+#!perl -w
+# Copyright (C) 2020-2021 all contributors <meta@public-inbox.org>
+# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
 use strict;
+use v5.10.1;
 use Test::More;
-use IO::Handle;
 use PublicInbox::Syscall qw(:epoll);
 plan skip_all => 'not Linux' if $^O ne 'linux';
 my $epfd = epoll_create();
 ok($epfd >= 0, 'epoll_create');
-my $hnd = IO::Handle->new_from_fd($epfd, 'r+'); # close on exit
+open(my $hnd, '+<&=', $epfd); # for autoclose
 
 pipe(my ($r, $w)) or die "pipe: $!";
 is(epoll_ctl($epfd, EPOLL_CTL_ADD, fileno($w), EPOLLOUT), 0,
     'epoll_ctl socket EPOLLOUT');
 
 my @events;
-is(epoll_wait($epfd, 100, 10000, \@events), 1, 'epoll_wait returns');
+epoll_wait($epfd, 100, 10000, \@events);
 is(scalar(@events), 1, 'got one event');
-is($events[0]->[0], fileno($w), 'got expected FD');
-is($events[0]->[1], EPOLLOUT, 'got expected event');
+is($events[0], fileno($w), 'got expected FD');
 close $w;
-is(epoll_wait($epfd, 100, 0, \@events), 0, 'epoll_wait timeout');
+epoll_wait($epfd, 100, 0, \@events);
+is(scalar(@events), 0, 'epoll_wait timeout');
 
 done_testing;