1use strict;
2use warnings;
3use Test::More tests => 13;
4
5use Socket qw(:addrinfo AF_INET pack_sockaddr_in inet_aton);
6
7my ( $err, $host, $service );
8
9( $err, $host, $service ) = getnameinfo( pack_sockaddr_in( 80, inet_aton( "127.0.0.1" ) ), NI_NUMERICHOST|NI_NUMERICSERV );
10cmp_ok( $err, "==", 0, '$err == 0 for {family=AF_INET,port=80,sinaddr=127.0.0.1}/NI_NUMERICHOST|NI_NUMERICSERV' );
11cmp_ok( $err, "eq", "", '$err eq "" for {family=AF_INET,port=80,sinaddr=127.0.0.1}/NI_NUMERICHOST|NI_NUMERICSERV' );
12
13is( $host, "127.0.0.1", '$host is 127.0.0.1 for NH/NS' );
14is( $service, "80", '$service is 80 for NH/NS' );
15
16( $err, $host, $service ) = getnameinfo( pack_sockaddr_in( 80, inet_aton( "127.0.0.1" ) ), NI_NUMERICHOST|NI_NUMERICSERV, NIx_NOHOST );
17is( $host, undef, '$host is undef for NIx_NOHOST' );
18is( $service, "80", '$service is 80 for NS, NIx_NOHOST' );
19
20( $err, $host, $service ) = getnameinfo( pack_sockaddr_in( 80, inet_aton( "127.0.0.1" ) ), NI_NUMERICHOST|NI_NUMERICSERV, NIx_NOSERV );
21is( $host, "127.0.0.1", '$host is undef for NIx_NOSERV' );
22is( $service, undef, '$service is 80 for NS, NIx_NOSERV' );
23
24( $err, $host, $service ) = getnameinfo( pack_sockaddr_in( 80, inet_aton( "127.0.0.1" ) ), NI_NUMERICSERV );
25cmp_ok( $err, "==", 0, '$err == 0 for {family=AF_INET,port=80,sinaddr=127.0.0.1}/NI_NUMERICSERV' );
26
27# We can't meaningfully compare '$host' with anything specific, all we can be
28# sure is it's not empty
29ok( length $host, '$host is nonzero length for NS' );
30
31( $err, $host, $service ) = getnameinfo( pack_sockaddr_in( 80, inet_aton( "127.0.0.1" ) ), NI_NUMERICHOST | NI_NUMERICSERV );
32cmp_ok( $err, "==", 0, '$err == 0 for {family=AF_INET,port=80,sinaddr=127.0.0.1}/NI_NUMERICHOST' );
33
34ok( length $service, '$service is nonzero length for NH' );
35
36# RT79557
37pack_sockaddr_in( 80, inet_aton( "127.0.0.1" ) ) =~ m/^(.*)$/s;
38( $err, $host, $service ) = getnameinfo( $1, NI_NUMERICHOST|NI_NUMERICSERV );
39cmp_ok( $err, "==", 0, '$err == 0 for $1' ) or diag( '$err was: ' . $err );
40