# HG changeset patch # User Sergey Kandaurov # Date 1463065431 -10800 # Node ID 54680c434afae585d73f64f231e29cbba5c9abe8 # Parent 9239393e73c8e6b91b96bc38f99a655f142e6a8b Tests: fixed proxy.t on platforms without IPv6 support. diff --git a/proxy.t b/proxy.t --- a/proxy.t +++ b/proxy.t @@ -11,6 +11,8 @@ use strict; use Test::More; +use Socket; + BEGIN { use FindBin; chdir($FindBin::Bin); } use lib 'lib'; @@ -72,7 +74,8 @@ like(http_get('/var?b=127.0.0.1:8081/'), like(http_get('/var?b=u/'), qr/SEE-THIS/, 'proxy with variables to upstream'); SKIP: { -skip 'no ipv6', 1 unless $t->has_module('ipv6'); +skip 'no ipv6', 1 unless $t->has_module('ipv6') + and socket(my $s, &AF_INET6, &SOCK_STREAM, 0); TODO: { todo_skip 'heap-buffer-overflow', 1