diff options
| author | Raimo Niskanen <[email protected]> | 2014-08-18 15:17:45 +0200 |
|---|---|---|
| committer | Raimo Niskanen <[email protected]> | 2014-08-19 10:03:13 +0200 |
| commit | e1a6e43da5b249dd75e2baadd494921cf1684323 (patch) | |
| tree | f448143cd37a3e6505c19475817cf1c5abb644f0 /lib/snmp/test/snmp_agent_test.erl | |
| parent | 39176f2ab7f07c676e797455000bc2dfc6bb751c (diff) | |
| download | otp-e1a6e43da5b249dd75e2baadd494921cf1684323.tar.gz otp-e1a6e43da5b249dd75e2baadd494921cf1684323.tar.bz2 otp-e1a6e43da5b249dd75e2baadd494921cf1684323.zip | |
Improve testcase test for IPv6 capable host
Diffstat (limited to 'lib/snmp/test/snmp_agent_test.erl')
| -rw-r--r-- | lib/snmp/test/snmp_agent_test.erl | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/lib/snmp/test/snmp_agent_test.erl b/lib/snmp/test/snmp_agent_test.erl index 9a9258aa91..05c91c37a3 100644 --- a/lib/snmp/test/snmp_agent_test.erl +++ b/lib/snmp/test/snmp_agent_test.erl @@ -651,11 +651,18 @@ init_per_group(GroupName, Config) -> init_per_group_ipv6(GroupName, Config, Init) -> case ct:require(ipv6_hosts) of ok -> - Init( - snmp_test_lib:init_group_top_dir( - GroupName, - [{ipfamily, inet6}, - {ip, ?LOCALHOST(inet6)} | lists:keydelete(ip, 1, Config)])); + case gen_udp:open(0, [inet6]) of + {ok, S} -> + ok = gen_udp:close(S), + Init( + snmp_test_lib:init_group_top_dir( + GroupName, + [{ipfamily, inet6}, + {ip, ?LOCALHOST(inet6)} + | lists:keydelete(ip, 1, Config)])); + {error, _} -> + {skip, "Host seems to not support IPv6"} + end; _ -> {skip, "Host does not support IPV6"} end. |