From e1a6e43da5b249dd75e2baadd494921cf1684323 Mon Sep 17 00:00:00 2001
From: Raimo Niskanen <raimo@erlang.org>
Date: Mon, 18 Aug 2014 15:17:45 +0200
Subject: Improve testcase test for IPv6 capable host

---
 lib/snmp/test/snmp_to_snmpnet_SUITE.erl | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'lib/snmp/test/snmp_to_snmpnet_SUITE.erl')

diff --git a/lib/snmp/test/snmp_to_snmpnet_SUITE.erl b/lib/snmp/test/snmp_to_snmpnet_SUITE.erl
index 1c2e08dc41..5ce9cf9e5c 100644
--- a/lib/snmp/test/snmp_to_snmpnet_SUITE.erl
+++ b/lib/snmp/test/snmp_to_snmpnet_SUITE.erl
@@ -110,9 +110,15 @@ init_per_group(_, Config) ->
 init_per_group_ipv6(Families, Config) ->
     case ct:require(ipv6_hosts) of
 	ok ->
-	    init_per_group_ip(Families, Config);
+	    case gen_udp:open(0, [inet6]) of
+		{ok, S} ->
+		    ok = gen_udp:close(S),
+		    init_per_group_ip(Families, Config);
+		{error, _} ->
+		    {skip, "Host seems to not support IPv6"}
+	    end;
 	_ ->
-	    {skip, "Host does not support IPV6"}
+	    {skip, "Test config ipv6_hosts is missing"}
     end.
 
 init_per_group_ip(Families, Config) ->
-- 
cgit v1.2.3