1#!/usr/bin/perl
2
3# Regression test for https://github.com/Perl/perl5/issues/17447
4
5use strict;
6use warnings;
7
8use Test::More tests => 2;
9
10use IO::Select;
11use IO::Handle;
12
13pipe( my $rd, my $wr ) or die "Cannot pipe() - $!";
14binmode $rd;
15binmode $wr;
16$wr->syswrite("data\n");
17
18my $select = IO::Select->new();
19$select->add($rd);
20
21is( scalar $select->handles, 1, '$select has 1 handle' );
22
23# close first, then remove afterwards
24$rd->close;
25$select->remove($rd);
26
27is( scalar $select->handles, 0, '$select has 0 handles' );
28
29exit;
30