diff options
| author | gregor herrmann <gregoa@debian.org> | 2024-04-19 16:42:09 +0200 |
|---|---|---|
| committer | gregor herrmann <gregoa@debian.org> | 2024-04-19 16:42:09 +0200 |
| commit | 32e658bb478b7629166a8103abcc94bf17b898d8 (patch) | |
| tree | aa5370274153637d3ace5616e343d78e1e878ec2 | |
| parent | a3685062e9dcd3501053e3144cea0ac880b0f5d5 (diff) | |
skip network tests
Origin: vendor
Forwarded: not-needed
Last-Update: 2020-07-10
Gbp-Pq: Name disable-network-tests.patch
| -rw-r--r-- | t/getaddrinfo.t | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/t/getaddrinfo.t b/t/getaddrinfo.t index 971e516..dc4645a 100644 --- a/t/getaddrinfo.t +++ b/t/getaddrinfo.t @@ -71,6 +71,7 @@ ok( $res[0]->{protocol} == 0 || $res[0]->{protocol} == IPPROTO_TCP, my $goodhost = "cpan.perl.org"; SKIP: { + skip "No network access during Debian builds", 2 if $ENV{NO_NETWORK}; skip "Resolver has no answer for $goodhost", 2 unless gethostbyname( $goodhost ); ( $err, @res ) = getaddrinfo( "cpan.perl.org", "ftp", { socktype => SOCK_STREAM } ); @@ -86,6 +87,7 @@ my $missinghost = "TbK4jM2M0OS.lm57DWIyu4i"; # any request. We'd better check for them SKIP: { + skip "No network access during Debian builds", 1 if $ENV{NO_NETWORK}; skip "Resolver has an answer for $missinghost", 1 if gethostbyname( $missinghost ); # Some OSes return $err == 0 but no results @@ -125,6 +127,7 @@ AI_NUMERICHOST: { # Now check that names with AI_NUMERICHOST fail SKIP: { + skip "No network access during Debian builds", 1 if $ENV{NO_NETWORK}; skip "Resolver has no answer for $goodhost", 1 unless gethostbyname( $goodhost ); ( $err, @res ) = getaddrinfo( $goodhost, "ftp", { flags => AI_NUMERICHOST, socktype => SOCK_STREAM } ); |