1#!/usr/bin/perl
2
3use v5;
4use strict;
5use warnings;
6
7use Test::More;
8
9use IO::Socket::IP;
10use Socket qw( AF_INET SOCK_STREAM );
11
12socket( my $tmph, AF_INET, SOCK_STREAM, 0 ) or die "Cannot socket() - $!";
13
14my $socket = IO::Socket::IP->new or die "Cannot create IO::Socket::IP - $@";
15
16$socket->socket( AF_INET, SOCK_STREAM, 0 ) or die "Cannot socket() - $!";
17my $fileno = $socket->fileno;
18
19$socket->socket( AF_INET, SOCK_STREAM, 0 ) or die "Cannot socket() - $!";
20
21is( $socket->fileno, $fileno, '$socket->fileno preserved after ->socket' );
22
23close $tmph;
24
25$socket->socket( AF_INET, SOCK_STREAM, 0 ) or die "Cannot socket() - $!";
26
27is( $socket->fileno, $fileno, '$socket->fileno preserved after ->socket with free handle' );
28
29done_testing;
30