Commit | Line | Data |
---|---|---|
e150c453 RS |
1 | #!/usr/bin/perl |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | ||
6 | use Test::More; | |
7 | ||
8 | use IO::Socket::IP; | |
9 | use Socket qw( SOCK_STREAM ); | |
10 | ||
11 | my $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 - $@"; | |
16 | ||
17 | my $s2 = IO::Socket::IP->new; | |
18 | $s2->fdopen( $s1->fileno, 'r' ) or die "Cannot fdopen - $!"; | |
19 | ||
20 | ok( defined $s2->socktype, '$s2->socktype defined' ); | |
21 | is( $s2->sockport, $s1->sockport, '$s2->sockport' ); | |
22 | ||
23 | done_testing; |