aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLukas Larsson <[email protected]>2011-09-27 12:03:04 +0200
committerLukas Larsson <[email protected]>2011-09-29 17:31:29 +0200
commit22a3818adb4e3433d7ab9f34e0ade06fdf10d8d6 (patch)
treef5752407c273e7774b91d3622a980f14c3d09eed
parenta176db06b4de2354a385813409a3340c85c3b341 (diff)
downloadotp-22a3818adb4e3433d7ab9f34e0ade06fdf10d8d6.tar.gz
otp-22a3818adb4e3433d7ab9f34e0ade06fdf10d8d6.tar.bz2
otp-22a3818adb4e3433d7ab9f34e0ade06fdf10d8d6.zip
Skip getaddr_v6 test if on the ipv4_only host
-rw-r--r--lib/kernel/test/inet_SUITE.erl2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/kernel/test/inet_SUITE.erl b/lib/kernel/test/inet_SUITE.erl
index 1bb173a3ac..aaa20b7398 100644
--- a/lib/kernel/test/inet_SUITE.erl
+++ b/lib/kernel/test/inet_SUITE.erl
@@ -294,7 +294,7 @@ t_getaddr_v6(Config) when is_list(Config) ->
?line {Name,FullName,IPStr,_IP,_,IP_46_Str,IP46} =
ct:get_config(test_host_ipv4_only),
case {inet:getaddr(IP_46_Str, inet6),inet:getaddr(Name, inet6)} of
- {{ok,IP46},{ok,_}} ->
+ {{ok,IP46},{ok,V4Addr}} when V4Addr /= {0,0,0,0,0,0,0,1} ->
%% Since we suceeded in parsing an IPv6 address string and
%% look up the name, this computer fully supports IPv6.
?line {ok,IP46} = inet:getaddr(IP46, inet6),