|
Packit Service |
64bc36 |
#!/usr/bin/perl
|
|
Packit Service |
64bc36 |
|
|
Packit Service |
64bc36 |
use strict;
|
|
Packit Service |
64bc36 |
use warnings;
|
|
Packit Service |
64bc36 |
|
|
Packit Service |
64bc36 |
use Test::More;
|
|
Packit Service |
64bc36 |
|
|
Packit Service |
64bc36 |
use IO::Socket::IP;
|
|
Packit Service |
64bc36 |
use Socket qw( SOCK_STREAM );
|
|
Packit Service |
64bc36 |
|
|
Packit Service |
64bc36 |
my $s1 = IO::Socket::IP->new(
|
|
Packit Service |
64bc36 |
LocalHost => "127.0.0.1",
|
|
Packit Service |
64bc36 |
Type => SOCK_STREAM,
|
|
Packit Service |
64bc36 |
Listen => 1,
|
|
Packit Service |
64bc36 |
) or die "Cannot listen on AF_INET - $@";
|
|
Packit Service |
64bc36 |
|
|
Packit Service |
64bc36 |
my $s2 = IO::Socket::IP->new;
|
|
Packit Service |
64bc36 |
$s2->fdopen( $s1->fileno, 'r' ) or die "Cannot fdopen - $!";
|
|
Packit Service |
64bc36 |
|
|
Packit Service |
64bc36 |
ok( defined $s2->socktype, '$s2->socktype defined' );
|
|
Packit Service |
64bc36 |
is( $s2->sockport, $s1->sockport, '$s2->sockport' );
|
|
Packit Service |
64bc36 |
|
|
Packit Service |
64bc36 |
done_testing;
|