| 1 | $|=1; |
1 | $| = 1; print "1..19\n"; |
| 2 | BEGIN { print "1..17\n" } |
|
|
| 3 | |
2 | |
| 4 | no warnings; # nazis |
3 | no warnings; # nazis |
| 5 | |
4 | |
| 6 | use AnyEvent::Socket; |
5 | use AnyEvent::Socket; |
| 7 | |
6 | |
| 8 | print "ok 1\n"; |
7 | print "ok 1\n"; |
| 9 | |
8 | |
| 10 | sub ph { |
9 | sub ph { |
| 11 | my ($id, $str, $dport, $host, $port) = @_; |
10 | my ($id, $str, $dport, $host, $port) = @_; |
| 12 | |
11 | |
| 13 | $str =~ s/_/ /g; |
12 | $str =~ s/_/ /g unless ref $str; |
| 14 | |
13 | |
| 15 | my ($h, $p) = parse_hostport $str, $dport; |
14 | my ($h, $p) = parse_hostport ref $str ? $$str : $str, $dport; |
| 16 | |
15 | |
| 17 | print $h eq $host && $p eq $port ? "" : "not ", "ok $id # '$str,$dport' => '$h,$p' eq '$host,$port'\n"; |
16 | print $h eq $host && $p eq $port ? "" : "not ", "ok $id # '$str,$dport' => '$h,$p' eq '$host,$port'\n"; |
| 18 | } |
17 | } |
| 19 | |
18 | |
| 20 | ph 2, ""; |
19 | ph 2, ""; |
| … | |
… | |
| 32 | ph 14, qw(::1_smtp 443 ::1 smtp); |
31 | ph 14, qw(::1_smtp 443 ::1 smtp); |
| 33 | ph 15, qw([www.linux.org]_80 443 www.linux.org 80); |
32 | ph 15, qw([www.linux.org]_80 443 www.linux.org 80); |
| 34 | ph 16, qw([10.1]:80 443 10.1 80); |
33 | ph 16, qw([10.1]:80 443 10.1 80); |
| 35 | ph 17, qw(10.1_80 443 10.1 80); |
34 | ph 17, qw(10.1_80 443 10.1 80); |
| 36 | |
35 | |
|
|
36 | my $var = "2002:58c6:438b::10.0.0.17"; |
|
|
37 | ph 18, \$var, qw(443 2002:58c6:438b::10.0.0.17 443); |
|
|
38 | ph 19, \$var, qw(443 2002:58c6:438b::10.0.0.17 443); |
|
|
39 | |
