1#!/usr/bin/perl
2
3use v5.14;
4use warnings;
5
6use Test::More;
7
8use IO::Socket::IP;
9use Socket qw( SOCK_STREAM );
10
11my $s1 = IO::Socket::IP->new(
12   LocalHost => "127.0.0.1",
13   Type      => SOCK_STREAM,
14   Listen    => 1,
15) or die "Cannot listen on AF_INET - $IO::Socket::errstr";
16
17my $s2 = IO::Socket::IP->new;
18$s2->fdopen( $s1->fileno, 'r' ) or die "Cannot fdopen - $!";
19
20ok( defined $s2->socktype, '$s2->socktype defined' );
21is( $s2->sockport, $s1->sockport, '$s2->sockport' );
22
23done_testing;
24