From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

BINGOS / Devel-PatchPerl-2.10-TRIAL / perl.git / cpan / IO-Socket-IP / t / 10args.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92

              
#!/usr/bin/perl
use v5.14;
use warnings;
use Test2::V0;
use IO::Socket::IP;
sub arguments_is {
   my ($arg, $exp, $name) = @_;
   $arg = [$arg]
   unless ref $arg;
   $name ||= join ' ', map { defined $_ ? $_ : 'undef' } @$arg;
   my $got = do {
      no warnings 'redefine';
      my $args;
      local *IO::Socket::IP::_io_socket_ip__configure = sub {
         $args = $_[1];
         return $_[0];
      };
      IO::Socket::IP->new(@$arg);
      $args;
   };
   is($got, $exp, $name);
}
my @tests = (
   [ [ '[::1]:80'               ], { PeerHost  => '::1',           PeerService => '80'    } ],
   [ [ '[::1]:http'             ], { PeerHost  => '::1',           PeerService => 'http'  } ],
   [ [ '[::1]'                  ], { PeerHost  => '::1',                                  } ],
   [ [ '[::1]:'                 ], { PeerHost  => '::1',                                  } ],
   [ [ '127.0.0.1:80'           ], { PeerHost  => '127.0.0.1',     PeerService => '80'    } ],
   [ [ '127.0.0.1:http'         ], { PeerHost  => '127.0.0.1',     PeerService => 'http'  } ],
   [ [ '127.0.0.1'              ], { PeerHost  => '127.0.0.1',                            } ],
   [ [ '127.0.0.1:'             ], { PeerHost  => '127.0.0.1',                            } ],
   [ [ 'localhost:80'           ], { PeerHost  => 'localhost',     PeerService => '80'    } ],
   [ [ 'localhost:http'         ], { PeerHost  => 'localhost',     PeerService => 'http'  } ],
   [ [ PeerHost  => '[::1]:80'  ], { PeerHost  => '::1',           PeerService => '80'    } ],
   [ [ PeerHost  => '[::1]'     ], { PeerHost  => '::1'                                   } ],
   [ [ LocalHost => '[::1]:80'  ], { LocalHost => '::1',           LocalService => '80'   } ],
   [ [ LocalHost => undef       ], { LocalHost => undef                                   } ],
   # IO::Socket::INET is happy to take port from the *Host argument even if a *Port argument
   # exists
   [ [ PeerHost => '127.0.0.1:80', PeerPort => '80' ], { PeerHost => '127.0.0.1', PeerService => '80' } ],
   # *Host argument should take precedence over *Service if both exist
   [ [ PeerHost => '127.0.0.1:443', PeerPort => '80' ], { PeerHost => '127.0.0.1', PeerService => '443' } ],
);
is( [ IO::Socket::IP->split_addr( "hostname:http" ) ],
    [ "hostname",  "http" ],
    "split_addr hostname:http" );
is( [ IO::Socket::IP->split_addr( "192.0.2.1:80" ) ],
    [ "192.0.2.1", "80"   ],
    "split_addr 192.0.2.1:80" );
is( [ IO::Socket::IP->split_addr( "[2001:db8::1]:80" ) ],
    [ "2001:db8::1", "80" ],
    "split_addr [2001:db8::1]:80" );
is( [ IO::Socket::IP->split_addr( "something.else" ) ],
    [ "something.else", undef ],
    "split_addr something.else" );
is( IO::Socket::IP->join_addr( "hostname", "http" ),
    "hostname:http",
    'join_addr hostname:http' );
is( IO::Socket::IP->join_addr( "192.0.2.1", 80 ),
    "192.0.2.1:80",
    'join_addr 192.0.2.1:80' );
is( IO::Socket::IP->join_addr( "2001:db8::1", 80 ),
    "[2001:db8::1]:80",
    'join_addr [2001:db8::1]:80' );
is( IO::Socket::IP->join_addr( "something.else", undef ),
    "something.else",
    'join_addr something.else' );
arguments_is(@$_) for @tests;
done_testing;