cpan/IO-Socket-IP/t/18fdopen.t

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